이런것도 있었구나..

 

NextRecordSet.asp
<!--METADATA TYPE="typelib" FILE="C:\program Files\Common Files\System\ado\msado15.dll"-->
<%
Dim Dbcon 
Dim Rs 
Dim strConnect 
strConnect = "Provider=sqloledb;Data Source=(local); Initial catalog=pubs; User ID=sa; Password=" 
Set Dbcon = Server.CreateObject("ADODB.Connection") 
Dbcon.Open strConnect 
 
Set Rs = Server.CreateObject("ADODB.RecordSet") 
sql = "Select * from stores; Select * from jobs" 
Rs.Open sql,Dbcon, , ,adCmdText
 
i = 1 
Do Until Rs is Nothing 
     if i =1 then Response.write "<b>Stores 테이블의 데이터들을 담은 레코드셋 : </b><br>" 
     if i = 2 then Response.write "<br><b>Jobs 테이블의 데이터들을 담은 레코드셋 :</b><br>" 
     Do While Not Rs.EOF 
          Response.Write "   " & Rs(0) & " , " &rs(1) & " , " &rs(2) & "<br>" 
          Rs.MoveNext 
     Loop 
     Set Rs = Rs.NextRecordset 
     i = i + 1 
Loop
 
Set Rs = Nothing 
Dbcon.Close 
Set Dbcon = Nothing 
%>

 

 

출처 : TAEYO.NET