Alternating Row Colors

Learn how to alternate row colors from database output using ASP.

Simple enough, lets decide what this is going to do in English:

1. Connect to the database, execute the SQL query.
2. Run an IF...ELSE statement and use MOD 2 = 0 to figure whether the variable oddsevens is odd or even.
3. Display a background color of black or white, depending on whether oddsevens was odd or even.
4. Display the data.
5. Add one to oddsevens, so the next row will be an alternating color.
6. Move to the next row in the SQL query, continue the DO LOOP.

<%
  Dim Conn
  Dim SqlTemp
  Dim oddsevens
  oddsevens = 1
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\test.mdb")& ";"
  Conn.Open
  SQLTemp = "SELECT somecolumn FROM sometable"
  set rstemp=Conn.execute(SQLTemp)
%>
<table>
<%
  Do While Not rstemp.EOF
    If (oddsevens MOD 2 = 0) Then
%>
<tr bgcolor=black><font color=white>
<%= rstemp.Fields("somedata").Value %>
</font>
<%  Else  %>
<tr bgcolor=white>
<%= rstemp.Fields("somedata").Value %>
<% End If %>
</tr>
<%
  intNum = intNum + 1
  rstemp.MoveNext
  Loop
%>
</table>
<%
  Conn.Close
  Set Conn = Nothing
%>

This article has been taken from webdesign.org.