Problema campo dati

[FaBi0nE]

Ciao a tutti argazzi, ho un piccolo problema, suppongo di campo dati all'interno di un DB.


Faccio un semplicissimo cambio password e questa è la pagina che mi dovrebbe effettivamente cambiare la password all'interno del DB.


<%
if Session("Autenticato")<>"OK" then
Response.Redirect("default.asp")
end if
%>
<%
NewPwd = request("NewPassword")
if NewPwd <> request("ConfirmPassword") then
Asp_Messagge = "<font face=""Arial"" size=""2"" color=""Red"">La digitazione della nuova password non corrisponde!
</font>"
else
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.ConnectionTimeout = Application("ConnectionTimeout")
Connect.Open = "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/database.mdb")

comandosql=("select Password FROM tabella_1 WHERE ID=" & session("id"))
set rs = connect.execute(comandosql)

if rs("Password") = request("OldPassword") then
sql = "Update utenti set "
sql = sql & " Password = '" & NewPwd & "'"
sql = sql & " where ID = '"&Session("id")&"'"
on error resume next
Connect.execute sql , row
if err = 0 then
Asp_Messagge = "<font face=""Arial"" size=""2"" color=""lime""><center>La password è stata cambiata con successo!</center>
</font>"
else
Asp_Messagge = "<font face=""Arial"" size=""2"" color=""Red"">ERRORE!!
" & err & "
" & err.description & "</font>"
end if
else
Asp_Messagge = "<font face=""Arial"" size=""2"" color=""Red""><center>Operazione non eseguita! ACCESS DENIED!!</center>
</font>"
end if
end if
%>



E lui mi tira fuori questo errore:
ERRORE!!
-2147217913
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression


I campi sono tutti testo, non riesco a trovare l'errore :/

[Roby_72]

fatti stampare comandosql...

Roby

[br1]

C'e' una evidente inconguenza sul tipo di dati...

comandosql=("select Password FROM tabella_1 WHERE ID=" & session("id"))
...
I campi sono tutti testo, non riesco a trovare l'errore :/