ho questo script che mi controlla le password.
<%
dim objConn, objRs
set objConn = server.createobject("ADODB.COnnection")
sub opendb()
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/saitti.mdb")
'objConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
' "Dbq=" & server.mappath(".") & "\mdb-database\moda.mdb;" & _
' "Uid=;" & _
' "Pwd=;"
set session("db")=objConn
end sub
sub closedb()
objRs.close
set objRs = nothing
objConn.close
set objConn = nothing
end sub
'+++ Controllo password
dim utente,pwd,s
utente=request("utente")
pwd=request("password")
opendb
s="select * from t01_utenti where utente='"&trim(utente)&"' and password='"&trim(pwd)&"'"
>>>>>>Set objRs = objConn.execute(s)
if not objrs.eof then
'session (open)
%>
.. la cosa strana è che l'ho provato sotto una directory di prova e funziona mentre sulla root principale no e mi da questo errore:
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/aggiornamento.asp, line 34 (questa è quella che ho contrassegnato con le >>>>)
Rispondi quotando
