Gönderen: 22-Mayıs-2012 Saat 13:11 | Kayıtlı IP

bunu dene bir de...,

<%
Dim UResimRS : Set UResimRS = MM_baglantim_STRING.Execute("SELECT * FROM album ORDER BY albumID DESC")

If UResimRS.Eof Then %>
Bu haber için kaydedilmiş resim bulunmamaktadır.
<% Else %>
<table border="0" cellpadding="3" cellspacing="2">
<%
        Dim startrw, endrw, HLooper1__index, numberColumns, numrows
        startrw = 0
        endrw = HLooper1__index
        numberColumns = 3 ' Sütun sayısı
        numrows = -1
        while((numrows <> 0) AND (Not UResimRS.EOF))
             startrw = endrw + 1
             endrw = endrw + numberColumns
%>
  <tr align="center" valign="top">
    <%
While ((startrw <= endrw) AND (Not UResimRS.EOF))
%>
    <td style="width:200px;"><img src="/images/haberler/kucuk/<%=UResimRS("Resim")%>" alt="" border="0" width="125"/></td>

    <%
    startrw = startrw + 1
    UResimRS.MoveNext()
    Wend
    %>
  </tr>
  <tr>
             <td style="background-color:#C4D5E3; height:1px;" colspan="<%=numberColumns%>"></td>
           </tr>
  <%
numrows=numrows-1
Wend
%>
</table>
<%
End If
UResimRS.Close
Set UResimRS = Nothing
  %>