Arama butonu
Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı
0
Cevap
1169
Tıklama
0
Öne Çıkarma
ASP Haberi Yan Yana Sıralamak ( ACİL )
A
20 yıl (357 mesaj)
Çavuş
Konu Sahibi

merhaba arkadaşlar,


acil yardıma ihtiyacım var. bi haber sayfam var ve haber verileri alt alta çıkıyor bu verileri yan yana nasıl çıkarabilirim ?


kodu aşağıda verilmiştir.


<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 data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=11426735&url=komik_video.asp?video=<%=intvideoID%>" style="text-decoration: none" data-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>



tablo kodaları bu. bu tablo alt alta diziliyor ben yan yana dizilmesini istiyorum... Çok acil yardım edebilecek arkadaşlara tşk edeiyorum...

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil



DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.