Hmm, Noget galt her :(
<%on error resume next
fejl = \"\"
if session(\"loggedin\") <> \"\" then response.redirect \"admin_options.asp\"
If Request(\"Submit\")<>\"\" Then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & \"DBQ=\" & \"d:\\home\\cyber4alldk\\www\\esf\\members.mdb\" & \";\"
Conn.Open DSN
Set Wall = Server.CreateObject(\"ADODB.RecordSet\")
Wall.Open \"Select * From Members where Nick =\'\" & Request.Form(\"navn\") & \"\'\", Conn
if Request.Form(\"navn\") = wall(\"nick\") and Request.Form(\"password\") = wall(\"password\") then session(\"loggedin\") = wall(\"nick\")
Else
session(\"loggedin\") = \"\"
fejl = \"Forkert brugernavn eller password. Prøv igen!\"
End If
%>
<html>
<head>
<title>Login</title>
</head>
<body bgcolor=\"#FFFFFF\">
<form action=\"login.asp\" method=\"post\">
<table><tr><td></td>
<td colspan=\"2\"><font color=\"#000000\" face=\"verdana\" size=\"2\"><b></b></font></td></tr>
<%If fejl <> \"\" Then%>
<tr><td></td>
<td colspan=\"2\"><center><font size=1 face=verdana color=red><%=fejl%></font></center> </td></tr>
<%End If%>
<tr> <td></td>
<td><font size=2 face=verdana style=\"color: #000000\">Brugernavn:</font></td>
<td><Input type=\"text\" name=\"navn\"></td></tr>
<tr><td></td>
<td ><font size=2 face=verdana style=\"color: #000000\">Password: </font></td>
<td><input type=\"password\" name=\"password\"></td></tr>
<tr><td></td>
<td colspan=\"2\"><center><input type=\"submit\" name=\"submit\" value=\"Login\"></center> </td></tr>
<tr><td></td>
<td colspan=\"2\"><center><font size=2 face=verdana></font></center></td>
</tr>
</table>
</form>
</body>
</html>
^^ ser ud til at den bare refresher siden... se eksempel på http://esf.cyber4all.com/login.asp
