 |
... |
<%
set rs1=conn.execute("select sarkicilar.sarkiciad,sarkilar.sarkiadi,sarkilar.sarkihit,download,oysayi,oypuan,link,link2,oypuan/oysayi as puan from sarkicilar,sarkilar where sarkilar.sid = sarkicilar.sarkiciid and sarkilar.oysayi > 5 order by oypuan/oysayi desc limit 100")
%>
|
| <%
If CInt(n) > CInt(RecPerPage) Then
SayfaSayisi = CInt(n) / CInt(RecPerPage)
If InStr(1,SayfaSayisi,",",1) > 0 Then SayfaSayisi = CInt(Left(SayfaSayisi,InStr(1,SayfaSayisi,",",1))) + 1 end if
If SayfaSayisi > 1 Then
For i=1 To SayfaSayisi
Response.Write "" & i * CInt(RecPerPage) -99 & "-" & i * CInt(RecPerPage) & " "
Next
End If
End If
%> |
|
|