<%
Response.Buffer = True
%>
<html>
<head>
</head>
<table border="0" width="100%" height="100%">
<tr>
<td width="100%">
<hr>
<p> </p>
<table border="0" width="100%" bordercolor="#000000" style="border-style: solid; border-width: 0">
<tr>
<td width="20%" style="border-style: solid; border-width: 1" align="center" valign="top"><b><font face="Arial" size="2"><u>Din
IP<br>
</u>
</font></b>
<a href="
http://<%=Request.ServerVariables("REMOTE_ADDR")%>"><font face="Arial" color="#000000" size="2"><u><b><%=Request.ServerVariables("REMOTE_ADDR")%></b></u></font></a>
</td>
<td width="20%" style="border-style: solid; border-width: 1" align="center" valign="top"><b><font face="Arial" size="2"><u>Dato/Tid<br>
<%=date() & " - " & time()%> </u></font></b>
</td>
<td width="20%" style="border-style: solid; border-width: 1" align="center" valign="top">
<form method="POST" action="default.asp">
<%
Response.Buffer = True
%>
<p align="center"><select style="font-family: Arial; font-size: 10 pt" size="1" name="url">
<option value="default.asp">..:: Scripts ::..</option>
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
if Request.form("url") <> "" then
Response.Redirect Request.form("url")
else
Response.Redirect "default.asp"
end if
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("database.mdb")
Set rs = Conn.Execute("select * from drop")
Do until rs.eof
%>
<option value="<%=rs("vaerdi")%>"><%=rs("dropout")%></option>
<%
rs.movenext
loop
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</select><br>
<input type="submit" value="Gå til siden" </p style="background-color: #FFFFFF; border-style: double; border-width: 1">
</form>
</td>
<td width="20%" style="border-style: solid; border-width: 1" align="center" valign="top"><b><font face="Arial" size="2"><a href="admin.asp"><font color="#000000">Administrationen</font></a></font></b></td>
<td width="20%" align="center" style="border-style: solid; border-width: 1" valign="top"><b><font size="2" face="Arial"><u>Besøgende</u><br>
<u>
<%
If Request.Cookies("visited")("state") = "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")
Conn.Execute "INSERT INTO ip(ip) VALUES ('" & Request.ServerVariables("REMOTE_ADDR") & "');"
Response.Cookies("visited")("state") = "yes"
Response.Cookies("visited").Expires = DateAdd("d", 1, Now)
End If
%>
</u>
</font></b>
<u>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")
Set Rs = Conn.Execute("SELECT COUNT(*) FROM ip;")
%>
</u>
<b><font face="Arial" size="2"><u><%=Rs(0)%>
</u>
</font></b></td>
</tr>
</table>
<p> </p>
<hr>
</td>
</tr>
</table>