Gönderen: 15-Ekim-2010 Saat 21:14 | Kayıtlı IP

<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<table width="500" border="2" align="center" cellpadding="0"  cellspacing="0" background="images/grad.jpg">
  <tr>
    <th scope="col">Vitrine Eklenenler </th>
  </tr>
  <% if duyuruop = "0" then %>
  <tr>
    <td><span style="border-left-style: none; border-right-style: none; border-top-style: none; border-bottom-style: none; border-bottom-color: green">
      <marquee onmouseover="this.scrollAmount='0';" onmouseout="this.scrollAmount='2';" scrollAmount="5" SCROLLDELAY="50" width="496">
      <% Server.ScriptTimeout = 400 %>
<%
Kayit_Sayisi = 10

Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/imaggaleri.mdb")

 
Set rsm = Server.CreateObject("Adodb.Recordset" )
bSQL = "Select * from vitrin ORDER BY id desc"
rsm.Open bSQL, bag, 1, 3

rsm.PageSize = Kayit_Sayisi
rsm.CacheSize = Kayit_Sayisi

If Request.QueryString("Sayfa" ) = "" Then
    Gosterilen_kayit = 1
Else
    Gosterilen_kayit = CInt(Request.QueryString("Sayfa" ))
End If

Toplam_Kayit = rsm.PageCount

If Gosterilen_kayit > Toplam_Kayit Then Gosterilen_kayit = Toplam_Kayit

If Gosterilen_kayit < 1 Then Gosterilen_kayit = 1

If Toplam_Kayit = 0 Then

    Response.Write "Kayıt bulunamadı!"

Else

    rsm.AbsolutePage = Gosterilen_kayit 

End If 

i = 0
Do While i < Kayit_Sayisi and Not rsm.Eof

%>
      <img src="images/ok.gif" width="12" height="12"><a href="vitrin_detay.asp?id=<%=rsm("id")%>"> <img src="admin/galeri/<%=rsm("resim")%>" width="138" height="92"></a></p><p>
  <span class="small"> <%=rsm("isim")%>.</span></span></a>
     
      <%
    kay.Movenext
    Loop
%>
     
      </marquee>
    </span></td>
 <% end if %>
  </tr>
</table>

bunu veritabanı ve tablona uyarla ....