visualizzazione database di access

[dr4gonal3]

Ciao a tutti!!!!
ho creato un database in cui vengono inviati i moduli riempiti dagli utenti. ora sto cercando di collegare il database ad un altra pagina(privata) del sito...per vedere i risultati, ed avere la tabella che ho su access direttamente sul sito. ho scritto questo codice che ho inserito nel punto della pagna web dove vorrei vedere la tabella!

<%
dim conn
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/directory/directory1/db.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = Conn
RS.Open "SELECT * FROM tabella"
WHILE NOT RS.EOF
Response.Write RS("ID", "campo1", "campo2", "campo3")
RS.MoveNext
WEND
%>

ma mi da questo errore:
Errore di run-time di Microsoft VBScript (0x800A01C2)
Numero errato di argomenti o assegnazione di proprietà non valida: 'RS'

la riga a cui fa riferimento l errore è:
Response.Write RS("ID", "campo1", "campo2", "campo3")

ho provare ad effettuare qlc cambiamento ma nn va....!
qualcuno sa dirmi come risolvere il problema??

grazieeeeeee 1000!!!!!!!!!!!
ciaoooooooooooo

[Mems]

response.write rs("ID") & " " & rs("campo1") & " " & rs("campo2") & " " & rs("campo3") & "
"

[pip19]

'connessione

Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")

'creazione recordset
sql="SELECT * FROM Tbl"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn


'ciclo
While not rs.EOF
...response.write("metti sempre le parentesi")
rs.MoveNext() 'probabilmente era questo il tuo errore
Wend

[dr4gonal3]

siiiiiiiiiiiiiii!!!!
grazieeeeeeeeeeeeeeee!!!!!!!!!!!!!!!!!!!