Gönderen: 13-Nisan-2012 Saat 18:07 | Kayıtlı IP

resimlerin image klasöründe oldugunu ve db de resim adlarının yazılmıs oldugunu dikkate alarak

<% Dim sorgu: Set sorgu= objSQL.Execute("Select * From tblresim where Durum=True Order by Sira Asc;") %>
<% While Not sorgu.EOF%>

<img srchttp://www.mysite.com/image/<%=sorgu("resimadı") %>" alt="<%=sorgu("Baslik")%>" title="<%=sorgu("Baslik")%>"  />
<br>

<% sorgu.MoveNext:Wend
sorgu.Close:Set sorgu=Nothing %>

bu kod resimleri alt alta title ve alt alanlarına resme baslık vererek yazar