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 ?


orn : 4 veri gosterildikten sonra alttaki satıra gecilerek 4 erli satırlar devam edicek. nasıl yapılabilir ?


kod :

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 gosterilmeye 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]

[TR]

[TD]
[TABLE]

[TR]

[TD="width: "103""]




[/TD]

[TD]
[TABLE]

[TR]

[TD]

[/TD]

[/TR]

[/TABLE]

[/TD]

[/TR]

[/TABLE]

[/TD]

[TD]