här har jag så att man ska kunna byta lössenord på min sida.. Kanske detta kan vara till nån hjälp:behöver hjälp!!
men det något fel som jag inte själv förstår mig på..
det är nån fel på kopplingen till databasen..
' Skapa en koppling till databasen.
SET RSchange = Server.CreateObject("ADODB.Recordset")
SQL ="SELECT * FROM users WHERE namn = '" & Request.Form ("username") &"'"
'Response.Write SQL
RSchange.Open SQL, Conn
IF Mode ="Change" THEN%>
snälla hjälp mig..
MVH//ParreSv: behöver hjälp!!
Set RSchange = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM users WHERE namn = '" & Request.Form("username") & "'"
RSchange.Open SQL, Conn, 1, 3
If Mode = "Change" Then
If RSchange.EOF Then
Response.Write "User not Found!"
Else
If "" & RSchange("Password") = "" & Request.Form("OldPassword") Then
If "" & Request.Form("NewPassword") = "" & Request.Form("VerifyPassword") Then
RSchange("Password") = Request.Form("NewPassword")
RSchange.Update
Response.Write "Password has been changed!"
Else
Response.Write "Password not verifyed!"
End If
Else
Response.Write "Wrong password!"
End If
End If
End If