<%
' Hvis der er blevet trykket på knappen "Login"
If Request.Form("Action") = "Login" Then
' Her forberedes de indtastede værdier til validering
strUID = Trim(Replace(Request.Form("Brugernavn"),"'",""))
strPWD = Trim(Replace(Request.Form("Adgangskode"),"'",""))
' Hvis der er skrevet noget i både brugernavn og adgangskode
If Len(strUID) > 0 And Len(strPWD) > 0 Then
' DSNLess forbindelse til databasen
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\web\localuser\pivskid.dk\database\fuglegaarden.mdb"
' Opbygning af SQL streng
strSQL = "SELECT UserID FROM users"&_
" WHERE (Username = '" & strUID & "')"&_
" AND (Password = '" & strPWD & "')"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis brugeren fandtes i databasen
intUID = rs("UserID")
Else
' Hvis brugeren ikke fandtes i databasen
strERR = "Du blev ikke godkendt af systemet"
End If
' Rydder op i vores connection objekt
myConn.Close
Set myConn = Nothing
If Len(intUID) Then
' Hvis variablen intUID indeholder en værdi sættes denne i sessionen "UserID" og brugeren bliver sendt videre
Session("UserID") = intUID
Response.Redirect("admin.asp")
End If
Else
' Hvis der ikke var angivet brugernavn og adgangskode
strErr = "Du skal skrive både brugernavn og adgangskode"
End If
If Len(strErr) > 0 Then
' Her laves fejlmeddelsen om til rød skrift
strErr = "<p><font color=red>" & strErr & "</font></p>"
End If
End If
%>
<html>
<head>
<title>Login script</title>
<script>
function resize() {
if (parent.document.all.iframe)
parent.document.all.iframe.style.height = document.body.scrollHeight;
}
</script>
</head>
<body style="background-color:transparent;">
<form method="POST" action="login.asp" target="_blank">
<b><font face="Verdana" size="1">Administrations Login<%=strErr%>
</font></b>
<table border="0">
<tr>
<td width="50%"><font face="Verdana" size="1">Brugernavn:</font></td>
<td width="50%"><font size="1" face="Verdana"><input type="text" name="Brugernavn" size="20">
</font> </td>
</tr>
<tr>
<td width="50%"><font face="Verdana" size="1">Adgangskode:</font></td>
<td width="50%"><font size="1" face="Verdana"><input type="password" name="Adgangskode" size="20">
</font>
</td>
</tr>
</table>
<p><font size="1" face="Verdana"><input type="submit" value="Login" name="Action"></font></p>
</form>
</body></html>
