Det virker ikke lige, men jeg kan lige poste det hele så kan det være i kan se hvad der er galt. (det er ikke pænt, men here goes)
<%
If Request.Querystring(\"brugernavn_\") <> \"\" Then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.MapPath(\"klynge2.mdb\")
SQLQuery = \"Delete from adresseliste where brugernavn=\" & Request.Querystring(\"brugernavn_\")
Conn.Execute(SQLQuery)
Conn.Close
End If
%>
<body bgcolor=\"#FFFFFF\" leftmargin=\"0\" topmargin=\"10\" marginwidth=\"0\" marginheight=\"0\">
<div align=\"center\">
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.MapPath(\"klynge2.mdb\")
Set List = Conn.Execute(\"SELECT * FROM adresseliste order by navn\")
Do While NOT List.EOF
%>
<table width=\"500\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td rowspan=\"3\" width=\"1\" class=\"person\"></td>
<td height=\"19\" class=\"person\"><%=List(\"navn\")%></td>
<td rowspan=\"3\" width=\"1\" class=\"person\"></td>
</tr>
<tr>
<td class=\"data\">
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"2%\"> </td>
<td width=\"30%\">Adresse</td>
<td width=\"5%\">
<div align=\"center\">:</div>
</td>
<td width=\"61%\">
<div align=\"right\"><%=List(\"adresse\")%></div>
</td>
<td width=\"2%\"> </td>
</tr>
<tr>
<td width=\"2%\"> </td>
<td width=\"30%\">Post nr. / By</td>
<td width=\"5%\">
<div align=\"center\">:</div>
</td>
<td width=\"61%\">
<div align=\"right\"><%=List(\"postnr\")%> / <%=List(\"bynavn\")%></div>
</td>
<td width=\"2%\"> </td>
</tr>
<tr>
<td width=\"2%\"> </td>
<td width=\"30%\">Fastnet tlf</td>
<td width=\"5%\">
<div align=\"center\">:</div>
</td>
<td width=\"61%\">
<div align=\"right\"><%=List(\"ftlf\")%></div>
</td>
<td width=\"2%\"> </td>
</tr>
<tr>
<td width=\"2%\"> </td>
<td width=\"30%\">Mobil tlf</td>
<td width=\"5%\">
<div align=\"center\">:</div>
</td>
<td width=\"61%\">
<div align=\"right\"><%=List(\"mtlf\")%></div>
</td>
<td width=\"2%\"> </td>
</tr>
<tr>
<td width=\"2%\"> </td>
<td width=\"30%\">ICQ NICK / UIN nr.</td>
<td width=\"5%\">
<div align=\"center\">:</div>
</td>
<td width=\"61%\">
<div align=\"right\"><%=List(\"icq\")%></div>
</td>
<td width=\"2%\"> </td>
</tr>
<tr>
<td width=\"2%\"> </td>
<td width=\"30%\">Skole mail</td>
<td width=\"5%\">
<div align=\"center\">:</div>
</td>
<td width=\"61%\">
<div align=\"right\"><a href=\"mailto:<%=List(\"brugernavn\")%>@ehs.dk\"><%=List(\"brugernavn\")%>@ehs.dk</a></div>
</td>
<td width=\"2%\"> </td>
</tr>
<tr>
<td width=\"2%\"> </td>
<td width=\"30%\">Privat mail</td>
<td width=\"5%\">
<div align=\"center\">:</div>
</td>
<td width=\"61%\">
<div align=\"right\"><a href=\"mailto:<%=List(\"pmail\")%>\"><%=List(\"pmail\")%></a></div>
</td>
<td width=\"2%\"> </td>
</tr>
<tr>
<td width=\"2%\"> </td>
<td width=\"30%\">Hjemmeside</td>
<td width=\"5%\">
<div align=\"center\">:</div>
</td>
<td width=\"61%\">
<div align=\"right\"><a href=\"
http://<%=List(\"hjemmeside\")%>\"><%=List(\"hjemmeside\")%></a></div>
</td>
<td width=\"2%\"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height=\"1\" class=\"person\"></td>
</tr>
</table>
<table width=\"500\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td>
<div align=\"right\" class=\"data1\"><a href=\"default.asp?brugernavn_=<%=List(\"brugernavn\")%>\">Slet denne post</a></div>
</td>
</tr>
</table>
<br>
<br>
<%
List.MoveNext
Loop
List.Close
Conn.Close
%>