<%Response.Expires = 0%>
<%session.Timeout = 60%>
<%mode= trim(" " & Request.QueryString("mode"))%>
<%user = trim(" " & Request.QueryString("user"))%>
<%if mode = "logout" then
session("admin") = "logout"
session("admin") = ""
Response.Write "du er nu logget ud"
mode = ""
end if%>
<%if mode = "login" then
Set cnT = Server.CreateObject("ADODB.Connection")
Set rsT = Server.CreateObject("ADODB.RecordSet")
cnT.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("_private/db/db.mdb")
user = trim(" " & Request.Form("user"))
SQLT = "SELECT admin.*, admin.user, admin.pass FROM admin "
SQLT = SQLT & "WHERE (((admin.user)='" & user & "') AND ((admin.pass)='" & Request.Form("pass") & "'));"
rsT.Open SQLT, cnT, 1,3
if rsT.EOF = false Then
session("admin") = "yes"
session("user") = user
pass1 = Trim(" " & Request.Form("newpass1"))
pass2 = Trim(" " & Request.Form("newpass2"))
islogin = true
if pass1 <> "" Then
if pass1 = pass2 then
rsT("pass") = pass1
rsT.Update
Response.Write "Dit kodeord er nu ændret"
else
Response.Write "
De 2 nye kodeord er ikke ens. Prøv venligst igen
"
session("admin") = ""
end if
end if
Response.Redirect("index_admin.asp")
else
session("admin") = ""
mode = ""
Response.Write "Brugernavnet eller kodeordet er ikke korrekt, prøv venligst igen"
end if
rsT.Close
Set rsT = Nothing
end if%>
<%if islogin <> true then%>
<%end if%>
<%if islogin = true then%>