Şimdi Ara

ASP Haberi Yan Yana Sıralamak ( ACİL )

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
1
Cevap
0
Favori
1.053
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • 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...







  • Yapay Zeka’dan İlgili Konular
    Daha Fazla Göster
    
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.