ASP (nem)

Hejsa :)
hvordan for jeg dette til at virke !

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db.mdb")

strSQL = "SELECT * FROM forside"
set rs = conn.execute(strSQL)

if not rs.eof then
do while not rs.eof
%>

<tr>
    <td class="text" width="190px">Forside</td>
    <td class="rodtext" width="50px" align="right"><a href="redigerforside.asp?id=<%= rs("ID") %>" class="rod">Rediger</a></td>
</tr>
<%
rs.movenext
loop
end if
%>


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db.mdb")

strSQL = "SELECT * FROM sjov"
set rs = conn.execute(strSQL)

if not rs.eof then
do while not rs.eof
%>

<tr>
    <td class="text" width="190px">Sjov</td>
    <td class="rodtext" width="50px" align="right"><a href="redigersjov.asp?id=<%= rs("ID") %>" class="rod">Rediger</a></td>
</tr>
<%
rs.movenext
loop
end if
%>

<%
conn.close
set conn = nothing
%>