If request.form("rememberme") = "yes" then Response.Cookies("brugerlogin")("Brugernavn") = stremail Response.Cookies("brugerlogin")("Password") = strpassword Response.Cookies("brugerlogin").expires = Date+365 Else Response.Cookies("brugerlogin").expires = Date-1000
End If
Set loginconnection = Server.CreateObject("ADODB.Connection") loginconnection.Open MM_frisornetdata_STRING
If request.form("rememberme") = "yes" then set findtheuser = loginconnection.Execute("SELECT * FROM medlemmer where Bemaile <> '' AND Bemaile ='" & Request.Cookies("brugerlogin")("Brugernavn") &"' and Bpassword ='" & Request.Cookies("brugerlogin")("password") & "' AND Bpassword <> '' AND Bstatus ='aktiv'") else set findtheuser = loginconnection.Execute("SELECT * FROM medlemmer where Bemaile <> '' AND Bemaile ='" & stremail &"' and Bpassword ='" & strpassword & "' AND Bpassword <> '' AND Bstatus ='aktiv'") end if
if not findtheuser.EOF then session("brugersession") = stremail session("brugersessionpass") = strpassword
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.