Böyle bir sayfalama fonksiyonu yapmıştım kendime zamanında belki işini görür.
ilk olarak örneğin default.asp'nin sayfalama kısmına şu kodu ;

<%=Sayfalama("Default.asp?")%>

sonra varsa fonksiyon.asp onun içinede alta verdiğim kodları ekleyip tek bir komutla sayfalama yapabilrsin.

<%
Function Sayfalama(STR)
If SayfaSayisi > 1 Then 
If Sayfa = 1 Then
Else
    Yazi = Yazi &"<font class='SayfaYazi'><a href='"&  STR &"Sayfa=1'><< </a>&nbsp;<a href='"&  STR &"Sayfa="& Sayfa-1 &"'>< </a>&nbsp;"
End If
If Sayfa+2 > SayfaSayisi Then
strOrta = SayfaSayisi 
Elseif SayfaSayisi=0 Then
SayfaSayisi=1
Else
strOrta = Sayfa+2
End If 
if Sayfa < 2 Then
strOrtada = 1
Else
strOrtada = Sayfa-2
End If
For Listele = strOrtada To strOrta
    strListele = Listele
if Listele > 0 then
if Listele = Sayfa Then
    Yazi = Yazi &"<font class=SayfaYaz>"& strListele &"</font>&nbsp;"
Else
    Yazi = Yazi&"<font class='SayfaYazi'><a href='"&  STR &"Sayfa="& Listele  &"'>"&strListele&"</a>&nbsp;"
End If 
End If 
Next
If Sayfa = SayfaSayisi Or SayfaSayisi = 0 Then
Else
    Yazi=Yazi&"<font class='SayfaYazi'><a href='"& STR  &"Sayfa="& Sayfa + 1 &"'>></a> <a  href='"& STR &"Sayfa="& SayfaSayisi &"'>  >></a>"
End If
    Yazi = Yazi &"<br>"& Sayfa &" / "& SayfaSayisi 

If Site_Siralama = 1 Then
'######################## -  LİSTELE - ########################
    Yazi=Yazi&"- <select style='width:50px;font-size:10px'  class=SayfaYaz onchange=""location =  this.options[this.selectedIndex].value;"">"
For Git = 1 To SayfaSayisi
If Git  = Sayfa Then strSecim = "selected" Else strSecim = "" End If
    Yazi=Yazi&"<option "& strSecim &" value='"& STR  &"Sayfa="& Git  &"'>"& Git  &"</option>"
Next
    Yazi=Yazi&"</select>"
End If
Sayfalama = Yazi
End IF
End Function
%>