HER ER DEN :
<%Response.Buffer = True%>
<html>
<head>
<title>w w w . z e q u e n z e .d k</title>
<style TYPE=\"text/css\">
<!--
A:link { text-decoration: None; color: #000000;}
A:visited { text-decoration: None; color: #000000;}
A:active { text-decoration: None; color: #000000;}
A:hover { text-decoration: None; color: #DBC43B;}
-->
</style>
</head>
<%
if Session(\"password-session\") <> \"\" Then
Response.Redirect(\"bruger.asp\")
end if
SET rs = Server.CreateObject(\"ADODB.Connection\")
rs.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"DB.mdb\")
If Request(\"mode\") = \"Check\" then
Sql = \"Select Count(*) as Found from users where (username = \'\" & Request(\"username\") & \"\') and (password =\'\" & Request(\"password\") & \"\')\"
Set Login = Rs.Execute(Sql)
if Login(\"Found\") = 0 then
Session(\"login\") = 0
error = \"Du har skrevet en forkert Brugernavn eller Password prøv igen eller kontakt Webmarsteren.\"
else
Session(\"Login\") = 1
Session(\"password-session\") = Request(\"username\")
Response.Redirect \"bruger.asp\"
end if
else
end if
%>
<body bgcolor=\"#808080\">
<div align=\"center\">
<center>
<table border=\"1\" cellpadding=\"0\" cellspacing=\"0\" width=\"670\" bordercolor=\"#000000\">
<tr>
<td>
<div align=\"left\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
<tr>
<td width=\"160\" valign=\"top\" align=\"left\"><img border=\"0\" src=\"../images/logodel1.gif\" width=\"160\" height=\"71\"></td>
<td width=\"510\" valign=\"top\" align=\"left\" background=\"../images/top.gif\">
<div align=\"left\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
<tr>
<td valign=\"middle\" align=\"left\"><img border=\"0\" src=\"../images/logodel1b.gif\" width=\"35\" height=\"71\"></td>
<td valign=\"middle\" align=\"left\"><!--#include Virtual=\"banner/banner.asp\" --></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width=\"160\" valign=\"top\" align=\"left\" background=\"../images/menubg.gif\">
<div align=\"left\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
<tr>
<td><img border=\"0\" src=\"../images/logodel2.gif\" width=\"160\" height=\"43\"></td>
</tr>
<tr>
<td><img border=\"0\" src=\"../images/services.gif\" width=\"106\" height=\"26\"><img border=\"0\" src=\"../images/off_knap.gif\" width=\"25\" height=\"26\"></td>
</tr>
<tr>
<td style=\"padding-left: 15\" leftmargin=\"15\" valign=\"middle\"><font face=\"Arial\" size=\"2\"><a href=\"../sms/default.asp\">Almindelig
SMS</a><br>
<a href=\"../chat/default.asp\">
Chatten</a><br>
<a href=\"../logo/default.asp\">
SMS Logo</a><br>
<a href=\"../ringetoner/default.asp\">
SMS Ringetoner</a></font></td>
</tr>
<tr>
<td><font face=\"Arial\" size=\"2\"><a href=\"default.asp\"><img border=\"0\" src=\"../images/login.gif\" width=\"118\" height=\"26\"></a></font><img border=\"0\" src=\"../images/on_dims.gif\"></td>
</tr>
<tr>
<td><font face=\"Arial\" size=\"2\"><a href=\"../admin/default.asp\"><img border=\"0\" src=\"../images/admin.gif\" width=\"121\" height=\"26\"></a><img border=\"0\" src=\"../images/off_knap.gif\" width=\"25\" height=\"26\"></font></td>
</tr>
<tr>
<td><font face=\"Arial\" size=\"2\"><a href=\"../udvikling/default.asp\"><img border=\"0\" src=\"../images/udvikling.gif\" width=\"121\" height=\"26\"></a><img border=\"0\" src=\"../images/off_knap.gif\" width=\"25\" height=\"26\"></font></td>
</tr>
<tr>
<td><font face=\"Arial\" size=\"2\"><a href=\"../bag/default.asp\"><img border=\"0\" src=\"../images/bagomsiden.gif\" width=\"121\" height=\"26\"></a><img border=\"0\" src=\"../images/off_knap.gif\" width=\"25\" height=\"26\"></font></td>
</tr>
<tr>
<td style=\"padding-left: 15\"><font face=\"Arial\" size=\"2\"><a href=\"../hvorfor/default.asp\">Hvorfor?</a><br>
<a href=\"../anbefal/default.asp\">
Anbefal siden</a><br>
<a href=\"../kontakt/default.asp\">
Kontakt</a></font></td>
</tr>
<tr>
<td><a href=\"../tak/default.asp\"><img border=\"0\" src=\"../images/taktil.gif\" width=\"121\" height=\"26\"></a><img border=\"0\" src=\"../images/off_knap.gif\" width=\"25\" height=\"26\"></td>
</tr>
<tr>
<td height=\"20\"></td>
</tr>
<tr>
<td><img border=\"0\" src=\"../images/statustop.gif\" width=\"160\" height=\"26\"></td>
</tr>
<tr>
<td height=\"83\" background=\"../images/statusbg.gif\" style=\"padding-left: 10; padding-right: 10\">
<div align=\"left\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"140\" height=\"74\">
<tr>
<td height=\"24\" width=\"120\"><font face=\"Arial\" size=\"2\">Antal online:
</font></td>
</center>
<td height=\"24\" width=\"76\">
<p align=\"center\"><font face=\"Arial\" size=\"2\"><b>[ </b></font><font face=\"Arial\" size=\"2\"><b><%=Application(\"BrugereOnline\") %></b>
<b>]</b></font></p>
</td>
</tr>
<center>
<tr>
<td height=\"25\" width=\"80\"><font face=\"Arial\" size=\"2\">Antal
Profiler:</font></td>
</center>
<td height=\"25\" width=\"76\">
<p align=\"center\"><font face=\"Arial\" size=\"2\"><b> [
<%
Set Rs = Server.CreateObject(\"ADODB.Connection\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \"\"
Sql = \"Select count(*) as Found from users\"
Set Record = Rs.Execute(Sql)
Ialt = Record(\"found\")
Response.Write Ialt
%> ]</b></font></p>
</td>
</tr>
<center>
<tr>
<td height=\"25\" width=\"90\"><font face=\"Arial\" size=\"2\">Logget på:</font></td>
</center>
<td height=\"25\" width=\"76\">
<p align=\"center\"><font face=\"Arial\" size=\"2\"><b>
[ <%=session(\"password-session\")%> ]</b></font></p>
</td>
</tr>
</table>
</div>
</td>
</tr>
<center>
<tr>
<td><img border=\"0\" src=\"../images/statusbund.gif\" width=\"160\" height=\"9\"></td>
</tr>
<tr>
<td></td>
</tr>
</table>
</div>
</center>
</td>
<td width=\"510\" valign=\"middle\" align=\"left\" background=\"../images/mainbg.gif\">
<form method=\"POST\" action=\"bruger.asp\">
<input type=\"hidden\" name=\"mode\" VALUE=\"Check\">
<table border=\"0\" width=\"100%\" cellspacing=\"1\">
<tr>
<td width=\"100%\"><b>
<p align=\"center\"><font face=\"Arial\" size=\"3\"><%=error%>
</font>
</b></td>
</tr>
</table>
<p align=\"center\"><font face=\"Arial\" size=\"2\">Skriv Brugernavn og
Password for at logge ind..</font></p>
<div align=\"center\">
<table border=\"0\" width=\"20%\" cellspacing=\"0\" cellpadding=\"2\" height=\"88\">
<tr>
<td width=\"50%\" height=\"25\"><font face=\"Arial\" size=\"2\">Brugernavn:</font></td>
<td width=\"50%\" height=\"25\"><font face=\"Arial\" size=\"3\"><input type=\"text\" name=\"username\" size=\"20\" style=\"font-size: 10 pt; font-family: Arial\"></font></td>
</tr>
<tr>
<td width=\"50%\" height=\"25\"><font face=\"Arial\" size=\"2\">Password:</font></td>
<td width=\"50%\" height=\"25\"><font face=\"Arial\" size=\"3\"><input type=\"password\" name=\"password\" size=\"20\" style=\"font-size: 10 pt; font-family: Arial\"></font></td>
</tr>
</table>
<table border=\"0\" width=\"100%\">
<tr>
<td width=\"100%\">
<p align=\"center\"><font face=\"Arial\" size=\"3\"><input type=\"submit\" value=\"Login\" name=\"submit\" style=\"font-size: 10 pt\"></font><p align=\"center\"><a href=\"opret.asp\"><font color=\"#000000\" face=\"Arial\" size=\"2\">Opret
en ny bruger</font></a><font color=\"#000000\" face=\"Arial\" size=\"2\">
- </font><a href=\"glemtpw.asp\"><font face=\"Arial\" size=\"2\" color=\"#000000\">Glemt
dit password</font></a></td>
</tr>
</table>
</div>
</form>
</td>
</tr>
<tr>
<td width=\"670\" valign=\"middle\" align=\"left\" background=\"../images/bund.gif\" height=\"21\" colspan=\"2\">
<p align=\"center\"><font face=\"Arial\" size=\"1\" color=\"#808080\">Copyright
© Zequenze 2001</font></p>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
