Hmm!!! Pagin

Hej kan någon se vad är felet går ej att bläddra till sida 2, sida 3, osv. 

<% 
Dim connect, classifieds, whereclause, query, item
Dim descript, category, stad, pricefrom, priceto
Dim noresults

'## -- hur många inlägg ska visas per sida --
intPageSize = 25
'## -- vilken sida ska visas --
intPage = Request.QueryString("page")
'## -- om ingen querystring med sidvärde hittas, visa då första sidan --
If intPage = "" Then intPage = 1

set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;"
Set senaste = Server.CreateObject("ADODB.Recordset")

item = trim(request("item"))
category = trim(request("category"))
stad = trim(request("stad"))
priceto = trim(request("priceto"))
pricefrom = trim(request("pricefrom"))

If item = "" and descript = "" and category <> "" and _
stad = "" and pricefrom = "" and priceto = ""  then
 response.redirect "category.asp?category=" & category
end if
whereclause = "where "

if item <> "" then
 whereclause = whereclause & "instr(item,'" & _
 item & "')>0 and "
end if

if descript <> "" then
 whereclause = whereclause & "instr(description,'" & _
 descript & "')>0 and "
end if

if category <> "" then
 whereclause = whereclause & "category = '" & _
 category & "' and "
end if

if stad <> "" then
 whereclause = whereclause & "stad = '" & _
 stad & "' and "
end if

if pricefrom = "" and priceto <> "" then
 pricefrom = "0"
elseif pricefrom <> "" and priceto = "" then
 priceto = "99999999"
end if

if pricefrom <> "" and priceto <> "" then
 whereclause = whereclause & "price >= " & _
 pricefrom & " and price <= " & _
 priceto & " and "
end if

If right(whereclause,4) = "and " then
 whereclause = left(whereclause, len(whereclause) -4)
 query = "SELECT * FROM items " & whereclause   

'## -- hur många poster ska visas per sida --
senaste.PageSize = intPageSize
		
'## -- öppna och hämta alla records --
senaste.Open query, Connect, 1, 3
If senaste.EOF Then
Response.Write "Det finns inga inlägg."
Else
'## -- vilken sida i recordset uppdelningen ska visas --
senaste.AbsolutePage = intPage
		
'## -- hur många sidor finns i recordset uppdelningen --
intTotalPages = senaste.PageCount
	
'## -- lista alla inlägg som finns i db --
Do Until senaste.EOF or intRecordCount >= intPageSize
intRecordCount = intRecordCount + 1
				

Response.Write "<tr><td><img src=""bilder/" & senaste("fileName") & """ height='10' width='10'>"
response.write "<td><font size='2'><a href=""detail.asp?item=" & senaste("id") & """>" & senaste("item") & "</a>"
response.write "<td><font size='2'> Kategori:"
Response.write eval(senaste("category"))
response.write "<td><td><font size='2'>Datum:" & senaste("datecreated") & ""
response.write "<td><font size='2'>Stad:" & senaste("stad") & ""
response.write "<td><font size='2'color=#FF0000>Pris:</font>" & senaste("price") & " Kr </td></font></tr> "
senaste.MoveNext 
Loop 
End If

'## -- clean up --
senaste.Close
Set senaste= Nothing
Connect.Close
Set Connect= Nothing

'## -- visa sidnavigeringen --
'## -- intPage = vilken sida som ska visas --
'## -- intTotalPages = hur många sidor som recordsetet är uppdelat i --
Call PageNavigation(intPage, intTotalPages)

'## -- skapa sid-navigering --
Sub PageNavigation(ByVal WichPage, ByVal HowManyPages)
Dim strScriptName
	
'## -- vilken sida ska navigeringen länka till --
strScriptName = Request.ServerVariables("SCRIPT_NAME")
	
'## -- visa föregående, länkat eller olänkat beroende på vilken sida som visas --
If CInt(WichPage) > 1 Then
Response.Write "<A href='" & strScriptName & "?" & _
"page=" & WichPage - 1 & "'><< Föregående</A> "
Else
Response.Write "<< Föregående "
End If
	
'## -- lista ut alla sidnummer --
For I = 1 To HowManyPages
If CInt(WichPage) <> I Then
Response.Write "<A href='" & strScriptName & "?" & _
"page=" & I & "'>" & I & "</A> "
Else
Response.Write "[ <B>" & I & "</B> ]"
End If
Next
'## -- visa Nästa, länkad eller olänkad beroende på vilken sida som visas --
If CInt(WichPage) < CInt(HowManyPages) Then
Response.Write "<A href='" & strScriptName & "?" & _
"page=" & WichPage + 1 & "'>Nästa >>"
Else
Response.Write "Nästa >>"
End If
End Sub
%>