veri listelemede farklı renkli satırlar

[turkoder]

Kod:

<%table_id=request.querystring("id")
 table_id="22"
Set rs=Server.CreateObject("Adodb.Recordset")
Sorgu="Select * from basliklar where id="&table_id&" "
'On Error Resume Next
rs.Open Sorgu, bag, 1, 3
If rs.EOF Then
nomesaj = True
 
Else
 
mesajtoplam= rs.Recordcount
  kayitlar = rs.GetRows()
  end if
 
 rs.close
 set rs=nothing
 
%>

Kayıtları diziledik veritabanımızı kapattık.
Artık dizelim.
Öbür türlü mesela while döngüsü ile veritabanımızı her kayıtta açıyorduk, şimdi ise veritabanını bir kere açıyoruz işimiz bitiyor.
Performansı siz düşünün artık...     

 

Kod:

<%kayitsay=0
i=1
  If isArray(kayitlar) Then
  Do While NOT kayitsay > Ubound(kayitlar,2)
   
     
 id = CInt(kayitlar(0,kayitsay))

 baslik= kayitlar(1,kayitsay)

if i mod 2 then ' mod bölen sonucu tutmazsa diğer renk
renk="F2F2F2" ' Renk gri
else
renk="ffffff"  ' Renk beyaz
end if
%>
  <tr>
    <td width="50%" bgcolor="#<%=renk%>"><%response.write i%></td>
    <td width="50%" bgcolor="#<%=renk%>"><%=baslik%></td>
  </tr>
<%


response.write baslik&"<br>"
  kayitsay= kayitsay+ 1
  i=i+1

Loop
end if

 
%>