Fejl i password
Hej eksperter....jeg ved ikke om jeg har set mig blind på dette. men kan ikke se fejlen, den meddeler mig uanset hvad jeg gør at den ikke kan og sender mig til ændre login siden....
nogen der kan se fejlen:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("guest.mdb")
strSQL = "Select * FROM password WHERE password = '" & request.form("gammelt") & "'"
set rs = conn.execute(strSQL)
if rs.eof then
session("fejl") = "ja"
response.redirect("bruger.asp?side=password")
end if
dim nyt
nyt = request.form("nyt")
dim gentag
gantag = request.form("gantag")
if not "nyt" = "gentag" then
session("fejl") = "ja"
response.redirect("bruger.asp?side=password")
else
SQL_update = "Update password SET password = '" & request.form("nyt") & "' WHERE id = 1"
conn.execute(SQL_update)
response.redirect("bruger?side=godnok")
end if
%>
håber i vil/kan hjælpe.
mvh.
Questis.dk
