<%
function veri(bahacan)
bahacan=replace(bahacan, " " , " " )
veri=bahacan
end function
Set basarilar = Server.CreateObject("ADODB.Recordset")
sor = "Select * from basari Order BY bid desc"
basarilar.Open sor,db,1,3%>
<%
if basarilar.recordcount = 0 then%>
<%else
%><%sayfalama=6
sayfa = Request.QueryString("sayfa")
if sayfa = "" then
sayfa = 1
end if
%>
<%
basarilar.pagesize = sayfalama
basarilar.absolutepage = sayfa
sayfala = basarilar.pagecount
for i=1 to basarilar.pagesize
if basarilar.eof then exit for
%>
<%=basarilar("BBaslik")%>
<%
if basarilar("BResim1")<>"" then
resim=basarilar("BResim1")
else if basarilar("BResim2")<>"" then
resim=basarilar("BResim2")
else if basarilar("BResim3")<>"" then
resim=basarilar("BResim3")
else if basarilar("BResim4")<>"" then
resim=basarilar("BResim4")
else if basarilar("BResim5")<>"" then
resim=basarilar("BResim5")
else
resim="best2.gif"
end if
end if
end if
end if
end if
%>
" src="administrator/upload/basari/<%=resim%>" width="65" height="64" align="middle" hspace="6" vspace="1">
SAYFALAR :
<%
Aralik = 2
intSayfaAltSiniri = sayfa - Aralik
intSayfaUstSiniri = sayfa + Aralik
intSolGrupSayisi = 1 + Aralik
intSagAltSinir = sayfala - Aralik
%>
<%
If (intSayfaUstSiniri >sayfala) Then
intSayfaAltSiniri = sayfala - (2 * Aralik)
intSayfaUstSiniri = sayfala
End If
%>
<%
If (intSayfaAltSiniri <= 0) Then
intSayfaAltSiniri = 1
intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik)
If intSayfaUstSiniri >= sayfala Then intSayfaUstSiniri = sayfala
End If
%>
<%
If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1
If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1
%>
<%
If sayfa >1 Then %>
[««][«]<%
End If
%>
<%
For i = 1 to intSolGrupSayisi
If CInt(i) = (sayfa) Then
Response.Write " "
Else %>
<%
End If
Response.Write i &" "
Next
%>
<%
If (intSayfaAltSiniri - intSolGrupSayisi >1 ) Then Response.Write ". . ."
%>
<%
For i = intSayfaAltSiniri to intSayfaUstSiniri
If CInt(i) = CInt(sayfa) Then
Response.Write " "
Else %>
<%
End If
Response.Write i &" "
Next
%>
<%
If (intSagAltSinir - intSayfaUstSiniri >1) Then Response.Write ". . ."
%>
<%
For i = intSagAltSinir to sayfala
If CInt(i) = CInt(sayfa) Then
Response.Write " "
Else %>
<%
End If
Response.Write i &" "
Next
%>
<%
If CInt(sayfa) <>CInt(sayfala) Then %>
[»][»»]<%
End If
%>Toplam : <%=basarilar.recordcount%>
<%end if%>