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
'// 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
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 Ol Şimdi DeğilÜ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.