ASP sayfamızda veritabanından çektiğimiz verileri 2′şerli veya 3′erli sıralama yaptırma işlemini basit bir matematik işlemiyle halledebiliriz. Aşağıdaki kod işinize yarayacaktır.

<%
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
%>

Yukarıdaki kodları açıklayayım. İlk başta i değerimizi 1′e eşitledik ve her veri yazılışında bu değeri “i=i+1” ifadesiyle 1 arttırdık.

” if 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>” ile yeni satıra geçmesini istedik.

“, ” bu kod ise her veriden sonra virgül ve bir karakter boşluk 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 istediğiniz rakam değerini yazın. İşte bu kadar.


Eğer bunu tablo ile kullanmak istiyorsanız:

<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>