fejl i asp script

nogle der kan få det her til at fungere...

<%if Request.QueryString("site") = "" then%>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db1.mdb")
Conn.Open DSN

strSQL = "Select * From anmeldelser Order by alfa"
Set rs = Conn.Execute(strSQL)
                               
If Not (record.BOF Or record.EOF) Then
    record.PageSize = 2
    record.AbsolutePage = intPage
    intRecCount = record.PageSize
    intPageCount = record.PageCount
   
Do While Not record.EOF And intRecCount > 0

  ' Personens navn
  strFilm = rs("filmtitel")
 
  ' lav et link til f.asp med Id-værdien i URL
  strLink = "<a href='ex.asp?site=polet&id=" & rs("Id") & "'>" & strFilm & "</a>"

  ' Liste med links
  Response.Write "<li>" & strLink & "</li>"

%>
<%
        rs.MoveNext
        intRecCount = intRecCount - 1
    Loop
end if
%>


<%
    Response.Write "<table width=""400""><tr>"
    Response.Write "<td align=""center""><h2><center>"
   
    If Clng(intPage) > 1 Then
        Response.Write "<a href=ex.asp?site=&page=" & intPage - 1 & ">&lt;&lt;</a>"
    Else
        Response.Write "&nbsp;"
    End If
   
    Response.Write "&nbsp;"
   
    For intNum = 1 To intPageCount
        Response.Write "<a href=ex.asp?site=&page=" & intNum & ">" & intNum & "</a> "
    Next
   
    Response.Write "&nbsp;"
   
    If Clng(intPage) < Clng(intPageCount) Then
        Response.Write "<a href=ex.asp?site=&page=" & intPage + 1 & ">&gt;&gt;</a>"
    Else
        Response.Write "&nbsp;"
    End If
    Response.Write "</center></td></h2></tr></table>"
%>

<%
Conn.Close
Set Conn = Nothing
%>

<%end if%>

<%if Request.QueryString("site") = "polet" then%>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db1.mdb")
Conn.Open DSN

' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From anmeldelser Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

' Skriv personens data
Response.Write "<dt><b>Film:</b></dt><dd>" & rs("filmtitel") & "</dd>"
Response.Write "<dt><b>Beskrivelse:</b></dt><dd>" & rs("filmbeskrivelse") & "</dd>"
Response.Write "<dt><b>Tid:</b></dt><dd>" & rs("filmtid") & " min.</dd>"
Response.Write "<dt><b>Genre:</b></dt><dd>" & rs("filmgenre") & "</dd>"
Response.Write "<dt><b>Billed:</b></dt><dd><img src='images/anm/" & rs("Id") & ".jpg'></dd>"
Response.Write "<dt><b><a href='ex.asp'>Tilbage</a></b></dd>"


Conn.Close
Set Conn = Nothing
%>
<%end if%>