Paging problemer

Prøv at ændre for sætningen til:

For intNum = 1 To intPageCount
if intNum = intPage then
  Response.Write intNum
else
  Response.Write \"<a href=regprofil.asp?id=\" & request.QueryString(\"id\") &\"&page=\" & intNum & \">\" & intNum & \"</a> \"
End if
Next

Hmm ja virker på side 1. men ikke på resten *damn*.. har du en anden ide?

Hmmm. Af hvad jeg kan se er der intet galt med eagleeyes svar.

Ja jeg ved det heller ikke :o)
Men har man set en af de efterfølgende sider og så vender tilbage til side 1 så er den nu også lavet om til et link.. :o(

Er du sikker på at du får overført intPage rigtigt.

Jeg kan se du har en næste/forrige side, hvor du benytter intPage +/- 1 så det skulle da virke.

Lad mig lige sige med det samme, SÅ meget er jeg ikke inde i det, fandt koden på activeserverpage.dk men smider lige den her så kan du/I se om jeg har lavet en fejl :o)

<%
  rs.PageSize = 10
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  Response.Write \"<center><p><b><font face=\'Arial\' size=\'-1\'>Side \" & intPage & \" af \" & intPageCount & \"</font></center></b></p>\"
  If rs.EOF then
  Response.Write(\"<br><br><b><font face=\'Arial\'><center>Der er ingen brugere med \" & request.QueryString(\"id\") &\" der har oprettet profil hos ChatLine</b></font></center>\") & vbCrLF
  End If
  Do While Not rs.EOF And intRecCount > 0
%>
~~~~~snip~~~~~
<%
Response.Write \"<p><b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>Vis side</b></font> <br>\"
For intNum = 1 To intPageCount
if intNum = intPage then
  Response.Write intNum
else
  Response.Write \"<a href=regprofil.asp?id=\" & request.QueryString(\"id\") &\"&page=\" & intNum & \">\" & intNum & \"</a> \"
End if
Next

Response.Write \"<br>\"
If Clng(intPage) > 1 Then
  Response.Write \"<a href=regprofil.asp?id=\" & request.QueryString(\"id\") &\"&page=\" & intPage - 1 & \">&lt;&lt;</a>\"
Else
  Response.Write \"&lt;&lt;\"
End If

Response.Write \"&nbsp;\"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write \"<a href=regprofil.asp?id=\" & request.QueryString(\"id\") &\"&page=\" & intPage + 1 & \">&gt;&gt;</a> \"
Else
  Response.Write \"&gt;&gt;\"
End If
%>

Ændre if sætningen, put Clng eller Cint omkring eks.vis:

if Clng(intNum) = Clng(intPage) then
  Response.Write intNum
else
...som før....
end if

Det var jo \"bare\" det der skulle til ;o)
THANKS...
Og vers\'go her dine point.

Mvh
Jack!!