<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body link="#FFFFFF" vlink="#FFFFFF" bgcolor="#0e078f" alink="#FFFFFF" style="font-family: Verdana; font-size: 10 pt">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db3.mdb")
strSQL = "Select distinct id,titel From tabel1"
Set RS = Conn.Execute(strSQL)
dim strlink
Do While Not rs.EOF
strlink = "<a target= 'Main' href='default.asp?id="& rs("id")&"'>" & rs("titel") & "</a>"
Response.Write strlink & "<br>" & "<BR>"
<% < - - - - - (jeg tror du glemte denne her)
RS.MoveNext
Loop
%>
<% < - - - - - (jeg tror de skal være seperate)
Conn.Close
Set Conn = Nothing
%>
<p> </p>
</body>
</html>
Håber det hjalp, og desuden skal du lige også vide at friserverplads nogle gange tager fejl med hensyn til asp
for jeg har selv prøvet det =)