Dbden sayılı veri çekmek

Merhabalar arkadaşlar,

şöyle bir sorunum var.

Şimdi dbden bir tablodan x isimli olan verilerden ilk 4 tanesini yazdırmak istiyorum.Daha önceden kullandığım kod aşağıda yazdım.Ancak şu anda bu kod çalışmıyor.Bi yerde mi hata yaptım acaba diye düşündüm.Sonrada sizlere sorayım dedim.

<%
Set rsvasitavitrin = Server.CreateObject("Adodb.Recordset")
rsvasitavitrin.open "Select top 4 * From ilanlar where ilanbolum = 'Vasıta' AND onay = 'Evet' order by date desc",baglan,1,3
%>


bu koddan sonra

<table border="0" width="800" cellspacing="0" cellpadding="0" id="table2">
<tr>
<%
Do until rsvasitavitrin.eof
%>
<td style="border-left-style: solid; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px">
<p align="center"><img border="0" src="<%=rsvasitavitrin("ilanresim")%>" width="150" height="150"><font face="Arial Narrow" color="#000000"><a href="ilandetay.asp?ilanid=<%=rsvasitavitrin("ilan id")%>"><p align="center"><%=rsvasitavitrin("ilanbaslik")%></a></font></td>
<%
rsvasitavitrin.Movenext
Loop
rsvasitavitrin.close

%>


bu kodlarlada yazdırıyorum.Tabi son ksıımlarını yazamadım.Sığmıyor diye.Yardımcı olacak arkadaşlara şimdiden teşekkürler.

aldığın bir hata varmı varsa hatayıda yazarsan yardımcı olmaya çalışayım kardeşim.

aldığım bi hata yok.Sadece top 4 diye belirtmiş olmama rağmen ne kadar belirttiğim özelliklerde satır varsa onları listeliyor.Yani 4 tane göstermesi gerekirken kaç tane varsa onları gösteriyor.

Veri Tabanın Access Mi ? MYSQL mi?

Access oldugunu düşünerek yazıyorum ,

<%			
Set rsvasitavitrin =  Server.CreateObject("adodb.recordset")
sql="select top 4* from kategori "
rsvasitavitrin .open sql , baglanti , 1,3
%>

 <% for i = 1 to rsvasitavitrin .recordcount %>


<td style="border-left-style: solid; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px">
<p align="center"><img border="0" src="<%=rsvasitavitrin("ilanresim")%>" width="150" height="150"><font face="Arial Narrow" color="#000000"><a href="ilandetay.asp?ilanid=<%=rsvasitavitrin("ilan id")%>"><p align="center"><%=rsvasitavitrin("ilanbaslik")%></a></font></td>

    <%
rsvasitavitrin.monevext
next
%>

kodun çalışması lazım. ben bir hata göremedim. Tablodaki kayıtları tekrar bir gözden geçirin bence.

evet kod zaten başka bi çalışmamda çalışıyor.Ancak şöyle bir durum var.Diğer çalışmamda verileri alt alta listeliyorum.Bu çalışmamda ise yanyana.Acaba sıralama yönü farklı olduğu için mi çalışmıyor diye düşünmeye başladım ama bi türlü işin içinden çıkamadım...

"Select top 4 * From ilanlar where ilanbolum = 'Vasıta' AND onay = 'Evet' order by date desc"

SQL doğru görünüyor, Recorsete maximum 4 kayıt alacaktır. Başka yerlerde problem olabilir.

Bunun dışında ilanbolum ve onay alanlarını neden string tutuyorsunuz bu performansı düşürecektir. Bit yada integer data tutmak ve sorgulatmak gerekir.

arkadaşlar sorun olan asp sayfasının linkini verdim.İndirip inceleyebilirsiniz.

http://icwsolutions.net/vasitavitrin.rar

şimdiden teşekkürler herkese.

sorguyu normal açıp döngüde 4 sınırı koyabilirsin

<%
for i=1 to 4 
if rsvasitavitrin.eof or rsvasitavitrin.bof then exit for
%>

<td style="border-left-style: solid; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px"><p align="center"><img border="0" src="<%=rsvasitavitrin("ilanresim")%>" width="150" height="150"><font face="Arial Narrow" color="#000000"><a href="ilandetay.asp?ilanid=<%=rsvasitavitrin("ilanid")%>"><p align="center"><%=rsvasitavitrin("ilanbaslik")%></a></font></td>

<%
rsvasitavitrin.movenext
next
%>