errore ADODB.Recordset error '800a0e7d'

[Nich]

Ciao a tutti,
sono un paio di giorni che combatto con questo errore..potete aiutarmi

<%@Language=VBscript%>


<%
username = request.form("username")
password = request.form("password")

OpenCN
sql = "select * from admin "&_
"where username = '"&username&"'"&" and password = '"&password&"'"
rs.Open sql, cn, adOpenKeyset
found = rs.recordcount

rs.close

CloseCN

if found = 1 then
Session("rb_accesso") = True
response.redirect "default.asp"
else
response.redirect "formlogin.asp?error=1"
end if

%>

l'errore risulta alla riga11 in grassetto.
grazie in anticipo

[Jupy64]

Ciao, la stringa sql è sbagliata, e poi eventualmente bisogna vedere come imposti la connessione..

sql = "select * from admin " _
& "where username = '" & username & "' and password = '" & password & "';"

[optime]

scriverei [password]...

[Nich]

questo è il file della connessione al db

<script language=VBScript RunAt=Server>

dim cn ' oggetto connection
dim rs ' oggetto recordset

sub openCN
'apri la connection
'assign recordset
set cn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")



'ACCESSO DSN-LESS - SENZA DSN
dsn="DBQ=" & Server.Mappath("rotban.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
'cn.open strconn
end sub

sub closeCN

set rs = Nothing
set cn = Nothing
end sub


</script>