min admin_login ser sådan ud nu:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Systematics køkken</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
@import url("systematic.css");
-->
</style>
</head>
<body class="overskrifter">
<table width="508" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="80"><img src="grafik/trans.gif" width="80" height="30" border="0"></td>
<td width="428"></td>
</tr>
<tr>
<td></td>
<td valign="top" class="overskrifter">Administration<br>
<img src="grafik/trans.gif" width="6" height="20"> </td>
</tr>
<tr>
<td></td>
<td valign="top" class="broedtxt"><form name="login" action="login.asp" method="post">
<table cellspacing="0" cellpadding="3">
<tr>
<td width="75" height="30" class="broedtxt"> Brugernavn</td>
<td width="150"> <input name="nick" type="text" value="<%If Request.Cookies("brugernavn") <> "" Then Response.Write Request.Cookies("brugernavn")%>">
</td>
<td colspan="2" class="personaletitel"> </td>
</tr>
<tr>
<td height="30" class="broedtxt"> Kodeord</td>
<td> <input name="kodeord" type="password" value="<%If Request.Cookies("kodeord") <> "" Then Response.Write Request.Cookies("kodeord")%>">
</td>
<td width="77" class="personaletitel"><img src="grafik/trans.gif" width="6" height="6">Gem
log ind</td>
<td width="20" class="personaletitel"><input type="checkbox" name="remember" value="yes" <%If Request.Cookies("remember")="yes" Then Response.Write "checked"%>></td>
</tr>
<tr>
<td height="45"align="center"></td>
<td height="45"><input type="hidden" name="strMode" value="login">
<input name="submit" onFocus="this.blur()" type="submit" class="button" value="Login"></td>
<td colspan="2" class="personaletitel"></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
og min login sådan her:
<%
strMode = request.form("strMode")
If strMode <> "login" then
response.redirect "administration.asp"
else
Set strCon = Server.CreateObject("ADODB.Connection")
adoCon = "DRIVER={Microsoft Access Driver (*.mdb)}; "
adoCon = adoCon & "DBQ=" & Server.MapPath("users.mdb")
strCon.Open adoCon
'Create recorset object
Set rsCheckUser = Server.CreateObject("ADODB.Recordset")
strNick = request.form("nick")
strKodeord = request.form("kodeord")
If Request.Form("remember") = "yes" Then
Response.Cookies("remember")="yes"
Response.Cookies("brugernavn")=Request.Form("nick")
Response.Cookies("kodeord")=Request.Form("kodeord")
Else
Response.Cookies("remember")="no"
Response.Cookies("brugernavn")=""
Response.Cookies("kodeord")=""
End If
' laver et record med med det indtaste user med databasen, samt tilhørende password
strSQL = "SELECT admin.navn, admin.nick, admin.kodeord, admin.email "
strSQL = strSQL & "FROM admin "
strSQL = strSQL & "WHERE admin.nick ='" & strNick & "'"
' record laves
rsCheckUser.Open strSQL, strCon
If NOT rsCheckUser.EOF Then
'læser password fra recordsettet
If (strKodeord) = rsCheckUser("kodeord") Then
'hvis password er korrekt sættes session variablen UserGood til true
Session("UserGood") = True
Session("nick") = StrNick
Session("kodeord") = rsCheckUser("kodeord")
Session("email") = rsCheckUser("email")
Session("navn") = rsCheckUser("navn")
Response.Cookies("devPartyOn").Domain = "
www.heian.dk" Response.Cookies("devPartyOn") = rsCheckUser("nick")
Response.Cookies("devPartyOn").Expires = date + 365
'resetter objekterne før redirecting
Set rsCheckUser = Nothing
Set strCon = Nothing
Set adoCon = Nothing
'Redirect til admin siden
Response.Redirect"administration.asp"
End If
End If
'resetter server objects
Set rsCheckUser = Nothing
Set strCon = Nothing
Set adoCon = Nothing
'eller er brugeren ikke godkendt
Session("UserGood") = False
Session("nopass") = True
'redirigerer til en anden side
Response.Redirect"admin_login.asp"
end if
%>
<html>
<body>
</body>
</html>
