Pagening

Jeg har denne her kode som jeg gerne vil modificer, således at den er til at kopier ind på de sider jeg har brug for den. Problemet er bare jeg ikke kan gennemskue den nok, til at kunne dele den op i moduler der "bare" skal sættes ind.

<%
'Databaseforbindelse
Dim dbconnect, dbrecord, sSql
Set dbconnect = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(dbpath)

'SQL forespørgsel
sSql = "SELECT * FROM femina"
dbconnect.Open sSql, strDSN, 1
%>


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

<%
If Not (dbconnect.BOF Or dbconnect.EOF) Then
    dbconnect.PageSize = 20
    dbconnect.AbsolutePage = intPage
    intRecCount = dbconnect.PageSize
    intPageCount = dbconnect.PageCount
'SIDE X AF Y
'Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not dbconnect.EOF And intRecCount > 0
        Response.Write dbconnect("fornavn") & "<br>"
    intRecCount = intRecCount - 1
    dbconnect.MoveNext
    Loop
End If
dbconnect.Close
Set dbconnect = Nothing
%>


<%
'LINKS TIL DE FORSKELLIGE SIDER
Response.Write "<BR><BR>"
If Clng(intPage) > 1 Then
    Response.Write "<A HREF=pagening.asp?page=" & intPage - 1 & ">&lt;&lt;</A>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

For intNum = 1 To intPageCount
    Response.Write "<A HREF=pagening.asp?page=" & intNum & ">" & intNum & "</A> "
Next

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<A HREF=pagening.asp?page=" & intPage + 1 & ">&gt;&gt;</A> "
Else
    Response.Write "&gt;&gt;"
End If
%>