<html>
<head>
<title>Login</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK REL="StyleSheet" HREF="default.css" type="text/css">
</head>
<body>
<%
Dim fejl, username, password
fejl = false
brugernavn = Trim(Replace(Request.Form("brugernavn"), "'", "''"))
password = Trim(Replace(Request.Form("password"), "'", "''"))
If brugernavn = "" Then
Response.Write "<p><font color=red>Indtast venligst dit brugernavn!</p></font>"
fejl = true
End If
If password = "" Then
Response.Write "<p><font color=red>Indtast venligst dit password!</p></font>"
fejl = true
End If
If fejl = true Then
Response.Write "<p><a href=java script:history.back()>Tilbage</a>"
End If
If fejl <> true Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("brugere.mdb")
Conn.Open DSN
Dim samletAntal
strSQL = "SELECT * FROM brugere WHERE brugernavn='" & brugernavn & "' and Password = '" & password & "'"
Set rs = Conn.Execute(strSQL)
If Not rs.eof Then
Response.Write "<p><b>Login godkendt!</b>"
Response.Write "<p>Du er nu logget på som '" & rs("brugernavn") & "'</p>"
Session("login") = true
Session("brugernavn") = rs("brugernavn")
Session("userid") = rs("id")
Conn.Execute("UPDATE brugere SET sidste_login='" & Now & "' WHERE id=" & Session("userid"))
Response.Write "<p><a href='default.asp'>Til forsiden</a></p>"
If request.form("save") = "on" then
Response.Cookies("Brugere")("brugernavn") = session("brugernavn")
Response.Cookies("Brugere")("password") = password
Response.Cookies("Brugere").expires = Date+365 'Information gemmes i cookie i et år, hvis brugeren har valgt at gemme information
Else
Response.Cookies("Brugere").expires = Date-1000 'Information slettes ved at sætte "expires" 1000 dage tilbage, idet brugeren har valgt at slette information
End If
Else
Response.Write "<p><font color=red>Du blev ikke logget ind! Du har muligvis indtastet forkert brugernavn eller password!</font></p>"
Response.Write "<p><a href=java script:history.back()>Tilbage</a></p>"
End If
Conn.Close
Set Conn = Nothing
End If
%>
</body>
</html>
