Database kald fejl

Hej jeg har denne side der skal hente nogle ting fra en db:

http://www.billundfodbold.dk/bif/team%26results/

den kommer med en underlig fejl som jeg ikke lige kan se hvorfor den kommer.

Linje 94 er = Set objRS = objConn.Execute(strSQL)

Håber nogle har tid til lige at kigge på det.. ^^
Go' 4. advent

og min kode der hvor den henter fra databasen er:

<%
Sub writeEmptyPage()

Call OpenDB
Dim strText

strSQL = "SELECT Name, Link, Pulje FROM List ORDER BY [ID] DESC"
Set objRS = objConn.Execute(strSQL)

If Not (objRS.BOF Or objRS.EOF) Then
    Response.Write ("")

    Do While Not objRS.EOF

    strTN = objRS("Name")
    strTL = objRS("Link")
    strTP = objRS("Pulje")
    Response.Write strTN & "&nbsp;<a href=""http://www.dbu.dk"""&strTL&""">"&strTP&"</a><br />"
   
    objRS.MoveNext
    Loop
    Response.Write ("")
    else
    Response.Write "Der findes intet i Databasen"
End If

Call CloseDB
End Sub
%>