30 visninger per side

http://activedeveloper.dk/aspdigital/kapitel2/paging.asp

/akj

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


Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM tagwall order by Id desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
strSQL = "SELECT * From kommentarer Where nyhedsid = " & Request.Querystring("id")
rs.Open strSQL, strDSN, 1
'Set rs =  Con.Execute(Sql)
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 30
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
'    Response.Write "<p><b><span class='skrift'>Side " & intPage & " af " & intPageCount & "</span></b></p>"
    Do While Not rs.EOF And intRecCount > 0

response.write ""& rs("news") &""

intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If

Response.Write "<p><b><font face=Verdana, Arial, Helvetica, sans-serif size=1>Page " & intPage & " of " & intPageCount & "</span></b></p>"
Response.Write "<p><font face=Verdana, Arial, Helvetica, sans-serif size=1>Page </span>"
For intNum = 1 To intPageCount
    Response.Write "<a href=default.asp?page=viewmsg&id="& Request.Querystring("id") &"&ForumID="& Request.Querystring("forumid") &"&gotopage=" & intNum & "><span class='skrift'>" & intNum & "</span></a> "
Next
%>
Hvis du vil have lidt forklaring så bare skriv!

/Mjall0w-

hehe ups det var jo sådan set det der stod i linket der :P

/Mjall0w-

Hva' så mester, har du fundet ud af noget ??

//akj

Lukketid ??

//akj