OK kommer her:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Vis egnsby</title>
<link rel="stylesheet" type="text/css" href="global.css">
</head>
<body>
<h3>Sikrede Telefoner - Pr. Egnsby </h3>
<table border="0" style="border-collapse: collapse" width="100%" id="table">
<tr>
<td>A</td>
<td>B</td>
<td>C</td>
<td>Udbyder</td>
<td>Telefonnummer</td>
<td>Central</td>
<td>Fornavn</td>
<td>Efternavn</td>
<td>Adresse</td>
<td>Egnsby</td>
<td>Postnummer</td>
<td>Postdistrikt</td>
<td>Oprettet</td>
<td>Vis</td>
</tr>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("sikrede_telefoner.mdb")
Conn.Open DSN
%>
<%
SQL = "Select * from telefoner Where egnsby=" & Request.Form("egnsby")
Set rs = Conn.Execute(SQL)
Do While Not rs.EOF
Link="<a href='sikrede_telefoner_stamkort.asp?id=" & rs("id") & "'>Vis</a><br>"
Link2="<a href='sikrede_telefoner_slet.asp?id=" & rs("id") & "' onclick='return confirm(\'Er du sikker på at du vil slette?\');'>SLET</a>"
Response.Write "<tr>"
Response.Write "<td>" & rs("a") & "</td>"
Response.Write "<td>" & rs("b") & "</td>"
Response.Write "<td>" & rs("c") & "</td>"
Response.Write "<td>" & rs("udbyder") & "</td>"
Response.Write "<td>" & rs("telefonnummer") & "</td>"
Response.Write "<td>" & rs("central") & "</td>"
Response.Write "<td>" & rs("fornavn") & "</td>"
Response.Write "<td>" & rs("efternavn") & "</td>"
Response.Write "<td>" & rs("adresse") & "</td>"
Response.Write "<td>" & rs("egnsby") & "</td>"
Response.Write "<td>" & rs("postnummer") & "</td>"
Response.Write "<td>" & rs("postdistrikt") & "</td>"
Response.Write "<td>" & rs("oprettet") & "</td>"
Response.Write "<td>" & Link & Link2 & "</td>"
rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing
%>
</table>
</body>
</html>
