Verileri 3 lü veya 4 lü alt alta sıralama

merhaba arkadaşlar,


haber sayfam var. velirler alt alta yayınlanıyor yalnız tek stun halinde. bu verileri yan yana 4 erli veye 5 erli nasıl sıralarız ?


örn : 4 veri gösterildikten sonra alttaki satıra geçilerek 4 erli satırlar devam edicek. nasıl yapılabilir ?


kod :

<%
'// Veritabanında uygun kayıt yoksa hata mesajı önleniyor
If intToplam = 0 Then

'// Arama yapılmışsa
If blnAra Then
Response.Write "Aradığınız kriterlere uygun video bulunamadı."

'// Kategori seçilmişse
Elseif blnSuz Then
Response.Write "Bu kategoriye henüz video eklenmedi."

'// Tüm kayıtlar seçiliyse
Else
Response.Write "Henüz video Eklenmedi."
End If

'// Uygun kayıt varsa listeleniyor
Else
'// Bir sayfada gösterilecek kayıt sayısı alınıyor
kd.PageSize = intvideoSayisi

'// Şuanda bulunulan sayfa bulunuyor
If Temizle(Request.QueryString("SF")) = "" Then
G_Kayit = 1
Else
G_Kayit = CInt(Temizle(Request.QueryString("SF")))
End If

'// Toplam sayfa sayısı hesaplanıyor
T_Kayit=kd.PageCount
If G_Kayit > T_Kayit Then G_Kayit = TKayit
If G_Kayit < 1 Then G_Kayit = 1

If T_Kayit <> 0 Then kd.AbsolutePage = G_Kayit End If
intLooper = 0

'// Kayıtlar gösterilmeye başlanıyor
Do while intLooper < intvideoSayisi And Not kd.Eof

'// Veritabanından bilgiler alınıyor
intvideoID = kd("videoID")
strvideoBaslik = kd("baslik")
blnvideoYorum = kd("yorum")
strvideoResim = kd("resim")
intvideoEditor = kd("editor")
dtmvideoTarih = kd("tarih")
strvideoOzet = kd("ozet")
intvideoKategori = kd("kategori")
intvideoPuan = kd("puan")
intvideoOySayisi = kd("oy_sayisi")
intvideoOkunma = kd("okunma")

'// Puan hesaplanıyor
If intvideoOySayisi <> "" AND intvideoPuan > 3 Then
intvideoPuan = Round(intvideoPuan/intvideoOySayisi,1)
Else
intvideoPuan = "Puan verilmedi"
End If

'// Yorum Sayısı Bulunuyor
If blnvideoYorum Then
SQL = "SELECT * FROM tblYorumlar WHERE video="& intvideoID
If blnAdminOnay Then SQL = SQL & " AND durum = True"
rs.Open SQL, adoCon, 1, 3
intvideoYorumSayisi = rs.RecordCount
rs.Close
End If %>
<table border="0" width="100%" cellspacing="0" cellpadding="0" style="border-right-width: 0px; border-top-width: 0px; border-bottom-width: 0px">
<tr>
<td>
<table border="0" width="300" cellspacing="0" cellpadding="0">
<tr>
<td width="103">
<p align="center">
<%
If Trim(strvideoResim) <> "" Then %>
<img src="<%=Trim(strvideoResim)%>" style="max-height:75px; height:86px; width:86px" class="videoResim" alt="" /><%
End If %>
</td>
<td valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0" style="border-left-width: 0px; border-right-width: 0px; border-top-width: 0px">
<tr>
<td height="18" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: dotted; border-bottom-width: 1px; padding: 1px" bordercolor="#C0C0C0">
<font color="#336699" face="Tahoma" size="1">
<a style="text-decoration: none; font-weight:700" target="_top" href="komik_video.asp?video=<%=intvideoID%>"><%=strvideoBaslik%></a></font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td style="border-left-style: dotted; border-left-width: 1px; border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium; padding: 1px" bordercolor="#336699">
<p style="margin-top: 0; margin-bottom: 0">
<%
intLooper = intLooper + 1
kd.MoveNext
Loop

'// Sayfalama başlıyor %><%
End If
kd.Close %></p>
</td>
</tr>
</table>
-----------------------------------------------------------------

bu kod üzerinede bu işlemi yapmak istiyorum yardım ederseniz çok sevinirim...

2. kez aynı soruyu sorup forum kirliliği yapmaktan utanmıyor musun?

http://forum.iyinet.com/asp-net/44739-asp-haberi-yan-yana-siralamak.html

!!!!!

Phantasm' Alıntı:

2. kez aynı soruyu sorup forum kirliliği yapmaktan utanmıyor musun?

http://forum.iyinet.com/asp-net/44739-asp-haberi-yan-yana-siralamak.html

Genişletmek için tıkla ...

bak arkadaşım önce okumasını ve anlamasını öğren sonra içindeki siniri boşalt !

ne demek utanmıyor musun ? ilk önce insan olmak lazım ki insanları anlayabilmek ve onlara insan gibi hitap etmek için !!!!!


verdiğin linkde alt alta sıralanan haberi yan yana sıralamayı sordum, bu topcde de bu yan yana sıralanan haberleri 4 erli veya 3 erli sıralamayı sordum !!!


yani sana özel açıklayım anlamamışsın : her 4 haberden sonra alt satıra geçiyorsun ve her satırda 4 er 4 er haber sıralanıyor...

ilk topicde sadece yan yana sıralamayı sordum.....


