<%
sub button(intPrev,intNext,TotalPages)
dim Counter
if intPrev <> 0 then
'Response.Write " Previous Page "
end if
if rst.AbsolutePage <> -3 then
'Response.Write " Next Page "
end if
Counter=1
Response.Write "
Go to Page :"
while Counter <= TotalPages
if cint(Counter)=cint(PageIndex) then
Response.Write "" & Counter & ""
else
Response.Write "" & Counter & ""
end if
if cint(Counter) <> cint(TotalPages) then
Response.Write " | "
end if
Counter = Counter + 1
wend
end sub
function Connect()
set Connect=server.CreateObject("ADODB.Connection")
Connect.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("Borosil.mdb")
end function
%>