İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

ASP Haberi Yan Yana Sıralamak

aliunalcik

0
İyinet Üyesi
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...
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Üst