verdiğiniz bilgilerle ve kendimce bişiler katarak şöyle bi kod olusturdum umarım sizede yardımcı olurum
<center>
<font face="verdana" size="1">Sayfa : </font><b>
<font face="verdana" size="2">
<%
if radet/deste = int(radet/deste) then sayfaadet = radet/deste else sayfaadet = int(radet/deste) +1
for p=0 to sayfaadet-1
if sayfa = p then
%> <%=p+1%>
<%
else %><A href="default.asp?s=<%=p%>"> - <%=p+1%></A></b>
<%
end if
next
%>
</font>
</center>
<%
sql="SELECT COUNT(*) FROM uye WHERE aktif=true"
Set tum_uye=Conn.Execute(sql)
tum=tum_uye(0)
sql="SELECT * FROM uye WHERE DateDiff(""n"",son,Now)<=5 AND online=true ORDER BY son"
Set tum_online=Conn.Execute(sql)
If tum_online.Eof Then
tum_on = 0
Else
tum_on=tum_online(0)
End If
%>