<%sayfalama=2 sayfa = Request.QueryString("sayfa") if sayfa = "" then sayfa = 1 end if set rs=server.createobject("adodb.recordset") rs.open "resim order by rid desc",resim,1,3 if rs.eof then%>

Bilgilendirme

Kayıtlı Resim Bulunamadı.

<%else topurun=rs.recordcount%>

<%rs.pagesize = sayfalama rs.absolutepage = sayfa sayfala = rs.pagecount bol = 2 for I = 1 to rs.pagesize if not I mod bol = 0 then if not rs.eof then %> <%end if elseif I mod bol = 0 then if not rs.eof then%>
  &rid=<%=rs.Fields("rid")%>','SS5','height=768,width=1024,top=75,left=100,buttons=no,location=no,menubar=no,resizable=no,status=no,directories=no,toolbar=no,scrollbars=yes'); return false;">" width="98" height="72" align="middle" hspace="6" vspace="1" border="0">
<% = Left(rs.Fields("Aciklama"),50)%>
 &rid=<%=rs.Fields("rid")%>','SS5','height=768,width=1024,top=75,left=100,buttons=no,location=no,menubar=no,resizable=no,status=no,directories=no,toolbar=no,scrollbars=yes'); return false;">" width="98" height="72" align="middle" hspace="6" vspace="1" border="0">
<% = Left(rs.Fields("Aciklama"),50)%>
<%end if end if if not rs.eof then rs.movenext end if next %>

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 : <%=rs.recordcount%> <%end if%>