<html>
<head>
<title>CamBoy.dk</title>
</head>
<body background=\"images/bg.gif\" bgcolor=\"#FFFFFF\" link=\"#0000FF\" vlink=\"#FF0000\" alink=\"#FF0000\">
<div align=\"center\"><center>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"
height=\"95%\">
<tr>
<td align=\"center\">
<a href=\"
http://tracker.tradedoubler.com/tracker.asp?code=305154\"><img border= 0 src=\"
http://www.amante.dk/gfx/banners/banner_468x60_1.gif\"></a><table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
<tr>
<td valign=\"top\"><table border=\"0\" cellpadding=\"0\"
cellspacing=\"0\" width=\"140\" background=\"baggrund.gif\">
<tr>
<td background=\"images/baggrund.gif\"><a href=\"index.asp\"><img src=\"images/camboy-dk.GIF\" width=\"176\" height=\"52\" border=\"0\"></a></td>
<td background=\"images/baggrund.gif\"><img src=\"images/velkommen.GIF\" width=\"320\"
height=\"52\"></td>
<td><MAP NAME=\"eng\">
<AREA SHAPE=\"rect\" COORDS=\"73,18,110,38\" HREF=\"eng/jacobs.asp\" alt=\"This page in English\">
</MAP><IMG SRC=\"images/right_cornor.GIF\" WIDTH=\"140\" HEIGHT=\"52\" ALIGN=\"middle\" BORDER=\"0\" Alt=\"\" USEMAP=\"#eng\"
ISMAP></td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign=\"top\" background=\"images/baggrund.gif\"><table
border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
<tr>
<td><div align=\"center\"><center><table border=\"0\"
cellpadding=\"0\" cellspacing=\"0\">
<tr>
<td><a href=\"mitcam.asp\"><img src=\"images/mitcam.gif\" border=\"0\" width=\"176\" height=\"52\"></a></td>
</tr>
<tr>
<td valign=\"top\"><a href=\"jacobs.asp\"><img src=\"images/jacob.gif\" border=\"0\" width=\"176\" height=\"52\"></a></td>
</tr>
<tr>
<td><a href=\"galleri.asp\"><img src=\"images/galleri.gif\" border=\"0\" width=\"176\" height=\"52\"></a></td>
</tr>
<tr>
<td><a href=\"links.asp\"><img src=\"images/links.gif\" border=\"0\" width=\"176\" height=\"52\"></a></td>
</tr>
<tr>
<td><a href=\"chat.asp\"><img src=\"images/chat.gif\" border=\"0\" width=\"176\" height=\"52\"></a></td>
</tr>
</table>
</center></div></td>
<td valign=\"top\" width=\"320\" td><p align=\"left\"><br>
<b><%@ LANGUAGE=VBScript%>
<!--#include file=\"setup.asp\"-->
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DB = \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & \"DBQ=\" & STI & \";\"
stack = \"2.5\"
%>
<% If Request(\"mode\") = \"\" then
Response.redirect \"tagwall.asp?mode=se&tags=normal\"
End If
%>
<% If Request(\"mode\") = \"se\" then %>
<html>
<head><title>TAGWALLEN</title>
</head>
<body bgcolor=\"#C8C8C8\"><LINK REL=\"Stylesheet\" TYPE=\"text/css\" HREF=\"tagwall.css\">
<!--
TAGWALLEN er lavet af Mads Sülau Jørgensen.
webmaster@tanke.dk
-->
<%
Conn.Open DB
Set Wall = Server.CreateObject(\"ADODB.RecordSet\")
If tags = \"alle\" Then
Wall.Open \"Select * From TagWall Order by id desc\", Conn
Else
Wall.Open \"Select Top \" & tags & \" * From TagWall Order by id desc\", Conn
End If
If Wall.Eof then
Response.Write \"<br>\"
Response.Write \"<table align=\"\"center\"\" width=\"\"300\"\">\"
Response.Write \"<tr><td><font face=\'Tahoma\' size=\'-4\'><b>Tagwallen er tom...</b></font></td></tr>\"
Response.Write \"</table></body></html>\"
Else
%>
<% Do While Not Wall.EOF %>
<%
smil = wall(\"message\")
If disable = \"ja\" Then
smil = Replace(smil, \"<\", \"<\")
smil = Replace(smil, \">\", \">\")
End If
If smiley = \"ja\" Then
smil = Replace(smil, \":)\", \"<img width=15 height=15 border=0 src=\"\"smileys/smiley-happy.gif\"\">\")
smil = Replace(smil, \";)\", \"<img width=15 height=15 border=0 src=\"\"smileys/wink.gif\"\">\")
smil = Replace(smil, \":(\", \"<img width=15 height=15 border=0 src=\"\"smileys/angry.gif\"\">\")
smil = Replace(smil, \":D\", \"<img width=15 height=15 border=0 src=\"\"smileys/biggrin.gif\"\">\")
smil = Replace(smil, \":P\", \"<img width=15 height=15 border=0 src=\"\"smileys/biggrin2.gif\"\">\")
smil = Replace(smil, \":}\", \"<img width=15 height=15 border=0 src=\"\"smileys/tongue.gif\"\">\")
smil = Replace(smil, \";o\", \"<img width=15 height=15 border=0 src=\"\"smileys/redface.gif\"\">\")
smil = Replace(smil, \";}\", \"<img width=15 height=15 border=0 src=\"\"smileys/smiley8.gif\"\">\")
End If
smil = Replace(smil,vbCrLf ,\" <br>\")
%>
<table align=\'center\' width=\'300\'>
<tr><td><font face=\"Tahoma\" size=\"2\"><b>Nick:</b> <%=Wall(\"Nick\")%></td></tr>
<tr><td><font face=\"Tahoma\" size=\"2\"><b>Tag:</b> <%=smil%></font></td></tr>
<%
If mail_action = \"Ja\" Then
If Wall(\"Mail\") <> \"\" Then Response.Write \"<tr><td><font face=\"\"Tahoma\"\" size=\"\"2\"\"><b>E-Mail:</b> <a href=# OnClick=\"\"java script:window.open(\'tagwall.asp?mode=mailsend&type=mail&ard=\" & wall(\"Mail\") & \"\',\'pridewindow\',\'width=298,height=190,scrollbars=no,resize=no,toolbar=no,status=no\');\"\">\" & Wall(\"mail\") & \"</a></font></td></tr>\" & VbCrLf
Else
If Wall(\"Mail\") <> \"\" Then Response.Write \"<tr><td><b><font face=\"\"Tahoma\"\" size=\"\"2\"\">E-Mail:</b> <a href=mailto:\" & Wall(\"mail\") & \">\" & Wall(\"mail\") & \"</a></font></td></tr>\"
End If
If Wall(\"URL\") <> \"\" Then Response.Write \"<tr><td><font face=\"\"Tahoma\"\" size=\"\"2\"\"><b>Hjemmeside:</b> <a href=http://\" & Wall(\"URL\") & \" target=\'_blank\'>\" & Wall(\"URL\") & \"</a></font></td></tr>\" & VbCrLf
If Mail_action = \"Ja\" Then
If Wall(\"ICQ\") <> \"\" Then Response.Write \"<tr><td><font face=\"\"Tahoma\"\" size=\"\"2\"\"><b>ICQ Status:</b> <a href=#><img src=\"\"
http://online.mirabilis.com/scripts/online.dll?icq=\" & Wall(\"ICQ\") & \"&img=1\"\" height=14 border=0 OnClick=\"\"java script:window.open(\'tagwall.asp?mode=icqsend&type=icq&ard=\" & wall(\"icq\") & \"\',\'pridewindow\',\'width=254,height=190,scrollbars=no,resize=no,toolbar=no,status=no\');\"\"></a></font></td></tr>\" & VbCrLf
Else
If Wall(\"ICQ\") <> \"\" Then Response.Write \"<tr><td><b><font face=\"\"Tahoma\"\" size=\"\"2\"\">ICQ Status:</b> <a href=\"\"
http://msg.mirabilis.com/scripts/contact.dll?msgto=\" & Wall(\"icq\") & \"\"\"><img src=\"\"
http://online.mirabilis.com/scripts/online.dll?icq=\" & Wall(\"icq\") & \"&img=1\"\" height=14 border=0></a></font></td></tr>\"
End If
Response.Write \"<br><br>\" & VbCrlf
Response.Write \"</table>\"& VbCrlf & VbCrlf
wall.movenext
loop
response.write \"</table></body></html>\"
wall.close
set wall = nothing
%>
<p align=\"center\">
<%
If Reklame = \"ja\" Then
Response.Write \"<font face=\'Tahoma\' size=\'-4\'><b>© <a href=\'
http://www.whitehat.dk/msj/\' target=\"\"_blank\"\"><font face=\'Tahoma\' size=\'-4\'>MsJ-Design</font></a> 2000</b></font>\"
End If
%>
<% End If %>
<% End If %>
<% If Request(\"mode\") = \"skriv\" then %>
<%
Conn.Open DB
Set wall = Server.CreateObject(\"ADODB.RecordSet\")
wall.open \"Select * From [Tagwall] Order by id\", Conn, 1, 3
wall.addnew
wall.Fields(\"nick\") = request.form(\"nick\")
wall.Fields(\"message\") = request.form(\"tag\")
If request.form(\"mail\") <> \"\" Then wall.Fields(\"mail\") = request.form(\"mail\")
If request.form(\"url\") <> \"\" Then wall.Fields(\"url\") = request.form(\"url\")
If request.form(\"icq\") <> \"\" Then wall.Fields(\"icq\") = request.form(\"icq\")
wall.update
wall.close
set wall = nothing
Conn.Close
Response.Redirect \"tagwall.asp?mode=se&tags=normal\"
%>
<% End if %>
<% If Request(\"mode\") = \"tag\" Then %>
<html>
<head><title>TAGWALLEN Nyt Tag</title></head>
<body bgcolor=\"#C8C8C8\"><LINK REL=\"Stylesheet\" TYPE=\"text/css\" HREF=\"tagwall.css\">
<form action=\"tagwall.asp?mode=skriv\" method=\"post\">
<div align=\"center\"><table border=\"1\" cellpadding=\"0\"
cellspacing=\"0\" width=\"200\" bordercolor=\"#000000\" height=\"91\">
<tr>
<td width=\"100%\" height=\"89\"><div align=\"center\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"160\" height=\"58\">
<tr>
<td width=\"100%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">Nick:</font>
<font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"100%\" height=\"25\"><p align=\"left\">
<input type=\"text\" size=\"20\" name=\"nick\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
</td>
</tr>
<tr>
<td width=\"100%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">E-Mail:</font>
<font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"100%\" height=\"25\"><p align=\"left\"><input type=\"text\" size=\"20\" name=\"mail\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
</td>
</tr>
<tr>
<td width=\"100%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">URL:</font>
<font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"100%\" height=\"25\"><p align=\"left\">
<input type=\"text\" size=\"20\" name=\"URL\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
</td>
</tr>
<tr>
<td width=\"100%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">ICQ:</font>
<font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"100%\" height=\"25\"><p align=\"left\">
<input type=\"text\" size=\"20\" name=\"ICQ\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
</td>
</tr>
<tr>
<td width=\"100%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">Tag:</font>
<font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"100%\" height=\"25\"><p align=\"left\">
<textarea name=\"tag\" rows=\"4\" size=\"20\" name=\"tag\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></textarea></p>
</td>
</tr>
<tr>
<td colspan=\"2\" width=\"100%\" height=\"8\"><p align=\"center\"><input type=\"submit\" name=\"B1\" value=\" Tag!! \" style=\"background: rgb(255,255,255); border: 1px solid rgb(0,0,0); font-family: Tahoma; font-size: 8pt;\"></p>
</td>
</tr>
</table>
</div></td>
</tr>
</table>
</body>
</html>
<% End If %>
<% If Request(\"mode\") = \"logud\" Then
Session.Abandon
Response.Redirect \"tagwall.asp?mode=se&tags=normal\"
End If
%>
<% If Request(\"mode\") = \"check\" Then %>
<%
user = Request.Form(\"user\")
pass = Request.Form(\"pass\")
If user = Bruger and pass = Kode Then
Session(\"Adgang\") = \"ja\"
Response.Redirect \"tagwall.asp?mode=admin\"
Else
Session(\"Adgang\") = \"Nej\"
Response.Redirect \"tagwall.asp?mode=login\"
End If
%>
<% End If %>
<% If Request(\"mode\") = \"admin\" Then %>
<%
If Session(\"Adgang\") = \"ja\" Then
Else Response.Redirect \"tagwall.asp?mode=login\"
End If
%>
<html>
<head><title>TAGWALLEN Administrations Side</title></head>
<body bgcolor=\"#C8C8C8\"><LINK REL=\"Stylesheet\" TYPE=\"text/css\" HREF=\"tagwall.css\">
<%
Response.Expires = 0
Response.AddHeader \"PRAGMA\", \"NO-CACHE\"
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open DB
strsql = \"Select * From tagwall order by id desc\"
Set rs = Conn.execute(strSQL)
If RS.Eof then
Response.Write \"Tagwallen er tom...\"
Else Do Until RS.Eof %>
<font face=\"Tahoma\" size=\"2\"><b><a href=\"tagwall.asp?mode=del&id=<%=rs(\"id\")%>\">Slet</a> <% =rs(\"nick\")%></b>: <% =rs(\"message\")%><br><br></font>
<%
RS.MoveNext
Loop
End If
Conn.close
set Conn = nothing
%>
<a href=\"tagwall.asp?mode=logud\">Logud</a>
</body>
</html>
<% End If %>
<% If Request(\"mode\") = \"del\" Then %>
<%
Response.Expires = 0
Response.AddHeader \"PRAGMA\", \"NO-CACHE\"
if Session(\"Adgang\") = \"\" or Session(\"Adgang\") = \"Nej\" Then
Response.Redirect \"tagwall.asp?mode=login\"
End If
Conn.Open DB
SQL = \"DELETE FROM tagwall WHERE ID = \" & Request.QueryString(\"ID\")
Set RS = Conn.Execute(SQL)
Conn.Close
Set Conn = Nothing
Response.Redirect \"tagwall.asp?mode=admin\"
End if
%>
<% if Request(\"mode\") = \"send_mail_execute\" Then
Response.Expires = 0
Response.AddHeader \"PRAGMA\", \"NO-CACHE\"
if Session(\"mail_send_ip\") = Request.ServerVariables(\"REMOTE_ADDR\") Then
Response.Write \"<html><body bgcolor=\'#C8C8C8\'><LINK REL=\'Stylesheet\' TYPE=\'text/css\' HREF=\'tagwall.css\'><font face=\'Tahoma, Vernda\' size=\'2\'><b>Af sikkerheds messige grunde kan du ikke sende mere en 1 bedsked pr. minut</b></font></p>\"
Response.Write \"<br><br><br><br><div align=\"\"center\"\"><input type=\"\"submit\"\" value=\"\"Luk vindue\"\" onclick=\"\"java script:window.close()\"\" style=\"\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"\"></div>\"
Else
Session.TimeOut = 1
Session(\"mail_send_ip\") = Request.ServerVariables(\"REMOTE_ADDR\")
If Request.QueryString(\"type\") = \"icq\" Then
Subject = \"TAGWALLEN ICQ besked \" & VbCrlf & \"Fra :\" & Request.Form(\"Name\") & \"\"
From = Request.Form(\"mail\")
Besked = \"Besked:\" & Request.Form(\"besked\")
send_mail_ard = Request.QueryString(\"ard\") & \"@pager.icq.com\"
Elseif Request.QueryString(\"type\") = \"mail\" Then
Subject = \"TAGWALLEN Mail Sender\" & VbCrlf & \"Fra :\" & Request.Form(\"Name\") & \"\"
From = Request.Form(\"mail\")
Besked = \"Besked:\" & Request.Form(\"besked\")
send_mail_ard = Request.QueryString(\"ard\")
End If
If mail_type = \"JMail\" Then
\' Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
\' JMail.ContentType = \"text/html\"
\' JMail.ServerAddress = mailserver
\' JMail.Priority = 1
\' JMail.Sender = From
\' JMail.Subject = Subject
\' JMail.Body = Besked
\' JMail.AddRecipient send_mail_ard
\' JMail.Execute
\' Set JMail = Nothing
Elseif mail_type = \"CDONTS\" Then
\'Set objMail = CreateObject(\"CDONTS.NewMail\")
\' objMail.Send From, icq_send_nr, Subject, Besked, 1
\' Set objMail = Nothing
End If
Response.Write \"<html><body bgcolor=\'#C8C8C8\'><LINK REL=\'Stylesheet\' TYPE=\'text/css\' HREF=\'tagwall.css\'><font face=\'Tahoma, Vernda\' size=\'2\'><b>Din besked til </b>\" & Request.QueryString(\"ard\") & \"<b> er sendt</b></font></p>\"
%>
<br><br><br><br><br><br><div align=\"center\"><input type=\"submit\" value=\"Luk vindue\" onclick=\"java script:window.close()\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></div>
<%
End If
End if
%>
<%
If Request(\"mode\") = \"icqsend\" Then
%>
<html>
<head><title>TAGWALLEN ICQ-Messagenger</title></head>
<body bgcolor=\"#C8C8C8\"><LINK REL=\"Stylesheet\" TYPE=\"text/css\" HREF=\"tagwall.css\">
<form action=\"tagwall.asp?mode=send_mail_execute&type=icq&ard=<%= Request.QueryString(\"ard\") %>\" method=\"post\">
<div align=\"center\"><table border=\"1\" cellpadding=\"0\" cellspacing=\"0\" width=\"210\" bordercolor=\"#000000\" height=\"130\">
<tr>
<td width=\"100%\" height=\"89\"><table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"200\" height=\"58\">
<tr>
<td width=\"47%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">Dit Navn:</font><font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"53%\" height=\"25\"><p align=\"left\"><input type=\"text\" size=\"20\" name=\"navn\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
</td>
</tr>
<tr>
<td width=\"22%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">Din E-mail:</font><font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"53%\" height=\"25\"><p align=\"left\"><input type=\"text\" size=\"20\" name=\"mail\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
</td>
</tr>
<tr>
<td width=\"22%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">Besked:</font><font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"53%\" height=\"25\"><p align=\"left\"><textarea cols=\"20\" rows=\"3\" name=\"besked\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></textarea></p>
</td>
</tr>
<tr>
<td colspan=\"2\" width=\"100%\" height=\"8\"><p align=\"center\">
<input type=\"submit\" name=\"B1\" value=\" Send! \" style=\"background: rgb(255,255,255); border: 1px solid rgb(0,0,0); font-family: Tahoma; font-size: 8pt;\"></p>
</td>
</tr>
</table>
</div></td>
</tr>
</table>
<br><div align=\"center\"><input type=\"submit\" value=\"Luk vindue\" onclick=\"java script:window.close()\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></div>
</body>
</html>
<% End if %>
<% If Request(\"mode\") = \"mailsend\" Then %>
<html>
<head><title>TAGWALLEN Mail-Messagenger</title></head>
<body bgcolor=\"#C8C8C8\"><LINK REL=\"Stylesheet\" TYPE=\"text/css\" HREF=\"tagwall.css\">
<form action=\"tagwall.asp?mode=send_mail_execute&type=mail&ard=<%= Request.QueryString(\"ard\") %>\" method=\"post\">
<div align=\"center\"><table border=\"1\" cellpadding=\"0\" cellspacing=\"0\" width=\"210\" bordercolor=\"#000000\" height=\"130\">
<tr>
<td width=\"100%\" height=\"89\"><table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"200\" height=\"58\">
<tr>
<td width=\"47%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">Dit Navn:</font><font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"53%\" height=\"25\"><p align=\"left\"><input type=\"text\" size=\"20\" name=\"navn\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
</td>
</tr>
<tr>
<td width=\"22%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">Din E-mail:</font><font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"53%\" height=\"25\"><p align=\"left\"><input type=\"text\" size=\"20\" name=\"mail\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
</td>
</tr>
<tr>
<td width=\"22%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">Besked:</font><font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"53%\" height=\"25\"><p align=\"left\"><textarea cols=\"20\" rows=\"3\" name=\"besked\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></textarea></p>
</td>
</tr>
<tr>
<td colspan=\"2\" width=\"100%\" height=\"8\"><p align=\"center\">
<input type=\"submit\" name=\"B1\" value=\" Send! \" style=\"background: rgb(255,255,255); border: 1px solid rgb(0,0,0); font-family: Tahoma; font-size: 8pt;\"></p>
</td>
</tr>
</table>
</div></td>
</tr>
</table>
<br><div align=\"center\"><input type=\"submit\" value=\"Luk vindue\" onclick=\"java script:window.close()\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></div>
</body>
</html>
<% End if %>
<% If Request(\"mode\") = \"login\" Then %>
<html>
<head><title>TAGWALLEN Login</title></head>
<body bgcolor=\"#C8C8C8\"><LINK REL=\"Stylesheet\" TYPE=\"text/css\" HREF=\"tagwall.css\">
<form action=\"tagwall.asp?mode=check\" method=\"post\">
<div align=\"center\"><table border=\"1\" cellpadding=\"0\"
cellspacing=\"0\" width=\"23%\" bordercolor=\"#000000\" height=\"91\">
<tr>
<td width=\"100%\" height=\"89\"><table
border=\"0\" cellpadding=\"0\" cellspacing=\"0\"
width=\"23%\" height=\"58\">
<tr>
<td width=\"47%\" height=\"25\"><p align=\"right\"><font
size=\"1\" face=\"Tahoma\">Brugernavn:</font><font
color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"53%\" height=\"25\"><p align=\"left\"><input
type=\"text\" size=\"20\" name=\"user\"
style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
</td>
</tr>
<tr>
<td width=\"22%\" height=\"25\"><p align=\"right\"><font
size=\"1\" face=\"Tahoma\">Password:</font><font
color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"53%\" height=\"25\"><p align=\"left\"><input
type=\"password\" size=\"20\" name=\"pass\"
style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
</td>
</tr>
<tr>
<td colspan=\"2\" width=\"100%\" height=\"8\"><p
align=\"center\"><input type=\"submit\" name=\"B1\" value=\" Send! \"
style=\"background: rgb(255,255,255); border: 1px solid rgb(0,0,0); font-family: Tahoma; font-size: 8pt;\"></p>
</td>
</tr>
</table>
</div></td>
</tr>
</table>
</body>
</html>
<% End If %>
<% If mode = \"hooola\" then %>
<html><head></head><body>TAGWALLEN version <%=stack%></body></html>
<% End If %></b>
</td>
<td width=\"140\" valign=\"top\"
background=\"images/bg_venstre.gif\"><b><a href=\"tagwall.asp?mode=se&tags=normal\">Se alle </a><a href=\"tagwall.asp?mode=tag\">Tilføj Tag</a>
.</b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign=\"top\" background=\"images/bg_bund.gif\"><p
align=\"center\"><br><br>
<a href=\"
http://www.chart.dk/ref.asp?id=22935\" target=\"_blank\"><img
src=\"
http://cluster.chart.dk/chart.asp?id=22935&style=7\" alt=\"chart.dk\" align=\"left\" border=\"0\" hspace=\"0\"
width=\"16\" height=\"16\"></a><font size=\"2\">Online brugere:<%=Application(\"NumbersOnline\")%></p></font>
</td>
</tr>
<tr>
<td><img src=\"images/bunden_sort.gif\" width=\"636\"
height=\"2\"></td>
</tr>
</table>
</center></div>
</table>
</body>
</html>