Hvor vil den ikke hentet data fra databasen?

Jeg har prøvet at rode lidt med coden her. men den vil ikke hentet noget som helst når jeg sætter "Where kategori = " & Generel & " ind.

Meningen er at de kan vælge en kategori fra databasen og så sorter den selv de links ud der nu står med den kategori.

Men jeg får hele tiden en fejl som ser sådan her ud:
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
ODBC driver does not support the requested properties.
/sider/extra/xlink.asp, line 22

Linje 22 ser sådan her ud:
rs.Open strSQL, Conn, 1


sådan her ser hele coden ud nu:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/log/2003.mdb")
Conn.Open DSN

x_kategorie = Request.QueryString("kategorie")
if x_kategorie <> "" then
    kategorie_x = "" & x_kategorie
else
    kategorie_x = "Generel"
end if

intPage = Request("side")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT ID, kategori, hjemmesidenavn, beskrivelse, billede, link, linknavn FROM link Where Kategori = " & kategorie_x & " order by hjemmesidenavn"

rs.Open strSQL, Conn, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 3
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Response.Write "<table border='0' width='100%'>"
    Response.Write "<tr>"
    Response.Write "<td width='25%' bgcolor='#CCD7DB'>"
    Response.Write "<p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>Hjemmesidens navn</font></td>"
    Response.Write "<td width='25%' bgcolor='#CCD7DB'>"
    Response.Write "<p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>Beskrivelse</font></td>"
    Response.Write "<td width='25%' align='center' bgcolor='#CCD7DB'>"
    Response.Write "<p style='word-spacing: 0; margin: 0' align='center'><font face='Verdana' size='1'>Screen</font></td>"
    Response.Write "<td width='25%' align='center' bgcolor='#CCD7DB'>"
    Response.Write "<p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>Link</font></td>"
    Response.Write "</tr>"
    bgColor = "#FFFFFF"
    Do While Not rs.EOF And intRecCount > 0
   
    x_hjemmesidenavn = rs("hjemmesidenavn")
    x_beskrivelse = rs("beskrivelse")
    x_billede = rs("billede")
    x_link = rs("link")
    x_linknavn = rs("linknavn")
   
        Response.Write "<tr>"
        Response.Write "<td width='25%' bgcolor='" & bgColor & "'>"
        Response.Write "<p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>" & x_hjemmesidenavn & " - " & kategorie_x & "</font></td>"
        Response.Write "<td width='25%' bgcolor='" & bgColor & "'>"
        Response.Write "<p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>" & x_beskrivelse & "</font></td>"
        Response.Write "<td width='25%' align='center' bgcolor='" & bgColor & "'>"
        Response.Write "<p style='word-spacing: 0; margin: 0'>" & x_billede & "</td>"
        Response.Write "<td width='25%' align='center' bgcolor='" & bgColor & "'>"
        Response.Write "<p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'><a href='http://" & x_link & "'>" & x_linknavn & "</a></font></td>"
        Response.Write "</tr>"
       
       
    intRecCount = intRecCount - 1
    rs.MoveNext
   
if( bgColor = "#FFFFFF" ) then
        bgColor = "#DDE4E7"
    else
        bgColor = "#FFFFFF"
    end if
   
    Loop
End If
rs.Close
Set rs = Nothing
        Response.Write "</table>"
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=Link.asp?kategorie=" & kategorie_x & "&side=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=Link.asp?kategorie=" & kategorie_x & "&side=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=Link.asp?kategorie=" & kategorie_x & "&side=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If

%>