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]