Hele filen ser således ud:
<%
'Her vælger vi at fange alle fejl selv.
'On Error Resume Next
'Her sletter vi alle tidligere cookies, det vil sige at man kan linke til denne side for at logge en bruger ud
'Session.Contents.RemoveAll()
'Her sætter vi sessions til nul...dvs brugeren er logget ud
session("loginOK") = ""
session("loginMemberID") = ""
session("loginUserType") = ""
'Hvis der er klikket på knappen der har navnet Action
If (Request.Form("Action") <> "") Then
'Hvis der er sat hak i checkboksen twLogonGemBrugernavn
If (Request.Form("twLogonGemBrugernavn") = "True") Then
'Gem bruernavn og password i cookie
Response.Cookies("twLogonLastLogon")("Brugernavn") = Request.Form("username")
Response.Cookies("twLogonLastLogon")("Password") = Request.Form("password")
'Gem også værdien af checkboksen
Response.Cookies("twLogonLastLogon")("Gembrugernavn") = "True"
'Sæt cooikien til at udløbe efter 7 dage
Response.Cookies("twLogonLastLogon").Expires = DateAdd("d", 7, Date)
'Hvis der ikke er sat hak i checkboksen
Else
'sletter vi alle informationer
Response.Cookies("twLogonLastLogon")("Brugernavn") = ""
Response.Cookies("twLogonLastLogon")("Password") = ""
'og gemmer denne indstilling
Response.Cookies("twLogonLastLogon")("Gembrugernavn") = "False"
'Her sættes cookien til at udløbe med det samme
Response.Cookies("twLogonLastLogon").Expires = Date-1
End If
'Her bestemmer vi at kun det domæne cookien er lavet på må bruge koden
Response.Cookies("twLogonLastLogon").Domain = Request.ServerVariables("SERVER_NAME")
'og det samme med stien inden for domænet.
Response.Cookies("twLogonLastLogon").Path = Left(Request.ServerVariables("SCRIPT_NAME"),InStrRev(Request.ServerVariables("SCRIPT_NAME"),"/")-1)
'Hvis der er udfyldt et brugernavn kører vi dit loginscript.
If (Request.Form("username") <> "") Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../../cgi-data/opgave.mdb")
Conn.Open DSN
username = replace(Request.Form("username"),"'","")
password = replace(Request.Form("password"),"'","")
strSQL= "SELECT * FROM tblBrugere WHERE (Brugernavn = '" & username & "' AND Password='" & password & "');"
Set rs = Conn.Execute (strSQL)
if not rs.EOF then
session("loginOK") = "JA"
session("loginMemberID") = rs("MemberID") 'Gemmer også memberID...
session("loginUserType") = rs("Type") 'hent og gem userType
Conn.Close
ID = Request.QueryString("ID")
Response.write "ID = " & ID
Response.end
if CInt(session("loginUserType")) = 0 then 'bruger
Response.Redirect ("../bruger/info.asp?ID="&ID) 'Send til bruger.asp side
elseif CInt(session("loginUserType")) = 1 then 'Admin
Response.Redirect ("../bruger/info.asp?ID="&ID) 'Send til administrator.asp side
else 'hvis userType er forskelligfra 0 og 1
Response.Redirect("logininfo.asp") 'Send til førete side
end if
else
'Fejl i brugernavn eller password
Response.Redirect("../index.asp")
end if
End If
End If
%>
<html>
<title>
www.hello.dk/IT</title><link rel="stylesheet" type="text/css" href="../style/style.css">
<head>
</head>
<body text="#000000">
<p align="right"><img src="../billeder/toplogo.gif"></p>
<table width="100%" height="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="150" border="0" cellspacing="1" cellpadding="5" align="center" bgcolor="#666666">
<tr>
<td align="center" bgcolor="#FFFFFF">
<table width="140" border="0" cellspacing="0" cellpadding="0">
<form method="post" action="logininfo.asp" name="adminlogin">
<tr>
<td align="center"><img src="../billeder/brugernavn.gif"></td>
</tr>
<tr>
<!-- Herunder udskriver vi det der står i cookien under brugernavn og password -->
<td align="center">
<input type="text" name="username" value="<%=Request.Cookies("twLogonLastLogon")("Brugernavn")%>" style="width:135px; color: #666666; border-width: 1px; border-style: solid; border-color: #666666">
</td>
</tr>
<tr>
<td align="center"><img src="../billeder/password.gif"></td>
</tr>
<tr>
<td align="center">
<input type="password" name="password" value="<%=Request.Cookies("twLogonLastLogon")("Password")%>" style="width:135px; color: #666666; border-width: 1px; border-style: solid; border-color: #666666">
</td>
</tr>
<tr>
<!-- Herunder tjekker om der i cookien står at der skal gemmes en cookie el. om der ikke står noget om at der ikke skal -->
<td align="center">
<input name="twLogonGemBrugernavn" type="checkbox" value="True" <%If ((Request.Cookies("twLogonLastLogon")("Gembrugernavn") = "True") Or (Not Request.Cookies("twLogonLastLogon")("Gembrugernavn") = "False")) Then Response.Write "checked"%>>
<img src="../billeder/gem.gif"></td>
</tr>
<tr>
<td align="center">
<input type="submit" value="Login" name="Action" class="index"><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Log ind for at se status på opgaven.</font>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<!-- Det her javascript flytter så cursoeren mellem felterne, men det er ikke så brugbart når man gemmer både password og brugernavn... så det egentlig slettes. -->
<%
If (Request.Cookies("twLogonLastLogon")("Brugernavn") <> "") Then
%>
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
<!--
document.adminlogin.username.focus();
//-->
</SCRIPT>
<%
Else
%>
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
<!--
document.adminlogin.password.focus();
//-->
</SCRIPT>
<%
End If
%>
</td>
</tr>
<tr>
<td valign="bottom">
<table border="0" cellspacing="1" cellpadding="5" align="center" bgcolor="#666666">
<tr>
<td align="center" bgcolor="#FFFFFF"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">If you would like to visit the website of hello Denmark, <a href="
http://www.hello.dk/" class="link"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">click here</font></a></font></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>