Connessione a database

[Daisyland]

Domanda banalissima (credo), ma da totale inesperto.

Mi connetto ad un database access e fin qui tutto bene.

Connessione al Database:

<%

Const StringaConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=D:\users\USERNAME\DATA\NOMEDB.MDB"

Dim RS, Conn
Set Conn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.Recordset")
SQL = "SELECT * FROM TABELLA"

Conn.open StringaConnessione
RS.open SQL,conn,3

while not RS.EOF 
%>
Mio Dato : <% Response.write RS("COLONNA1") %>

<%

rs.movenext
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
%>

Se dopo la linea
RS.open SQL,conn,3
del codice che ho messo voglio eseguire un'altra query (prima dell'istruzione RS.Close), come devo fare, non potendo scrivere di nuovo RS.open ?

[Shagrat]

devi creare un'altro rs...chiamalo rs1

[ludoweb.it]

fai cosi:

Dim RS, Conn
Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.open StringaConnessione

Set RS = Server.CreateObject ("ADODB.Recordset")
SQL = "SELECT * FROM TABELLA"
RS.open SQL,conn,3
'-------qua ne metti un'altro-------------
Set RS2 = Server.CreateObject ("ADODB.Recordset")
SQL = "SELECT * FROM TABELLA"
RS2.open SQL,conn,3
'----------qua poi fai tu su come usarlo-----------

while not RS.EOF
%>
Mio Dato : <% Response.write RS("COLONNA1") %>

<%

rs.movenext
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
%>