Prøv dette:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("databasen.mdb")
Conn.Open DSN
strSQL = "Select * From data Where region = 'Nordjylland'"
Set rs = Conn.Execute(strSQL)
Do
if not isNull(rs("navn")) then
strNavn = rs("navn")
Else
strNavn = "Intet navn"
End If
strLink = "<a href='test.asp?id=" & rs("Id") & "'>" & strNavn & "</a>"
%>
<html>
<head>
<link rel="stylesheet" href="stilen.css" type="text/css">
<style>
BODY {SCROLLBAR-FACE-COLOR: #7D9EBD; SCROLLBAR-HIGHLIGHT-COLOR: #7D9EBD; SCROLLBAR-SHADOW-COLOR: #7D9EBD; SCROLLBAR-3DLIGHT-COLOR: #FFFFFF; SCROLLBAR-ARROW-COLOR: #000000; SCROLLBAR-TRACK-COLOR: #FFFFFF; SCROLLBAR-DARKSHADOW-COLOR: #7D9EBD; }
</style>
</head>
<body bgcolor="#FFFFFF" bgproperties="fixed" leftmargin="10" topmargin="0">
<p> </p>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%" ID="Table1">
<tr>
<td width="5%"></td>
<td width="95%" valign="top">
<p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Følgende
kokke er tilmeldt i Nordjylland.</font></b></p>
<table width="487" border="0" cellspacing="0" cellpadding="0" ID="Table2">
<tr>
<td width="220"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Navn.</font></td>
<td width="267"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Kommer
fra. </font></td>
</tr>
<tr>
<td width="220"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%Response.Write "<li>" & strLink & "</li>"%>
</font></td>
<td width="267"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%
if not isNull(rs("Email")) then
Response.Write rs("email")
Else
Response.Write "Ingen email"
End If
%>
</font></td>
</tr>
</table>
<p> </p>
<p align="center"><script type="text/javascript" src="
http://dk.danban.com/ad/b92d55f4825243b641e3d31071b1a19f"></script></p>
<p>
</td>
</tr>
</table>
<%
rs.MoveNext
Loop While Not rs.EOF
%>
</center>
</div>
<div align="center"></div>
<p> </p>
<p> </p>
<br>
</body>
</html>
<%
Conn.Close
Set Conn = Nothing
%>