Hjælp til ASP

Jeg har fået denne her af en ven:
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<%
      Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db/database.mdb")

    strSQL = "select * FROM Bøgerne WHERE (ID = " & Request.QueryString("id") & ")"
    set rs = Conn.execute(strSQL)
    %><tr>
    <td width="100%"><FONT face="verdana, helvetica" size=1><b><%=("Overskrift")%></b><br><%=RS("Tekst")%></font></td>
    </tr><%
    Conn.Close
    set Conn = Nothing


    SQL = "select top 5 * from Bøgerne ORDER BY Id"
    set rs = Conn.execute(SQL)
                       
    if rs.EOF then
    Response.write "<FONT face=""verdana, helvetica"" size=""1"">Databasen er tom</font><br>"
    else
    Do Until rs.EOF
    %><tr>
    <td width="472" valign="top"><A HREF="bogerne.asp?id=<%=RS("Id")%>"><FONT face="verdana, helvetica" size=1><b><%=RS("Overskrift")%></b></font></td>
    </tr><%
    RS.MoveNext
    Loop
    end if

    Conn.Close
    set Conn = Nothing
%>
</table>
Men den skriver "Microsoft VBScript runtime error '800a01a8' Object required /bogerne.asp, line 16" I toppen, Se selv http://www.harrypotter-fan.dk/bogerne.asp/
Håber du kan hjælpe.