Şu Koda Bi El Atarmısınız....

[gogo1361]

Arkadaşlar şimdi elimde basit bir haber scpsi var.Genel oalrak haberleri alt alta ekliyor.ben bunun 4 tanesini yan yana koyduktan sonra bi alt satıra geçip bi 4 tanesini dah koyup bi alt satıra geçip öle öle gitmesini istiyorum.bunu nasıl bir kodla sağlıyabilirim.Yardımcı olucak arkadaşlara şimdiden teşekkür ederim...

 

[umitgenc]

<------------------------------ Kodun Başlangıcı ------------------------------">

<%
Set conn = Server.CreateObject(""ADODB.Connection"")
conn.Open ""DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="" & Server.MapPath(""Veritabani.mdb"")

set Rs = conn.execute(""select * from tablo"")

i=1

do while not Rs.eof
response.write rs(""Alan"") & "", ""

if i mod 2 = 0 then
response.write ""<br">""
end if

i = i + 1
Rs.movenext
loop
%>">
<------------------------------ Kodun Bitişi ------------------------------">


Kodun anlamı : ılk başta i değerimizi 1 eşitledik ve her veri yazılışında bu değeri ""i=i+1"" ifadesiyle 1 arttırdık.

"" ıf i mod 2 = 0 "" kodumuzda ise i sayısının 2'ye bölümünden kalan 0 ise(Yani eğer i sayısı 2'nin katı ise), ""<br">"" yazdırarak yeni satıra geçmesini söyledik.

"", "" bu kod ise her veriden sonra ,(virgül) ve boşluk (space) bırakmasını sağlıyor.Böylece verilerimiz

Veri1, Veri2
Veri3, Veri4

şeklinde sıralanacaktır.

Eğer bu işlemi 3'lü, 4'lü veya daha fazla bir rakam ile yapmak isterseniz ""if i mod 2 = 0 "" kodundaki 2 yerine yazdığınız rakamla belirleyebilirsiniz.

Bu işlemi tablolu olarak yapmak isterseniz


<------------------------------ Kodun Başlangıcı ------------------------------">
<table border=""1"" width=""100%"" cellspacing=""0""">
<tr">
<%

i = 0
Do while not Rs.Eof

%>">

<td width=""50%"""><%=Rs(""Alan"")%>"></td">

<%

if i mod 2 then
Response.Write ""</tr"><tr">""
end if

i = i + 1
Rs.MoveNext
Loop

%>">

</tr"></table">
<------------------------------ Kodun Bitişi ------------------------------">

kolay gelsin..