Problemer med Pagingsystem

Response.Write "<a href=default.asp?page=" & intNum & ">[" & intNum & "]</a> "

du kan evt prøve at skifte

Response.Write "<a href=default.asp?page=" & intNum & ">" & intNum & "</a> "

ud med

If intPage = intNum Then
  Response.Write "[" & intNum & "] "
Else
  Response.Write "<a href=default.asp?page=" & intNum & ">[" & intNum & "]</a> "
End If

Tak det virker :)

Håber lige jeg kan få den sidste hjælp selvom spm er lukket :)

Når jeg bladre i systemet viser den bare den samme post hele tiden?
Kan du se hvorfor ?

http://www.team-nopanic.dk/communications_version_1/default.asp

glemmer du at skifte id'et på den record du hiver ud.

Er ikke helt med på hvad du mener. Min kode ser sådan her ud:

    <%
   

   
    SQL = "SELECT COUNT(*) as count FROM communications  "
    set RS = conn.execute(SQL)
 
    response.write("Beskeder: " &"<b>"& RS("count") &" <br></b>")
   
    SQL = "SELECT id, author, body, addeddate, ip, website, email, topic FROM communications  "
    set RS = conn.execute(SQL)
   
    'opbygning af pagingsystem
    intPage = Request("page")
    If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
    End If
    If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 1
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Do While Not rs.EOF And intRecCount > 0
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
    End If
    rs.Close
    Set rs = Nothing
   

    Response.Write "Side: "
    For intNum = 1 To intPageCount
    If intPage = intNum Then
    Response.Write " [" & "<b>" & intNum &"</b>" & "] "
    Else
    Response.Write "<a href=default.asp?page=" & intNum & ">" & intNum & "</a> "
    End If
    Next
    response.write("<br>")
    response.write("<br>")
      response.write("<tr>")
    response.write("<td colspan='4' height='1' background='gfx/dot_horizontal.gif'></td>")
  response.write("</tr>")
    %>

i dit link, skal du sende id'et på det topic der skal vises med, så samtidig med at du udskriver linket, og gennemløber antallet af sider, skal du gennemløbe recordsettet igen, og sætte id'erne ind

Kan du evt. vise hvordan jeg gør det, i den kode jeg har postet?
Er ikke så skrap til ASP endnu :)

du ksal nok lige selv rette ti lmed din db, men noget i den her stil:

    intPage = Request("page")
    If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
    End If
    If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 5
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Do While Not rs.EOF And intRecCount > 0
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
    End If
    rs.Movefirst
   

    Response.Write "<p>Side: "
    For intNum = 1 To intPageCount
    Response.Write "<a href=default.asp?page=" & intNum & "&topic="& rs("id") &">" & intNum & "</a> "
    rs.movenext
    Next
    rs.Close
    Set rs = Nothing