<%
Aralik = 2
intSayfaAltSiniri = intGecerliSayfa - Aralik
intSayfaUstSiniri = intGecerliSayfa + Aralik
intSolGrupSayisi = 1 + Aralik
intSagAltSinir = intSayfaSayisi - Aralik
If (intSayfaUstSiniri >intSayfaSayisi) Then
intSayfaAltSiniri = intSayfaSayisi - (2 * Aralik)
intSayfaUstSiniri = intSayfaSayisi
End If
If (intSayfaAltSiniri <= 0) Then
intSayfaAltSiniri = 1
intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik)
If intSayfaUstSiniri >= intSayfaSayisi Then intSayfaUstSiniri = intSayfaSayisi
End If
If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1
If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1
If intGecerliSayfa >1 Then
message = message & "««"
message = message & "«"
End If
For i = 1 to intSolGrupSayisi
If CInt(i) = (intGecerliSayfa) Then
message = message & " "
Else
message = message & ""
End If
message = message & i &"."
Next
If (intSayfaAltSiniri - intSolGrupSayisi >1 ) Then
message = message & ". . ."
end if
For i = intSayfaAltSiniri to intSayfaUstSiniri
If CInt(i) = CInt(intGecerliSayfa) Then
message = message & " "
Else
message = message & ""
End If
message = message & i &"."
Next
If (intSagAltSinir - intSayfaUstSiniri >1) Then
message = message & ". . ."
end if
For i = intSagAltSinir to intSayfaSayisi
If CInt(i) = CInt(intGecerliSayfa) Then
message = message & " "
Else
message = message & ""
End If
message = message & i &"."
Next
If CInt(intGecerliSayfa) <>CInt(intSayfaSayisi) Then
message = message & "»"
message = message & "»»"
End If
%>
Toplam üye bulundu. üye Onaylandı ve üye Onay Bekliyor.