merhaba arkadaşlar,

biraz acemi olduğum icin yapamadım

sayfada haberler alt alta cıkıyor bunu yan yana nasıl yapabilirim ?


tablo kodu :


[TABLE]

[TR]

[TD]
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: 180"]
[h=1]
[/h]
[h=2]
[/h]
[/TD]

[TD]









[/TD]

[/TR]

[/TABLE]

[/TD]

[/TR]

[/TABLE]

[HR][/HR]

[FONT=Arial]