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
%>