|
Bu işlemleri basit bir matematik işlemiyle halledebiliriz.
<------------------------------ 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 ------------------------------>
Kodunu kullanarak da yapabilirsiniz.
Konuyla ilgilli sorularınızı forumumuza sorabilirsiniz.
ASPREHBERI.NET sitesinden Alıntıdır.
|
 |
