Merhaba Arkadaşlar
vitirn bölümünde özel projeler diye bölümüm var, admin panelinde eklenen ilanları özel projeler bölümüne ekldeğimde sadece en son eklediğim ilanı saydırıyor, aşağıda kodlama bölümünü veriyorum, bana bu konuda yardımcı olabilrmisiniz.
saygılar
<!--#include file="data.asp"-->
<%
Set vitrin=Conn.Execute("SELECT * FROM vitrin ORDER BY id DESC")
o while Not vitrin.Eof:Set ilan=Conn.Execute("SELECT * FROM ilan WHERE id="& vitrin("ilan_no")):Set il=Conn.Execute("SELECT * FROM iller WHERE id=" & ilan("il")):Set ilce=Conn.Execute("SELECT * FROM ilceler WHERE id=" & ilan("ilce")):Set kim=Conn.Execute("SELECT * FROM uye WHERE id=" & ilan("kimin"))
%>
<table width="562" border="0" align="center" cellpadding="0" cellspacing="0" id="AutoNumber1" style="border-collapse: collapse;">
<tr>
<td align="left"><br /><table border="0" cellpadding="3" cellspacing="2" bordercolorlight="#EBEBEB" bordercolordark="#EBEBEB" bgcolor="#FFFFFF" id="table2" style="border-collapse: collapse">
<tr>
<%
TABLO_SIRALA=1
If vitrin.eof Then
msg="Gösterilecek ilan Yok !"
else
vitrin.PageSize = 12
FOR i = 1 TO vitrin.PageSize
IF vitrin.eof THEN
EXIT FOR
END IF
%>
<td bordercolorlight="#EBEBEB" bordercolordark="#EBEBEB" align="center" valign="top" width="185"><img src="image/<% If not ilan("resim1")="" Then %><%=ilan("resim1")%><% Else %>resimyok.jpg<% End If %>" width="120" height="80" border="1" style="border: 1px dotted #C0C0C0" /><br /><b><a href="siteadi.asp?id=<%=ilan("id")%>"><font style="font-size: 11px"> <%=ilce("ilce")%> <%=ilan("ilan_t ip")%> <%=ilan("tip")%></font></a></b><br><font size="1"><%=ilan("fiyat")%> <%=ilan("fiyat_ti p")%><br><%=il("sehir")%> / <%=ilce("ilce")%></font></td>
<% if TABLO_SIRALA = 4 Then%><tr><td></td></tr><% TABLO_SIRALA = 1 %><% else %><% TABLO_SIRALA=TABLO_SIRALA+1 %><% end if %>
<%
vitrin.Movenext
Next
End If
%><%
Loop
%>
</table><br /></td>
</tr>
<tr>
<td align="center"><%=msg%></td>
</tr>
</table>