errore di connesione

[blackdream]

Ciao a tutti volevo un aiuto su un nuovo mio problema ho dato ora i permessi di scrittura alla cartella contenente i database e con il file sottostante dovrei verificare la presenza di user e pasword per poi atterrare in un area protetta ma mi da errore alla riga 16 e questo e' il messaggio

Microsoft VBScript runtime error '800a01a8'

Object required: 'rs'

/welcome.asp, line 16

ecco qui sotto invece tutto l'intero file qualcuno puo aiutarmi????

<%
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/fpdb/registrazione.mdb")

'Se la sessione login è diversa da uno allora esegue la verifica
if session("login") <> 1 then

'Richiama i valori inseriti nel form di login.asp
username = request("username")
password = request("password")

'Stringa SQL che seleziona l'username e la password dalla tabella del database
Strsql = "select * from User where username = '" & username & "' and password = '" & password & "'"

'Se i dati sono presenti nella tabella, session("login") assume il valore di uno altrimenti viene eseguito il reindirizzamento alla pagina Login.asp
if not 'rs'.eof then
session("login") = 1
else
response.redirect "Login.asp"
end if

rs.close
set rs = nothing
end if
%><%
response.write "Benvenuto nella sezione protetta !"
%>

grazie mille

 

[lukeonweb]

if not 'rs'.eof then

leva gli apici

if not rs.eof then

deduco quindi che rs sarebbe il recordset, ma non lo hai dichiarato ne settato ne aperto

dichiaralo settalo e aprilo

 

[blackdream]

Grazie per la risposta mi potresti spiegare velocemente come farlo???
Sono nuovo del linguaggio!!!!!
Grazie comunque

 

[lukeonweb]

non l'ho testato, prova se funziona...

<%
Dim Cnn, rs
Set Cnn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Cnn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/fpdb/registrazione.mdb")

if session("login") <> 1 then

username = request("username")
password = request("password")

tabella del database
Strsql = "select * from User where username = '" & username & "' and password = '" & password & "'"

rs.Open Strsql, Cnn, 1

pagina Login.asp
if not rs.eof then
session("login") = 1
else
response.redirect "Login.asp"
end if

rs.close
set rs = nothing
end if
%>

<%
response.write "Benvenuto nella sezione protetta !"
Cnn.Close
Set cn = Nothing
%>