okuyalım anlayalım öyle öyle cevap verelim !!! sırf sinir kusmayalım karşımızdakine anlayışlı olalım !!!!

<%
KacarliSira = 4
KacTane = 32
%>
<table border="1" cellpadding="0" cellspacing="0" width="700" id="table1">
<tr><% for i=1 to KacTane %>
<td> <%=i%></td>
<%
If i mod KacarliSira =0 Then
Response.Write "</tr><tr>"
End If
Next
%>
</tr>
</table>

db.gen.tr' Alıntı:

<%
KacarliSira = 4
KacTane = 32
%>
<table border="1" cellpadding="0" cellspacing="0" width="700" id="table1">
<tr><% for i=1 to KacTane %>
<td> <%=i%></td>
<%
If i mod KacarliSira =0 Then
Response.Write "</tr><tr>"
End If
Next
%>
</tr>
</table>

Genişletmek için tıkla ...

Her yerde aynı kodu gördüm. Lakin "while" olmadığı için ekrana aynı şeyi basıyor. Yani şöyle;

içerik111 içerik111 içerik111 içerik111
içerik111 içerik111 içerik111 içerik111
içerik111 içerik111 içerik111 içerik111

<%
If i mod KacarliSira =0 Then
Response.Write "</tr><tr>"
End If
rs.movenext
Next
%>

db.gen.tr' Alıntı:

<%
KacarliSira = 4
KacTane = 32
%>
<table border="1" cellpadding="0" cellspacing="0" width="700" id="table1">
<tr><% for i=1 to KacTane %>
<td> <%=i%></td>
<%
If i mod KacarliSira =0 Then
Response.Write "</tr><tr>"
End If
Next
%>
</tr>
</table>

Genişletmek için tıkla ...

merhaba yardımın için çok teşekkür ederim fakat şu noktayı anlamadım. Benim verdiğim kodların neresine koymam gerekiyor bu kodu ?

aliunalcik' Alıntı:

merhaba yardımın için çok teşekkür ederim fakat şu noktayı anlamadım. Benim verdiğim kodların neresine koymam gerekiyor bu kodu ?

Genişletmek için tıkla ...

Eklemek istediğin satıra yani içeriği listelediğin satıra koyacaksın.

#db.gen.tr
Son verdiğin kodda tam olarak çözmedi olayı. hata verdi. Ayrıca kaç tane sıralayacağını gösteren yerde "32" yazıyor. Fakat ben veritabanında kaç tane içerik varsa o kadar olmasını istiyorum.

Durumu mu şöyle açıklayayım.
Bu yanyana sıralama olayını kategori sayfasına yapacağım. Yani her kategoride aynı sayıda içerik olmayacak. Birinde 10 tane olur, diğerinde 5 tane olur. İşte istediğim kodda "veritabanında ne kadar içerik varsa o kadarını göstersin" 32 olmasın.

ASP'nin bu tür kısımlarına henüz alışamadım. Bunları da çözersek tamamdır

ben bir sayfamda verileri 2li olarak böyle sıralıyorum. bunun üzerinde değişiklik yaparak 3erli yada 4erli sıralama yapabilirsiniz.

<% i = 0
Do while not Rs.Eof %>

<td height="50%"><%=rs("kategori")%></a></td>

<%
if i mod 2 then
Response.Write "</tr><tr>"
end if

i = i + 1
Rs.MoveNext
Loop

%>

saygılar,

benim anlamak istediğim ilk mesajımdaki kodun neresine koymam gerekiyor ?


veriler burada başlıyor sanırım


'// Toplam sayfa sayısı hesaplanıyor
T_Kayit=kd.PageCount
If G_Kayit > T_Kayit Then G_Kayit = TKayit
If G_Kayit < 1 Then G_Kayit = 1

If T_Kayit <> 0 Then kd.AbsolutePage = G_Kayit End If
intLooper = 0

'// Kayıtlar gösterilmeye başlanıyor
Do while intLooper < intvideoSayisi And Not kd.Eof



nasıl koyucam veya ilk mesajdaki kodun neresine koyucam çünkü sürekli hata veriyor !

Bu işinizi görür umarım birazda kendiniz tırmalayın diye açıklama yapmadan vermiştim ama hazıra konmak istiyomuşsunuz alın hazırı

Gamend' Alıntı:

Eklemek istediğin satıra yani içeriği listelediğin satıra koyacaksın.

#db.gen.tr
Son verdiğin kodda tam olarak çözmedi olayı. hata verdi. Ayrıca kaç tane sıralayacağını gösteren yerde "32" yazıyor. Fakat ben veritabanında kaç tane içerik varsa o kadar olmasını istiyorum.

Durumu mu şöyle açıklayayım.
Bu yanyana sıralama olayını kategori sayfasına yapacağım. Yani her kategoride aynı sayıda içerik olmayacak. Birinde 10 tane olur, diğerinde 5 tane olur. İşte istediğim kodda "veritabanında ne kadar içerik varsa o kadarını göstersin" 32 olmasın.

ASP'nin bu tür kısımlarına henüz alışamadım. Bunları da çözersek tamamdır

Genişletmek için tıkla ...

Bu kodla veritabanındaki tablonda bulunan veri sayısını gösterteceksin.
<% Set VeriSay = objConn.Execute("SELECT COUNT(*) AS verisayisi FROM Tabloismi ") %>
32 yazan yere aşağıdaki kodu koyacaksın, tablonda ne kadar veri kayıtlıysa o kadar çıkacak...
<%=VeriSay("VeriSayisi") %>