Aquí va el ejemplo. Son dos consultas sobre la misma conexión. Lo único que hago es no cerrar la DB sino sólamente el Recordset para luego definir la nueva consulta. Se podría también definir dos Recordset distintos para cada consulta.
Código:
<%
SET base = Server.CreateObject("ADODB.Connection")
base.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./db.mdb")
sql = "SELECT * FROM tabla WHERE ID = '"& id &"'"
SET RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, base
'....
'aquí van las operaciones que realizo con la primera consulta
'y finalmente cierro el Recordset.
RS.Close
SET RS = Nothing
%>
......
Contenido de la página HTML hasta llegar a la siguiente consulta
........
<%
sql = "SELECT * FROM tabla2 WHERE ID = '"& id &"'"
SET RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, base
%>
Pero como te he comentado antes lo puedes definir todo a la vez:
Código:
<%
SET base = Server.CreateObject("ADODB.Connection")
base.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./db.mdb")
sql1 = "SELECT * FROM tabla WHERE ID = '"& id &"'"
sql2 = "SELECT * FROM tabla2 WHERE ID = '"& id &"'"
SET RS1 = Server.CreateObject ("ADODB.RecordSet")
SET RS2 = Server.CreateObject ("ADODB.RecordSet")
RS1.Open sql1, base
RS2.Open sql2, base
'.......
'Operaciones sobre cada consulta y cerramos todo
'.......
RS1.Close
SET RS1 = Nothing
RS2.Close
SET RS2 = Nothing
RS.base
SET base= Nothing
%>
Espero que te sirva.