Hvorfor virker det ikke ?
Hmmm jeg er ved og lave lidt autologin på mit login system, men hvorfor virker det her ikke:Delen der logger brugeren ind:
<% if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
brugernavn = Server.HTMLEncode(Request.Form(\"brugernavn\"))
brugerkode = Server.HTMLEncode(Request.Form(\"brugerkode\"))
if brugernavn = \"\" then
Response.Write \"<font color=\"\"red\"\"><b>Du har ikke udfyldt brugernavn</b></font><br>\"
fejl = True
end if
if brugerkode = \"\" then
Response.Write \"<font color=\"\"red\"\"><b>Du har ikke udfyldt adgangskode</b></font><br>\"
fejl = True
end if
if fejl <> True then
Set rs = Conn.Execute(\"select * from bruger where brugernavn = \'\" & brugernavn & \"\'\")
if rs.eof or rs.bof then
Response.Write \"<font color=\"\"red\"\"><b>Brugernavnet eksisterer ikke</b></font>\"
else
if brugerkode = rs(\"brugerkode\") then
Session(\"navn\") = brugernavn
if Request.Form(\"login_auto\") = \"on\" then
Response.Cookies(\"ekspertsalg\")(\"autologin\") = \"login\"
Response.Cookies(\"ekspertsalg\")(\"autologin_navn\") = brugernavn
Response.Cookies(\"ekspertsalg\")(\"autologin_kode\") = brugerkode
Response.Write \"Autologin er nu aktiveret\"
end if
\'Response.Redirect(\"indstillinger.asp\")
else
Response.Write \"<font color=\"\"red\"\"><b>Adgangskoden er forkert</b></font>\"
end if
end if
end if
end if %>
Delen der tjecker om autologin er sat til og hvis den er logger den brugeren ind (Den bliver includet i alle siderne):
<%
if Request.Cookies(\"ekspertsalg\")(\"autologin\") = \"login\" then
Set rs = Conn.Execute(\"select * from bruger where brugernavn = \'\" & Request.Cookies(\"ekspertsalg\")(\"autologin_navn\") & \"\'\")
if rs(\"brugerkode\") = Request.Cookies(\"ekspertsalg\")(\"autologin_kode\") then
Session(\"navn\") = Rs(\"brugerNavn\")
end if
end if
%>
Nogen der kan se hvad problemet er ?
