%
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Option=16834;Database=Test;"
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
%>