Paging igen, igen :)

Hejsa .. jeg har denne kode som jeg godt kunne tænke mig at få lagt paging på .. jeg har søgt lidt på eksperten.dk og rundt omkring på nettet men er ikke kommet frem med nogen løsning..

her er koden:

Function WriteNews()
'---------------------

' SQL forespørgsel
strsQL = "Select * from news_front"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strsQL)

' Gennemløb Recordset (rs) med en løkke
Do

WriteNews = WriteNews & "<table cellspacing='0' cellpadding='0' bgcolor='#FFFFFF' width='400' align='center'>"_
    & "<tr>"_
    & "<td id='border_b' colspan=3 bgcolor='#ECC471' height='25' background='images\news\td_top.gif'>&nbsp;&nbsp;<font color='#FFFFFF'>" & rs("headline") & "</font></td>"_
    & "</tr>"_
    & "<tr>"_
        & "<td>&nbsp;</td>"_
    & "<td align=right colspan=2><font face='Verdana' size='1'>" & rs("date") & "</font></td>"_
    & "</tr>"_
    & "<tr>"_
        & "<td>&nbsp;</td>"_
        & "<td><br>" & rs("news_rs") & "<br><br></td>"_
        & "<td>&nbsp;</td>"_
    & "</tr>"_
    & "<tr>"_
        & "<td align=right colspan=3><font face='Verdana' size='1'>skrevet af; <i>" & rs("user") & "</i></font></td>"_
    & "</tr>"_
    & "</table>"_
    & "<br>"

  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

'------------
End Function


------------------

og her er så mit forsøg for at få lagt paging på .. - ingen bashing hvis der er grove fejl, man har lov at være nybegynder :P

------------------

Function WriteNews()
'--------------------

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

' SQL forespørgsel
strsQL = "Select * from news_front"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strsQL)

' Gennemløb Recordset (rs) med en løkke

If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount

Do While Not rs.EOF And intRecCount > 0

WriteNews = WriteNews & "<table cellspacing='0' cellpadding='0' bgcolor='#FFFFFF' width='400' align='center'>"_
    & "<tr>"_
    & "<td id='border_b' colspan=3 bgcolor='#ECC471' height='25' background='images\news\td_top.gif'>&nbsp;&nbsp;<font color='#FFFFFF'>" & rs("headline") & "</font></td>"_
    & "</tr>"_
    & "<tr>"_
        & "<td>&nbsp;</td>"_
    & "<td align=right colspan=2><font face='Verdana' size='1'>" & rs("date") & "</font></td>"_
    & "</tr>"_
    & "<tr>"_
        & "<td>&nbsp;</td>"_
        & "<td><br>" & rs("news_rs") & "<br><br></td>"_
        & "<td>&nbsp;</td>"_
    & "</tr>"_
    & "<tr>"_
        & "<td align=right colspan=3><font face='Verdana' size='1'>skrevet af; <i>" & rs("user") & "</i></font></td>"_
    & "</tr>"_
    & "</table>"_
    & "<br>"

intRecCount = intRecCount - 1

  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

End If

'---------------
End Function


***

som i kan se har jeg min kode i en funktion, i en functions.asp side .. - jeg etablerer min forbindelse til min database på min 'forside' - default.asp .. - det skulle ikke have noget og sige vel ? ..

på forhånd tak :)