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...
Frågan#1
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> "
Else
Response.Write "Föregående "
End If
Response.Write " "
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.?