ciao a tutti ho un problema con un form per il cambio password degli utenti loggati...
ieri avevo creato un altro post ma non è andato a buon fine...oggi ho riscritto tutta la pagina ma ancora non funziona...
qualcuno può aiutarmi?!?!?!?

<%
Dim username
Dim Oldpassword
Dim Newpassword1
Dim Newpassword2

username = Session(Session("username"))
Oldpassword = Replace(Request.Form("Oldpassword"), "'", "''")
Newpassword1 = Replace(Request.Form("Newpassword1"), "'", "''")
Newpassword2 = Replace(Request.Form("Newpassword2"), "'", "''")


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")
Set rs=Server.CreateObject("ADODB.recordset")
SQL = "SELECT * FROM utenti WHERE username = '"&Session("username")&"' AND password ='"&Oldpassword&"'"
rs.Open SQL, Conn

WHILE not rs.EOF
rs.MoveNext
WEND
Set rs=nothing

Set rs=Server.CreateObject("ADODB.recordset")
SQL = "UPDATE utenti SET password = "&Request.Form("Newpassword2")&" WHERE username = "&Session("username")&""
Response.Write SQL
If username = " & username & " AND Request.Form("Oldpassword") = rs("password") AND Request.Form("Newpassword1") = Request.Form("Newpassword2") then
rs.Open SQL, Conn
Response.write "Dati Aggiornati"
Set rs=nothing
Conn.close
Set Conn=nothing
ELSE
Response.Redirect ("http://www.miosito.it/incorrect.asp")
Set rs=nothing
Conn.close
Set Conn=nothing
END IF

%>

grazie mille