Fejl ved paging

Måske, men det er meget vigtigt du bruger rs.Open til at åbne recordset og ikke set rs=Conn.Execute(...)

Sådan her:

rs.Open strSQL, Conn, 1

Så skal denne linje også med, hvis du ikke har den med :)

Set rs = Server.CreateObject("ADODB.Recordset")

Fint, men nu får jeg en anden fejl der siger: ODBC driver does not support the requested properties

Du skal lige rette de to variable strSQL og Conn sådan de passer mit dine variable navne.

Den skulle være god nok, men det kan være det er mig den er gal med se koden her:

    Response.Write "<h1>Vælg feriehus</h1>"
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\www\db\database.mdb"
    SQL = "Select * From huse "
    strSQL = "" 'indeholder where delen
    If Request("omraade") <> "" Then strSQL = strSQL & " omraade = " & Request("omraade") & " AND"
    If Request("personer") <> "" Then strSQL = strSQL & " personer >= " & Request("personer") & " AND"
    If Request("soverum") <> "" Then strSQL = strSQL & " soverum >= " & Request("soverum") & " AND"
    If Request("pool") <> "" Then strSQL = strSQL & " pool = " & Request("pool") & " AND"
    If Request("spa") <> "" Then strSQL = strSQL & " spa = " & Request("spa") & " AND"
    If Request("sauna") <> "" Then strSQL = strSQL & " sauna = " & Request("sauna") & " AND"
    If Request("husdyr") <> "" Then strSQL = strSQL & " husdyr = " & Request("husdyr") & " AND"
    If Request("tv") <> "" Then strSQL = strSQL & " tv = " & Request("tv") & " AND"
    If Request("parabol") <> "" Then strSQL = strSQL & " parabol = " & Request("parabol") & " AND"
    If Request("havudsigt") <> "" Then strSQL = strSQL & " havudsigt = " & Request("havudsigt") & " AND"
    If Request("vaskemaskine") <> "" Then strSQL = strSQL & " vaskemaskine = " & Request("vaskemaskine") & " AND"
    If Request("opvaskemaskine") <> "" Then strSQL = strSQL & " opvaskemaskine = " & Request("opvaskemaskine") & " AND"
    If Request("braendeovn") <> "" Then strSQL = strSQL & " braendeovn = " & Request("braendeovn") & " AND"
    If Request("tv") <> "" Then strSQL = strSQL & " tv = " & Request("tv") & " AND"
    If Request("parabol") <> "" Then strSQL = strSQL & " parabol = " & Request("parabol") & " AND"
    ' slet evt. overskydende "AND" i strSQL strengen:
    If Right(strSQL,3) = "AND" Then strSQL = Left( strSQL, (Len(strSQL)-3) )
    'Hvis strSQL ikke er tom indsæt WHERE i SQL sætning:
    if strSQL <> "" then SQL = SQL & " WHERE " & strSQL & ""
    SQL = SQL & " order by katalognummer ASC"
    rs.Open strSQL, strDSN, 1

Prøv sådan her:

rs.Open SQL, strDSN, 1

Det var bare dejligt nu virker det - tak for hjælpen