Hallo.!!!

Någon som kan se något fel i denna kod:

<%
intPage = Request("sida")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * from Db order by nr desc"
strDSN = "DSN=xxx-db;Password=xxx"
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 10
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  Response.Write "<p><b>Visar sida " & intPage & " av " & intPageCount & "</b></p>"
  Do While Not rs.EOF And intRecCount > 0
a=a+1
If a mod 2 = 0 then
	bg=("#EFEFEF")
Else
	bg=("#COCOCO")
End If
%>
<%
intRecCount = intRecCount - 1
   rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<tr><td>"
For intNum = 1 To intPageCount
  Response.Write "<a href=test.asp?sida=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
  Response.Write "<a href=test.asp?sida=" & intPage - 1 & ">Föregående</a>&nbsp;"
Else
  Response.Write "Föregående&nbsp;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write "<a href=test.asp?sida=" & intPage + 1 & ">Nästa</a> "
Else
  Response.Write "Nästa"
End If
%>

jag får inte upp något felmeddelande utan sidorna vill bara inte delas upp.
Vad kan jag glömt, eller rättare sagt vad kan vara fel.?

Det är nog din loop som spökar... testa detta:

Do While Not RStemp.EOF AND intRecCount < rs.PageSize

------------------
Diselbilar drar minst bensin...!?
Kom hem till mig...

Nope, funkar inte det heller. :l

Ingen som kan se var felet ligger.?