ASP søgning med paging
Hvad gør jeg galt...<% Response.Buffer = True %>
<html><head>
<title>Paging af et recordset</title>
</head><body>
<%
intPage = Request(\"side\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
strKeyword = Trim(Request.Form(\"keyword\"))
If Len(strKeyword) = 0 Then
\' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect(\"soeg.asp\")
Else
\' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT LinkID, Navn, Beskrivelse FROM Links WHERE\"
strSQL = strSQL & \" (LinkID LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Navn LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Beskrivelse LIKE \'%\" & strKeyword & \"%\')\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"links.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 1
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p>\"
Do While Not rs.EOF And intRecCount > 0
Response.Write rs(\"Navn\") & \"<br>\"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write \"<p>Gå til side \"
For intNum = 1 To intPageCount
Response.Write \"<a href=soeg.asp?side=\" & intNum & \"&keyword=\" & Trim(Request(\"keyword\")) & \">\" & intNum & \"</a> \"
Next
Response.Write \"<p>\"
If Clng(intPage) > 1 Then
Response.Write \"<a href=soeg.asp?side=\" & intPage - 1 & \"&keyword=\" & Trim(Request(\"keyword\")) & \"><<</a>\"
Else
Response.Write \"<<\"
End If
Response.Write \" \"
If Clng(intPage) < Clng(intPageCount) Then
Response.Write \"<a href=soeg.asp?side=\" & intPage + 1 & \"&keyword=\" & Trim(Request(\"keyword\")) & \">>></a>\"
Else
Response.Write \">>\"
End If
%>
</body></html>
den søger fint nok... man kan bare ikke gå til \"Næste side\"... kig her http://thun.dyndns.dk/temp
<cthun>
