Søgning i database
HejJeg forsøger at lave en søgeside hvor man kan søge på 4 felter men får konstant nedenstående fejl:
ODBC driver does not support the requested properties.
/viskvik_boliger.asp, line 108
Linie 108 er rs.Open strSQL, strDSN, 1
Er der en som kan løse dette for mig?
Jeg bruger nedenstående kode:
<%
Response.Buffer = True
session.LCID = 1030
'Åbner connection til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("..\database\feriebolig.mdb")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};"&DBPath
%>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
' Henter værdien fra form
strKeyword1 = Trim(Request("Keyword1"))
strKeyword2 = CInt(Request("Keyword2"))
strKeyword3 = Trim(Request("Keyword3"))
strKeyword4 = Trim(Request("Keyword4"))
If Len(strKeyword1) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
strKeyword1 = Replace(strKeyword1,"'","''")
Else
' Hvis der er skrevet i feltet
strKeyword1 = Replace(strKeyword1,"'","''")
End If
If Len(strKeyword3) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
strKeyword3 = Replace(strKeyword3,"'","''")
Else
' Hvis der er skrevet i feltet
strKeyword3 = Replace(strKeyword3,"'","''")
End If
If Len(strKeyword4) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
strKeyword4 = Replace(strKeyword4,"'","''")
Else
' Hvis der er skrevet i feltet
strKeyword4 = Replace(strKeyword4,"'","''")
End If
%>
<html>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="800" id="AutoNumber1" height="100%" background="http://www.europeancottagerental.com/images/middlebg.gif">
<tr>
<td valign="top" colspan="3"><!--#include file="ssi/logobanner.asp"--></td>
</tr>
<tr>
<td valign="top" colspan="3"><!--#include file="ssi/topbanner.asp"--></td>
</tr>
<tr>
<td valign="top" colspan="3"><!--#include file="ssi/kviksoeg.asp"--></td>
</tr>
<tr>
<td valign="top" height="100%" width="190"><!--#include file="ssi/menu.asp"--></td>
<td valign="top" height="100%" width="610">
<%'----- Indhold start ----------------------------------------------------------------------------------------------------------------------------------------------%>
<%
' lav et recordsæt
Set rs = Server.CreateObject("ADODB.RecordSet")
' Opbygger en dynamisk SQL streng
strSQL = "SELECT * FROM beskrivelse WHERE"
strSQL = strSQL & " (brugerOmraade LIKE '%" & strKeyword1 & "%')"
strSQL = strSQL & " And brugerPersoner >= " & strKeyword2 & ""
strSQL = strSQL & " And (brugerHusdyr LIKE '%" & strKeyword3 & "%')"
strSQL = strSQL & " And (brugerPool LIKE '%" & strKeyword4 & "%') order by Dato desc"
' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("..\database\feriebolig.mdb")
rs.Open strSQL, strDSN, 1
%>
<%
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 8
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
stripstate = "Side " & intPage & " af " & intPageCount & ""
' Hvis der er fundet poster på søgningen
%>
