<% Set con = Server.CreateObject("ADODB.Connection") con.Open "Provider=SQLOLEDB;Data Source=ARNEPC3;Initial Catalog=Test;Integrated Security=SSPI;" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM T1;SELECT * FROM T1",con Do While Not rs.EOF %> <%=rs("F1")%> <%=rs("F2")%>
<% rs.MoveNext Loop Set rs = rs.NextRecordset Do While Not rs.EOF %> <%=rs("F1")%> <%=rs("F2")%>
<% rs.MoveNext Loop Set rs = Nothing Set con = Nothing %>