vis 10 poster pr side
Jeg forsøger at opbygge en side således at der kun vises 10 poster pr. side, men får flg. fejl:ADODB.Recordset error '800a0cb3'
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.
/sog_bolig.asp, line 188
Min kode ser således ud:
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
' Henter værdien fra form
strKeyword1 = Trim(Request.Form("Keyword1"))
strKeyword2 = Trim(Request.Form("Keyword2"))
strKeyword3 = Trim(Request.Form("Keyword3"))
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(strKeyword2) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
strKeyword2 = Replace(strKeyword2,"'","''")
Else
' Hvis der er skrevet i feltet
strKeyword2 = Replace(strKeyword2,"'","''")
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
' Opbygger en dynamisk SQL streng
strSQL = "SELECT * FROM Beskrivelse WHERE"
strSQL = strSQL & " (brugerOmraade LIKE '%" & strKeyword1 & "%')"
strSQL = strSQL & " And (brugerPersoner LIKE '%" & strKeyword2 & "%')"
strSQL = strSQL & " And (brugerHusdyr LIKE '%" & strKeyword3 & "%')"
strSQL = strSQL & " order by brugerDato desc"
' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("..\database\feriebolig.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
%>
<body>
<%
' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
' Hvis der er fundet poster på søgningen
%>
<table border="0" cellpadding="0" cellspacing="0" width="410" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td style="border-top: 1px solid #000000" height="10"></td>
<td width="20" align="center" style="border-top: 1px solid #000000" height="10"></td>
<td width="20" align="center" style="border-top: 1px solid #000000" height="10"></td>
<td width="20" align="center" style="border-top: 1px solid #000000" height="10"></td>
<td width="20" align="center" style="border-top: 1px solid #000000" height="10"></td>
<td width="20" align="center" style="border-top: 1px solid #000000" height="10"></td>
</tr>
<%
Do While Not rs.EOF And intRecCount > 0
intRecCount = intRecCount - 1
%>
<tr>
<td height="40" valign="top"><a href="vis_feriebolig.asp?Id=<% = rs.Fields("brugerId")%>"><font size="1" face="Verdana"><b><% = rs.Fields ("brugerOverskrift")%></b></font></a><br>
<font size="1" face="Verdana"><% = rs.Fields ("brugerOmraade")%></font></td>
<td width="110" align="center" rowspan="3" style="border-bottom: 1px solid #000000" valign="top"><a href="vis_feriebolig.asp?Id=<% = rs.Fields("brugerId")%>">
<img border="1" src="<%=rs("brugerImg1")%>" width="85" height="40" style="border: 1px solid #000000"></a></td>
<td width="20" align="center" valign="top">
<img border="1" src="http://www.sommerhusudlejning.org/images/symboler/personer14x14.gif" width="14" height="14" alt="Personer"><br>
<font size="1" face="Verdana"><% = rs.Fields ("brugerPersoner")%></font></td>
<td width="20" align="center" valign="top">
<img border="1" src="http://www.sommerhusudlejning.org/images/symboler/husdyr14x14.gif" width="14" height="14" alt="Husdyr"><br>
<font size="1" face="Verdana"><% = rs.Fields ("brugerHusdyr")%></font></td>
<td width="20" align="center" valign="top">
<img border="1" src="http://www.sommerhusudlejning.org/images/symboler/pool14x14.gif" width="14" height="14" alt="Swimmingpool"><br>
<font size="1" face="Verdana"><% = rs.Fields ("brugerPool")%></font></td>
<td width="20" align="center" valign="top">
<img border="1" src="http://www.sommerhusudlejning.org/images/symboler/spabad14x14.gif" alt="Spabad"><br>
<font size="1" face="Verdana"><% = rs.Fields ("brugerSpa")%></font></td>
</tr>
<tr>
<td valign="top"></td>
<td width="20" align="center" valign="top"></td>
<td width="20" align="center" valign="top"></td>
<td width="20" align="center" valign="top"></td>
<td width="20" align="center" valign="top"></td>
</tr>
<tr>
<td height="10" style="border-bottom: 1px solid #000000"></td>
<td height="10" style="border-bottom: 1px solid #000000"></td>
<td height="10" style="border-bottom: 1px solid #000000"></td>
<td height="10" style="border-bottom: 1px solid #000000"></td>
<td height="10" style="border-bottom: 1px solid #000000"></td>
</tr>
<tr>
<td height="10"></td>
<td height="10"></td>
<td height="10"></td>
<td height="10"></td>
<td height="10"></td>
<td height="10"></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
<%
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If
' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>
