- Katılım
- 30 Aralık 2003
- Mesajlar
- 180
- Reaction score
- 0
merhaba arkadaşlar,
biraz acemi olduğum için yapamadım
sayfada haberler alt alta çıkıyor bunu yan yana nasıl yapabilirim ?
tablo kodu :
<table border="1" width="100%" cellspacing="0" cellpadding="0" style="border-style: solid; padding: 1px" bordercolor="#A9BFD3">
<tr>
<td bordercolor="#FFFFFF">
<%
'// 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">
<tr>
<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="180">
<h1 style="margin-top: 0; margin-bottom: 0">
<font face="Arial" size="2">
<a href="komik_video.asp?video=<%=intvideoID%>" style="text-decoration: none"><%=strvideoBaslik%></a></font></h1>
<h2 style="margin-top: 0; margin-bottom: 0">
<span style="font-weight: 400">
<font face="Arial" size="1">
<%=Satir(strvideoOzet)%></font></span></h2>
</td>
<td>
<%
If Trim(strvideoResim) <> "" Then %>
<div style="padding:5px 5px 0px 5px">
<div class="resim">
<p style="margin-top: 0; margin-bottom: 0">
<img src="<%=Trim(strvideoResim)%>" style="max-height:75px; height:86px; width:86px" class="videoResim" alt="" /></div>
</div><%
End If %>
</td>
</tr>
</table>
</td>
</tr>
</table>
<hr color="#6B92B5" size="1" width="98%">
<p style="margin-top: 0; margin-bottom: 0">
<font face="Arial" style="font-size: 9pt"><%
intLooper = intLooper + 1
kd.MoveNext
Loop
'// Sayfalama başlıyor %>
</font>
</p>
</td>
</tr>
</table>
burada haberler alt alta sıralanıyor. Bunu yan yana nasıl yapabiliriz ?
şimdiden yardımlarınız için tşk ederim...
biraz acemi olduğum için yapamadım
sayfada haberler alt alta çıkıyor bunu yan yana nasıl yapabilirim ?
tablo kodu :
<table border="1" width="100%" cellspacing="0" cellpadding="0" style="border-style: solid; padding: 1px" bordercolor="#A9BFD3">
<tr>
<td bordercolor="#FFFFFF">
<%
'// 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">
<tr>
<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="180">
<h1 style="margin-top: 0; margin-bottom: 0">
<font face="Arial" size="2">
<a href="komik_video.asp?video=<%=intvideoID%>" style="text-decoration: none"><%=strvideoBaslik%></a></font></h1>
<h2 style="margin-top: 0; margin-bottom: 0">
<span style="font-weight: 400">
<font face="Arial" size="1">
<%=Satir(strvideoOzet)%></font></span></h2>
</td>
<td>
<%
If Trim(strvideoResim) <> "" Then %>
<div style="padding:5px 5px 0px 5px">
<div class="resim">
<p style="margin-top: 0; margin-bottom: 0">
<img src="<%=Trim(strvideoResim)%>" style="max-height:75px; height:86px; width:86px" class="videoResim" alt="" /></div>
</div><%
End If %>
</td>
</tr>
</table>
</td>
</tr>
</table>
<hr color="#6B92B5" size="1" width="98%">
<p style="margin-top: 0; margin-bottom: 0">
<font face="Arial" style="font-size: 9pt"><%
intLooper = intLooper + 1
kd.MoveNext
Loop
'// Sayfalama başlıyor %>
</font>
</p>
</td>
</tr>
</table>
burada haberler alt alta sıralanıyor. Bunu yan yana nasıl yapabiliriz ?
şimdiden yardımlarınız için tşk ederim...