Help Needed DoPaging

[neeb1954]

Hi all new to this
Hope someone can help me out on this I have an inc.asp file that I have been trying for ages to wrok around for doing paging Code attached Anyone HELP as the vendors of the product seem to have taken the money and run..........

<%
Public page
function GetDatabaseConn()
dim Conn, title
set Conn = server.createobject("ADODB.connection")
Conn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("database/db1.mdb")
Conn.Open
set GetDatabaseConn = Conn
title="My site"
End function
Function DoPaging(refRS)
If refRS.Pagecount > 1 then
DOPaging = "Page No. "
For each Item in Request.QueryString
If item <> "pg" AND item <> "Message" Then strPass = strPass & item & "=" & request.querystring(item) & "&"
Next
For pg = 1 to refRS.Pagecount
If pg = page then
DoPaging = DoPaging & pg
Else
DoPaging = DoPaging & "<A HREF=" & Request.ServerVariables("PATH_INFO") & "?" & strPass &"pg=" & pg & ">" & pg & "</A>"
End If
If pg <> refRS.pagecount then DoPaging = DoPaging & " - "
Next
End If
End Function
sub openrs(rstemp, strsource)
With rstemp
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockBatchOptimistic
.ActiveConnection = conn
.Open (strsource)
End With
If pagesize <> "" and NOT(rstemp.EOF) then
page=FixInt(Request.QueryString("pg"))
rstemp.PageSize = pagesize
If page=0 then page=1
rstemp.AbsolutePage= page
end if
end sub
Function FixInt(strNum)
If IsNull(strNum) OR Not(IsNumeric(strNum)) Then
FixInt=0
Else
FixInt=CDBL(strNum)
End If
End Function
%>

The inc file is being called from a post it page and preview works fine but not listing the paging.. any ideas out there???