bi de kullandığım sayfalamayı yazıyım, bi farkı yok gerçi:

<%
GelenSayfa = Request.QueryString("Sayfa")
sayfaismi = Request("SCRIPT_NAME")
Kayit_Sayisi = 20 ' kaç tane gösterileceği
otel.PageSize = Kayit_Sayisi
otel.CacheSize = Kayit_Sayisi

If GelenSayfa = "" Then
Gosterilen_kayit = 1
Else
Gosterilen_kayit = CInt(GelenSayfa)
End If

Toplam_Kayit = otel.PageCount

If Gosterilen_kayit > Toplam_Kayit Then Gosterilen_kayit = Toplam_Kayit

If Gosterilen_kayit < 1 Then Gosterilen_kayit = 1

If Toplam_Kayit = 0 Then

Response.Write "kayıtlı veri yok" ' kayıtlı otel yoksa bunu yazacak

Else

otel.AbsolutePage = Gosterilen_kayit

end if

i = 0

do while i < Kayit_Sayisi and Not otel.Eof
%>
' burada otelleri sıralat. misal. <%=otel("oteladi")%>

<%
i = i + 1
otel.MoveNext
Loop
%>
<% for k=1 to Toplam_Kayit %>
<% if k=Gosterilen_Kayit then %>[<%=k%>]
<% else %>
<a href="<%=sayfaismi%>?Sayfa=<%=k%>">[<%=k%>]</a>
<% end if %> <% next %>

kayıtseti adını yanlış yazdığım yer varsa düzeltirsin.