<title>Mecha.dk</title>
<meta http-equiv=\"Content-Language\" content=\"da\">
<body bgcolor=\"#FFFFFF\">
<style><!--a:link {color:000000; text-decoration:none}a:visited {color:000000; text-decoration:none}a:hover {color:cococo; text-decoration:none}--></style>
<div align=\"center\">
<center>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" bordercolor=\"#999999\" width=\"750\" height=\"21\" id=\"AutoNumber1\">
<tr>
<td width=\"753\" height=\"16\" bgcolor=\"#EEEEEE\">
<img border=\"0\" src=\"overbar.jpg\"></td>
</tr>
</table>
</center>
</div>
<div align=\"center\">
<center>
<table border=\"1\" cellspacing=\"0\" style=\"border-collapse: collapse; font-family:Tahoma; font-size:8pt\" bordercolor=\"#999999\" width=\"750\" height=\"20\" id=\"AutoNumber1\">
<tr>
<td width=\"753\" height=\"8\" colspan=\"3\" bgcolor=\"#9EB4CD\" style=\"font-family: Tahoma; font-size: 8pt\">
<p align=\"center\"><b><font size=\"1\" face=\"Tahoma\">..::
Mecha.dk ::..</font></b></td>
</tr>
<tr>
<td width=\"130\" height=\"22\" bgcolor=\"#EEEEEE\" valign=\"top\" style=\"font-family: Tahoma; font-size: 8pt\"><html>
<head>
<title>New Page 1</title>
</head>
<body>
<table border=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" width=\"114\" height=\"1\" id=\"AutoNumber2\">
<tr>
<td width=\"117\" height=\"1\"><font face=\"Tahoma\" size=\"1\">»</font><font color=\"#FF0000\" size=\"1\" face=\"Tahoma\">
<a href=\"default.htm\" style=\"text-decoration: none\">
<font color=\"#FF0000\">Forsiden</font></a></font></td>
</tr>
</table>
<table border=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" width=\"114\" height=\"1\" id=\"AutoNumber2\">
<tr>
<td width=\"117\" height=\"1\"><font face=\"Tahoma\" size=\"1\">»</font><font color=\"#FF0000\" size=\"1\" face=\"Tahoma\">
<a href=\"tagwall.asp\" style=\"text-decoration: none\">
<font color=\"#FF0000\">Gæstebog</font></a></font></td>
</tr>
</table>
<table border=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" width=\"114\" height=\"1\" id=\"AutoNumber2\">
<tr>
<td width=\"117\" height=\"1\"><font face=\"Tahoma\" size=\"1\">»</font><font color=\"#FF0000\" size=\"1\" face=\"Tahoma\">
<a href=\"hjaelp.asp\" style=\"text-decoration: none\">
<font color=\"#FF0000\">Hjælp</font></a></font></td>
</tr>
</table>
<table border=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" width=\"114\" height=\"1\" id=\"AutoNumber2\">
<tr>
<td width=\"117\" height=\"1\"><font face=\"Tahoma\" size=\"1\">»</font><font color=\"#FF0000\" size=\"1\" face=\"Tahoma\">
<a href=\"news.asp\" style=\"text-decoration: none\">
<font color=\"#FF0000\">Nyheder</font></a></font></td>
</tr>
</table>
<table border=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" width=\"114\" height=\"1\" id=\"AutoNumber2\">
<tr>
<td width=\"117\" height=\"1\"><font face=\"Tahoma\" size=\"1\">»</font><font color=\"#FF0000\" size=\"1\" face=\"Tahoma\">
<a href=\"sms.asp\" style=\"text-decoration: none\">
<font color=\"#FF0000\">Send SMS</font></a></font></td>
</tr>
</table>
<table border=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" width=\"114\" height=\"1\" id=\"AutoNumber2\">
<tr>
<td width=\"117\" height=\"1\"><font face=\"Tahoma\" size=\"1\">»</font><font color=\"#FF0000\" size=\"1\" face=\"Tahoma\">
<a href=\"mailto:webmaster@mecha.dk\" style=\"text-decoration: none\">
<font color=\"#FF0000\">Kontakt</font></a></font></td>
</tr>
</table>
<table border=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" width=\"114\" height=\"1\" id=\"AutoNumber2\">
<tr>
<td width=\"117\" height=\"1\"><font face=\"Tahoma\" size=\"1\">»</font><font color=\"#FF0000\" size=\"1\" face=\"Tahoma\">
<a href=\"forum.asp\" style=\"text-decoration: none\">
<font color=\"#FF0000\">Forum</font></a></font></td>
</tr>
</table>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" style=\"border-top:1px solid #808080; border-collapse: collapse; border-bottom: 1px solid #808080\" width=\"130\" height=\"5\" id=\"AutoNumber4\">
<tr>
<td width=\"130\" height=\"5\" align=\"center\" bgcolor=\"#FFFFFF\"><b>
<font size=\"1\" face=\"Tahoma\">..:: Sjov ::..</font></b></td>
</tr>
</table>
<table border=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" width=\"114\" height=\"5\" id=\"AutoNumber2\">
<tr>
<td width=\"117\" height=\"5\"><font face=\"Tahoma\" size=\"1\">»
<a href=\"chat.asp\" style=\"color: #FF0000; text-decoration: none\">
Chat</a><br>
» <a href=\"stem.asp\" style=\"color: #FF0000; text-decoration: none\">Afstemning</a><br>
»
<a href=\"dating.asp\" style=\"color: #FF0000; text-decoration: none\">Dating</a><br>
» <a href=\"mobil.asp\" style=\"color: #FF0000; text-decoration: none\">Mobilos</a></font></td>
</tr>
</table>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" style=\"border-top:1px solid #808080; border-collapse: collapse; border-bottom: 1px solid #808080\" width=\"130\" height=\"5\" id=\"AutoNumber4\">
<tr>
<td width=\"130\" height=\"5\" align=\"center\" bgcolor=\"#FFFFFF\"><b>
<font size=\"1\" face=\"Tahoma\">..:: Hjælp til ::..</font></b></td>
</tr>
</table>
<table border=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" width=\"114\" height=\"5\" id=\"AutoNumber2\">
<tr>
<td width=\"117\" height=\"5\"><font face=\"Tahoma\" size=\"1\">»
<a href=\"photoshop.asp\" style=\"text-decoration: none\">
<span style=\"color: #FF0000\">Photoshop</span></a><br>
» <a style=\"text-decoration: none\" href=\"asp.asp\">
<span style=\"color: #FF0000\">ASP</span></a></font><br>
<font face=\"Tahoma\" size=\"1\">»
<a style=\"text-decoration: none\" href=\"php.asp\">
<span style=\"color: #FF0000\">PHP</span></a></font></td>
</tr>
</table>
</body>
</html></td>
<td width=\"490\" height=\"22\" bgcolor=\"#FFFFFF\" valign=\"top\" style=\"font-family: Tahoma; font-size: 8pt\"><html>
<head>
<title>New Page 1</title>
</head>
<%
\'------------------------------
\'ASP Tagwall af Bjarke Bekhøj -
\'bjarke@bekhoj.dk -
\'
http://www.bekhoj.dk -
\'ICQ# 37018702 -
\'------------------------------
Response.Buffer = True
\'Åbner forbindelse til databsen
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"wall.mdb\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
sql = \"select * from wall order by id desc\"
rs.Open sql, conn, 1, 3
%>
<html>
<head>
<title>Mecha.dk</title>
<style type=\"text/css\">
<!--
td {Font-family : Arial; font-size : 10pt; font-weight: bold;}
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:#000000}
input, select, textarea { font-family: Arial; font-weight: bold; color: 000000; font-size: 8pt; border-width:1; border-color:436143; border-style:solid; background-color:#FFFFF;}
//-->
</style>
</head>
<body align=\"center\" background=\"bg.gif\">
<table border=\"0\" width=\"480\" height=\"1\" cellspacing=\"0\" cellpadding=\"0\" style=\"border: 1 solid #000000\" bgcolor=\"#FFFFFF\" align=\"center\">
<tr>
<td align=\"center\"><b>Mecha.dk</b></td>
</tr>
</table>
<br>
<table border=\"0\" width=\"480\" height=\"1\" cellspacing=\"0\" cellpadding=\"0\" style=\"border: 1 solid #000000\" bgcolor=\"#FFFFFF\" align=\"center\">
<tr>
<td align=\"center\">
<table border=\"0\" align=\"center\">
<form method=\"post\" action=\"tagwall.asp\" id=form1 name=form1>
<tr><td colspan=\"2\"><center>
<%
\'Hvis brugeren har submittet formen
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
\'Smider værdierne ned i variabler
navn = Request(\"navn\")
email = Request(\"email\")
tag = Request(\"tag\")
skrifttype = Request(\"skrifttype\")
skriftfarve = Request(\"skriftfarve\")
\'Tjecker om navn og tag er udfyldt
if navn = \"\" then
Response.Write(\"Udfyld dit navn<br>\")
end if
if tag = \"\" then
Response.Write(\"Udfyld et tag<br>\")
end if
\'Tilføjer til databasen hvis navn og tag er udfyldt
if navn <> \"\" AND tag <> \"\" then
rs.AddNew
rs(\"navn\") = navn
rs(\"email\") = email
rs(\"tag\") = tag
rs(\"fontcolor\") = skriftfarve
rs(\"fonttype\") = skrifttype
rs(\"dato\") = Now()
rs.update
\'Opdaterer vinduet
Response.Redirect(\"tagwall.asp\")
end if
end if %>
</center></td></tr>
<tr>
<td>Navn</td>
<td><input autocomplete=\"no\" type=\"text\" name=\"navn\" value=\"<%=Request(\"navn\")%>\"></td>
</tr>
<tr>
<td>Email</td>
<td><input autocomplete=\"no\" type=\"text\" name=\"email\" value=\"<%=Request(\"email\")%>\"></td>
</tr>
<tr>
<td>Tag</td>
<td><textarea rows=\"5\" cols=\"22\" name=\"tag\"><%=Request(\"tag\")%></textarea>
</tr>
<tr>
<td>Skrifttype</td>
<td>
<select name=\"skrifttype\">
<option value=\"Arial\" selected>Arial </option>
<option value=\"Arial Black\">Arial Black </option>
<option value=\"Arial Narrow\">Arial Narrow </option>
<option value=\"Book Antiqua\">Book Antiqua </option>
<option value=\"Bookman Old Style\">Bookman Old Style </option>
<option value=\"Century Gothic\">Century Gothic </option>
<option value=\"Comic Sans MS\">Comic Sans MS </option>
<option value=\"Courier\">Courier </option>
<option value=\"Courier New\">Courier New </option>
<option value=\"DigitMed\">DigitMed </option>
<option value=\"DigitSmall\">DigitSmall </option>
<option value=\"Fixedsys\">Fixedsys </option>
<option value=\"Garamond\">Garamond </option>
</select>
</td>
</tr>
<tr>
<td>Farve</td>
<td>
<select name=\"skriftfarve\">
<option value=\"000000\">Sort </option>
<option value=\"FFFFFF\">Hvid </option>
<option value=\"0000FF\">Blå </option>
<option value=\"FF0000\">Rød </option>
<option value=\"00FF00\">Grøn </option>
<option value=\"FF00FF\">Lilla </option>
<option value=\"008800\">Mørk grøn </option>
<option value=\"000088\">Mørk blå </option>
<option value=\"880000\">Mørk rød </option>
<option value=\"008888\">Mørk turkis </option>
<option value=\"880088\">Mørk lilla </option>
<option value=\"8A2BE2\">Blåviolet </option>
<option value=\"D2691E\">Brun </option>
<option value=\"FFFF00\">Gul </option>
<option value=\"FFD700\">Guld </option>
<option value=\"FF8C00\">Mørk orange </option>
<option value=\"808000\">Oliven </option>
<option value=\"FFA500\">Orange </option>
<option value=\"00BFFF\">Skyblå </option>
<option value=\"00FF7F\">Sommergrøn </option>
<option value=\"EE82EE\">Violet </option>
<option value=\"fuchsia\">Fuchsia </option>
</select>
</td>
</tr>
<tr>
<td></td>
<td><input type=\"submit\" value=\"Tag\"></td>
</tr>
</form>
</table>
<hr color=\"#000000\" size=\"1\" width=\"100%\">
</td>
</Tr>
<tr>
<td align=\"center\">
<%
\'Hvis der ingen tags er
if rs.eof or rs.bof then
%>
Ingen tag´s
<% else
\'Lopper alle tags igennem med en løkke
Do until rs.eof
email = rs(\"email\")
navn = rs(\"navn\")
fontcolor = rs(\"fontcolor\")
fonttype = rs(\"fonttype\")
tag = rs(\"tag\")
%>
<a href=\"mailto:<%=email%>\"><%=navn%></a>: <font color=\"<%=fontcolor%>\" face=\"<%=fonttype%>\"><%=tag%></font>
<hr>
<br>
<% rs.movenext
loop
end if %>
</td>
</tr>
</table>
</body>
</html>
<%
\'Lukker recordset
rs.close
set rs = nothing
\'Lukker connection
conn.close
set conn = nothing
%>
</html></td>
<td width=\"130\" height=\"22\" bgcolor=\"#EEEEEE\" valign=\"top\" style=\"font-family: Tahoma; font-size: 8pt\"><html>
<head>
<title>New Page 1</title>
</head>
<body style=\"font-family: Tahoma; font-size: 8pt\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse; border-bottom: 1px solid #808080\" width=\"130\" height=\"5\" id=\"AutoNumber4\">
<tr>
<td width=\"130\" height=\"5\" align=\"center\" bgcolor=\"#FFFFFF\"><b>
<font size=\"1\" face=\"Tahoma\">..:: Partnere ::..</font></b></td>
</tr>
</table>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" width=\"130\" height=\"1\" id=\"AutoNumber2\">
<tr>
<td width=\"133\" height=\"1\"><font face=\"Tahoma\" size=\"1\">Kunne du tænkte dig at
være Mecha.dk\'s partner? Skriv til <a href=\"mailto:partner@mecha.dk\">partner@mecha.dk</a>
</td>
</tr>
</table>
</body>
</html></td>
</tr>
<tr>
<td width=\"753\" height=\"6\" colspan=\"3\" bgcolor=\"#9EB4CD\" style=\"font-family: Tahoma; font-size: 8pt\">
<p align=\"center\"><b><font face=\"Tahoma\" size=\"1\">Copyright 2001 Kent Christensen / Kasper Larsen</font></b></td>
</tr>
</table>
</center>
</div><head><title>Mecha.dk</title></head>