dostum yardımına çok teşekkür ederim dediğin kodda çalışıyor fakat işte sayfalama sistemimi altına koyduğumda hata veriyor.

Sayfalama sistemi şu

<%

For intSayfaSayisi = 1 To kd.PageSize
'// Sayaç geçerli sayfada ise sadece yazı yazılıyor
if abs(intSayfasayisi-G_Kayit)<6 then
If intSayfaSayisi = G_Kayit Then %><b><%=intSayfaSayisi%>.</b>

<%

'// Sayaç geçerli sayfada değilse o sayfaya link veriliyor
Else %>

<a href="<%=intSayfaSayisi%>.html"><%=intSayfaSayisi% >.</a>

<%
End If
end if
%><%
End If
%>

son eklediğim end if de hata veriyor kaldırdımmıda Expected 'Next' hatası veriyor.