<%
sayfano=request("sayfa")
intToplamSayfa = data.pagecount
intSicrama = 10
intSayfa = CLng(sayfano)
intBasla = intSayfa - Fix(intSicrama / 2)
If (intToplamSayfa - intBasla) < intSicrama Then intBasla = (intToplamSayfa - intSicrama)
If intBasla < 1 Then intBasla = 1
If sayfano <> 1 Then Response.Write "<a class=""sayfa-no-link"" title=""ilk sayfa"" href=""sayfa.asp?sayfa=1""><<</a>"
If sayfano > 1 Then Response.Write "<a class=""sayfa-no-link"" title=""önceki "&sayfano - 1&". sayfa "" href=""sayfa.asp?sayfa="& sayfano - 1 &"""><</a> "
For i = intBasla To (intBasla + intSicrama)
If i > intToplamSayfa Then Exit For
If intSayfa = i Then
response.write "<a href=""#"" title="""&i &". sayfadasınız "" class=""secili-sayfa-no"">"&i&"</a>"
Else
Response.Write "<a class=""aktif-sayfa-no"" title="""&i &". sayfa "" href=""sayfa.asp?sayfa="& i &""">"& i &"</a> "
End If
Next
If sayfano < sayfa_sayisi Then Response.Write " <a class=""sayfa-no-link"" title=""sonraki "& sayfano + 1 &". sayfa "" href=""sayfa.asp?sayfa="& sayfano+1 &""">></a>"
If sayfano < sayfa_sayisi Then Response.Write "<a class=""sayfa-no-link"" title=""son sayfa""href=""sayfa.asp?sayfa="& sayfa_sayisi &""">>></a> "
end if
%>