Verileri 3 lü veya 4 lü alt alta sıralama

merhaba arkadaşlar,


haber sayfam var. velirler alt alta yayınlanıyor yalnız tek stun halinde. bu verileri yan yana 4 erli veye 5 erli nasıl sıralarız ?


örn : 4 veri gösterildikten sonra alttaki satıra geçilerek 4 erli satırlar devam edicek. nasıl yapılabilir ?


kod :

<%
'// 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" style="border-right-width: 0px; border-top-width: 0px; border-bottom-width: 0px">
<tr>
<td>
<table border="0" width="300" cellspacing="0" cellpadding="0">
<tr>
<td width="103">
<p align="center">
<%
If Trim(strvideoResim) <> "" Then %>
<img src="<%=Trim(strvideoResim)%>" style="max-height:75px; height:86px; width:86px" class="videoResim" alt="" /><%
End If %>
</td>
<td valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0" style="border-left-width: 0px; border-right-width: 0px; border-top-width: 0px">
<tr>
<td height="18" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: dotted; border-bottom-width: 1px; padding: 1px" bordercolor="#C0C0C0">
<font color="#336699" face="Tahoma" size="1">
<a style="text-decoration: none; font-weight:700" target="_top" href="komik_video.asp?video=<%=intvideoID%>"><%=st rvideoBaslik%></a></font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td style="border-left-style: dotted; border-left-width: 1px; border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium; padding: 1px" bordercolor="#336699">
<p style="margin-top: 0; margin-bottom: 0">
<%
intLooper = intLooper + 1
kd.MoveNext
Loop

'// Sayfalama başlıyor %><%
End If
kd.Close %></p>
</td>
</tr>
</table>
-----------------------------------------------------------------

bu kod üzerinede bu işlemi yapmak istiyorum yardım ederseniz çok sevinirim...

öle kolaya kaçma hemen


alsana Kodlar kendine Göre Uyarla bakalım
rs ve db baglantılarını kendine göre ayarla
en basta sql' baglantısınada bak

bu arada yanyana = 2yanyana olmasını istediğinsayı

rs.pagesize = 8 sayfada kaç tane görünmesini istediğini ayarlıyabilrisin .

kolay gele

<% /////// Db Baglanti Baslangici \\\\\\\\ %>
<%
Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM tablo order by id desc"
rs.Open sql, bag, 1, 3 'db açtık devam edelim...
Server.ScriptTimeOut = 50
PageTimeOut = 50
%>

<% /////// Db Baglanti Sonu \\\\\\\\ %>
<% /////// Veri Sayısını Belirleme ve Veri Gösterme Bitisi \\\\\\\\ %>
<table border="0"><tr><td align="center">
<table><tr>
<%
s = Request.QueryString("s" )
If s = "" Then s = "1"
rs.PageSize = 16
rs.AbsolutePage = s
ss = rs.PageCount
For i = 1 To 16
If rs.Eof Then Exit For %>
<td width="125">
<%=Rs("yazilar" ) %></td>
<%If i mod 4 =0 Then response.write("</tr><tr>" ) %>
<% rs.Movenext
Next %>
</tr>
</table>

<% /////// Veri Sayısını Belirleme ve Veri Gösterme Bitisi \\\\\\\\ %>
<% /////// Sayfalama Baslangici \\\\\\\\ %>
<br><center><font size="1" face="verdana">
<%
Response.Write "<b>Sayfa:</b>"
For g = 1 To ss
If g = CInt(s) Then
Response.Write "<b>" & g & "</b> "
Else
Response.Write "<b><a style=""text-decoration: none"" href=""default.asp?s=" & g & """>" & g & "</a></b> "
End If
Next
%>

<% /////// Sayfalama Bitisi \\\\\\\\ %>
</td></tr></table>
</td></tr></table>

arkadaşlar

allah aşkına biri yardım etsin kaç haftadır uğraşıyorum yapamadım. asp den fazla anlamıyorum hazır kodlar kullanıyorum bu yüzden.

altta 3 erli sıralamayı yapmak istediğim default.asp sayfasını veriyorum. Bu sayfayı 3 erli sıralama haline sokabilecek arkaşa minnettar olucam valla.

yardımlarınızı bekliyorum

arkadaşım verdiğimla ve arkadaşın verdiği kodlarla yapamıosan asp den hiç anlamıosun demek .. Anlamıosanda Kendin yapman gerekli yapamam yapamadım die bişi deme çunku yapamıcak bişi yok .. dutgu somürüsüne gerek yok

// off topic
ayrıca fark ettimde yardımı almak için üye olmuşsun zaten foruma

yaw arkadaşım asp den anlamadığımı zaten söyledim ki, yapabilsem 2 haftadır yapardım buraya niye yazim ben bu konuyu 2 haftadır yapmaya çalışıyorum olmuyo sonunda defeult.asp dosyasını ekledim bunaldım çünkü.

ben oraya bu dosyayı dediğim hale getirebilecek ve bana yardım edebilecek bi arkadaş arıyorum beni habire eleştirecek değil !

yardım edebilecekseniz edin, parayla ediceksenizde söyleyin ama duygu sömürüsü yapıyosun demeyin !

ya parayla ya insanlığına yardım edebilecek arkadaş var mı ?

alixxx, bu işi eskiden bende ASP ile halletmeye çalışırdım (CSS öğrenmeden önce) şimdi daha basit oldu kendimce. En azından kodlarla kafam karışmadı. Basit yolla hemen anlatayım, umarım anlarsın..


for i = 1 to 6
response.write "<div style=""float: left; width: 100px;"">"&i&". kayıt</div>"
if i mod 2 = 0 then response.write "<div style=""clear: both;""></div>"
next


olay bu. açıklamada yapalım madem pek bilgin yok.

1'den 6'ya kadar dön
100px genişliğinde bir div yarattık ve sola yasladık. float: left son derece önemlidir. yoksa kayıtların alt alta sıralanır.
Eğer i 2'ye eşitse clear: both yani üstte sola yaslağımız hizalamayı sonlandırdık.
Döngüyü devam ettir

Satır satır açıkladım, gerisi sana kalmış. ister asp kodlarını, ister css kodlarını kullan. mantık aynı. Ben css'yi seviyorum bunu kullanıyorum. Daha basit geliyor. if i mod 2 = 0 dediğimiz yerdeki 2'yi dilediğin gibi oynayabilirsin.


Kolay gelsin..