Filerne er her:
add.asp:
<!--#include file=\"protect.inc\"-->
<head>
<title>The Home Of Bjarke Bekhøj - bjarke.bekhoj.dk</title>
<base target=\"main\">
</head>
<body bgcolor=\"#FFCCFF\" text=\"#333333\" link=\"#000000\" vlink=\"#000000\" alink=\"#000000\">
</form>
<div align=\"center\" style=\"width: 604; height: 124\">
<div align=\"center\">
<table border=\"1\" width=\"112%\" bgcolor=\"#C0C0C0\" cellspacing=\"0\" cellpadding=\"0\" bordercolorlight=\"#333333\" bordercolordark=\"#333333\" bordercolor=\"#333333\" height=\"4\">
<tr>
<td width=\"100%\" bgcolor=\"#EB637A\" height=\"23\" colspan=\"2\">
<p align=\"center\"><b><font face=\"Tahoma\" size=\"3\">Tilføj til vores
database </font></b></p>
</td>
</tr>
<tr>
<td width=\"100%\" height=\"121\" bgcolor=\"#FFFFFF\" colspan=\"2\">
<form name=\"FormName\" action=\"addstuff.asp\" method=\"post\">
<p align=\"center\"><font face=\"Tahoma\" size=\"2\">Her kan du
tilføje et link til filer du synes andre skal kunne få fat i,<br>
Du kan kun tilføje links - sørg venligst for ikke at tilføje døde
links.</font></p>
</td>
</tr>
<tr>
<td width=\"49%\" height=\"32\" bgcolor=\"#FFFFFF\">
<p align=\"center\"><font face=\"Tahoma\" size=\"2\">Navn/beskrivelse af filen</font>
</td>
<td width=\"51%\" height=\"32\" bgcolor=\"#FFFFFF\">
<p align=\"center\"><font face=\"Tahoma\" size=\"2\"><input type=\"text\" name=\"navn\" size=\"20\"></font>
</td>
</tr>
<tr>
<td width=\"49%\" height=\"44\" bgcolor=\"#FFFFFF\">
<p align=\"center\"><font face=\"Tahoma\" size=\"2\">Url til filen</font>
</td>
<td width=\"51%\" height=\"44\" bgcolor=\"#FFFFFF\">
<p align=\"center\"><font face=\"Tahoma\" size=\"2\"><input type=\"text\" name=\"url\" size=\"20\" value=\"
http://\"></font> </td>
</tr>
<tr>
<td width=\"49%\" height=\"44\" bgcolor=\"#FFFFFF\">
<p align=\"center\"><font face=\"Tahoma\" size=\"2\">Karakter fra 1 til 5 (5
er højest)</font>
</td>
<td width=\"51%\" height=\"44\" bgcolor=\"#FFFFFF\">
<p align=\"center\"><font face=\"Tahoma\" size=\"2\"><input type=\"text\" name=\"karakter\" size=\"20\"></font>
</td>
</tr>
<tr>
<td width=\"49%\" height=\"43\" bgcolor=\"#FFFFFF\">
<p align=\"center\"><font face=\"Tahoma\" size=\"2\">Dit navn / email</font>
</td>
<td width=\"51%\" height=\"43\" bgcolor=\"#FFFFFF\">
<p align=\"center\"><font face=\"Tahoma\" size=\"2\"><input type=\"text\" name=\"upload\" size=\"20\"></font>
</td>
</tr>
<tr>
<td width=\"49%\" height=\"9\" bgcolor=\"#FFFFFF\" align=\"center\">
<p align=\"center\"><font face=\"Tahoma\" size=\"2\"><br>
I Hvilken sektion hører filen til
<br>
</font>
</td>
<td width=\"51%\" height=\"9\" bgcolor=\"#FFFFFF\" align=\"center\">
body>
<form action=\"addstuff.asp\">
<select name=\"gruppe\">
<option value=\"sjovfilm\">Sjove film</option>
<option value=\"prog\">Programmer</option>
<option value=\"sygfilm\">Film om sygeplejersker</option>
<option value=\"trainer\">Trainers</option>
<option value=\"andet\">Andet</option>
</select>
<input type=\"submit\" value=\" Submit \">
</form>
</td>
</tr>
<tr>
<td width=\"49%\" height=\"46\" bgcolor=\"#FFFFFF\" align=\"center\">
<font face=\"Tahoma\" size=\"2\"><input type=\"submit\" value=\" Submit \"> </font>
</td>
<td width=\"51%\" height=\"46\" bgcolor=\"#FFFFFF\" align=\"center\">
<font face=\"Tahoma\" size=\"2\"><input type=\"reset\" value=\"Nulstil\" name=\"B2\"></font>
</td>
</tr>
<tr>
<td width=\"100%\" bgcolor=\"#EB637A\" height=\"1\" colspan=\"2\">
<p align=\"center\"><font face=\"Tahoma\" size=\"2\"> </font>
</td>
</tr>
</table> </div>
</div>
addstuff.asp:
<%
Dim RS, Gruppe
Gruppe = Request.QueryString(\"gruppe\")
Set conn = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"stuff.mdb\")
conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
%>
<%
Sql = \"Insert into Sql = Sql & Gruppe & \"\',\'\" (navn, url, karakter, upload) values(\'\"
Sql = Sql & Request.form(\"navn\") & \"\',\'\"
Sql = Sql & Request.form(\"url\") & \"\',\'\"
Sql = Sql & Request.form(\"karakter\") & \"\',\'\"
Sql = Sql & Request.form(\"upload\") & \"\')\"
conn.Execute(Sql)
conn.Close
%>
</table>
<meta http-equiv=\'refresh\' content=\'0;URL=addcomplete.asp\'>
%>