<% Dim Crs,color1,color2,i color1="red" color2="blue" i=0 Set Crs = Conn.ExeCute(SQL) Do While Not Crs.Eof i=i+1 If i Mod 2 = 0 Then Response.Write("<tr bgcolor="&color1&">") Else Response.Write("<tr bgcolor="&color2&">") End If Crs.MoveNext Loop Crs.Close Set Crs = Nothing %>