Asp Kategori içinde Sayfalama

Merhaba Üstatlar Yardımcı Olabileceğiniz Umut ediyorum. Sayfalama Sıkıntımız var ve gereksiz Rakam kirliği Yaratıyor Bunun Önlemi vardır illaki Sorun Aşğıdaki
1. Resim

2.Resim



Şekilde Yapabilmem için Hangi Yolu Yada Bildiginiz Küçük Bir Dokunuşla Nasıl Yapmalıyız

Elimdeki O kısmın Kodlaması Aşşağıdaki gibi

<span class="rakam" style="border:none;"><a title="Önceki sayfa" href="kategori-<%=kat %>-<%=sayfa-1 %>-<%=cevir(katadi) %>-haberleri.html"><img border="0" src="images/sol.png"></a></span>

 <% end if %>           
            
<%

'Toplam kayit sayisi gösterilecek kayit sayisindan büyükse...
If CInt(TopKayit) > CInt(KayitSayisi) Then

'Link verilecek kaç sayfamiz oldugunu hesapliyoruz
  SayfaSayisi = CInt(TopKayit) / CInt(KayitSayisi)
  If InStr(1,SayfaSayisi,",",1) > 0 Then SayfaSayisi = CInt(Left(SayfaSayisi,InStr(1,SayfaSayisi,",",1))) + 2

'Ve yine elimizdeki sayfa sayisi 1´den büyükse
  If SayfaSayisi > 1 Then

'Her sayfa numarasi için sayfamiza linkimizi yazdiriyoruz
    For i=1 To sayfasayisi
%>            
            <div>
            	<span <% if i=Clng(sayfa) then %> class="mevcutrakam" <% else %> class="rakam"<% end if %>><% if i<>sayfa then %><a href="kategori-<%=kat %>-<%=i %>-<%=cevir(katadi) %>-haberleri.html"><%=i %></a><% else response.Write i end if %></span>
			</div>
<% Next
if Clng(sayfa) <> sayfasayisi then %>
 
 <span class="rakam"><a title="Sonraki sayfa" href="kategori-<%=kat %>-<%=sayfa+1 %>-<%=cevir(katadi) %>-haberleri.html"><img border="0" src="images/sag.png"></a></span>

 <% end if
   End If

'Sayfa numarasi yazdirma islemi bitti...
End If %> 
</div>
	</td>
</tr>
</table>

Bu Şekilde Nerde Nasıl bir Düzenlem ile Yapabilrim Değerli yardımlarınız bekliyorum Teşşekkürler
Web Sayfam : Sonses.tv ( Reklam değil )

<%
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>&nbsp;&nbsp;&nbsp;&nbsp;"
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 "&nbsp;&nbsp;&nbsp;&nbsp;<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

%>