ciao ragazzi
ho un problema con un form per il cambio password degli utenti loggati...
ho creato questa pagina ma non funziona...
qualcuno può aiutarmi?!?!?!?
<%
Dim username
Dim Oldpassword
Dim Newpassword
username = Session(Session("username"))
Oldpassword = Replace(Request.Form("Oldpassword"), "'", "''")
Newpassword = Replace(Request.Form("Newpassword"), "'", "''")
Dim Conn
Dim Rs
Dim SQL
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/reg_utenti.mdb")
sqltemp = "SELECT * FROM utenti WHERE username='" &username& "' AND PASSWORD='" &password& "'"
Set rs = Conn.Execute(SQLtemp)
while not rs.eof
If username = rs("username") AND Request.Form("oldpassword") = rs("password") AND Request.Form("newpassword1") = Request.Form("newpassword2") then
SQL = "UPDATE Utenti SET password = '" & Request.Form("newpassword2") & "' WHERE username = '" & username & "'"
Conn.Execute(SQL)
Response.redirect ("updated.asp?PasswordUpdated=successful")
Else
Response.redirect ("incorrect.asp?PasswordUpdated=failed")
End If
rs.MoveNext
Wend
OnError response.Redirect ("incorrect.asp?PasswordUpdated=failed")
rs.Close
Conn.Close
set Conn = Nothing
%>
Grazie!
Rispondi quotando
