%
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft ODBC for Oracle};Server=ARNEPC3;Uid=xxxx;Pwd=xxxx;"
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
%>