<%
Response.Buffer = True
usr = Request.Form(\"username\")
pass = Request.Form(\"password\")
SET rs = Server.CreateObject(\"ADODB.Connection\")
rs.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db.mdb\")
SQL = \"SELECT * FROM users WHERE Username = \'\" & usr & \"\' AND Password = \'\" & pass & \"\'\"
Set RSChek = rs.Execute(SQL)
If RSChek.EOF Then
Response.Redirect(\"default.asp\")
Else
session(\"password-session\") = usr
End If
if request(\"Mode\") = \"logaf\" then
session.Abandon
Response.Redirect(\"default.asp\")
end if
IF Session(\"password-session\") = \"\" Then
Response.Redirect(\"default.asp\")
end if
Sql = \"Select * FROM users WHERE username = \'\" & session(\"password-session\") & \"\'\"
set rs = rs.Execute(SQL)
%>
<head>
<title></title>
</head>
<body link=\"#800000\" vlink=\"#800000\" alink=\"#800000\">
<table border=\"0\" width=\"100%\" height=\"100%\">
<tr>
<td width=\"100%\">
<p align=\"center\"><b><font color=\"#003366\">Velkommen <% = rs(\"RigtigNavn\") %>
/ </font><a href=\"bruger.asp?mode=logaf\"><font color=\"#003366\">Log af</font></a><font color=\"#003366\">
</font><a href=\"inbox.asp\"><font color=\"#003366\">Tjek din post</font></a></b>
<p align=\"center\"><b><font color=\"#003366\">Du er nu
logget ind</font></b></p>
<p align=\"center\"><b><font color=\"#003366\">Denne side er stadig under
kniven, men vend endelig tilbage meget snart, så skulle nogle af DINE
funktioner være klar.</font></b>
<p align=\"center\"> <p align=\"center\"><b><font color=\"#003366\">Prøv
også chatten på </font><a href=\"
http://www.zequenz.dk\"><font color=\"#003366\">
www.zequenz.dk</font></a><font color=\"#003366\">
</font></b><p align=\"center\"><b><font color=\"#003366\">1 : Tryk på
services til højre<br>
2 : Vælg Chat <br>
3 : Log din ind med dit navn</font></b></td>
</tr>
</table>