Tips Centre Saturday, November 18, 2017

Home Home | About Us About Us | Contact Us Contact Us

vrPakistanis Technologies - Web Development, Logo Designing, Web Designing

Home > ASP

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.
Here it is in ASP:

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

Not as hard as it looks, is it? Simple idea, really. Just be sure to change test.mdb, somecolumn, sometable, and the two instances of somedata to match your database.

This article has been taken from webdesign.org.

Tips Centre 2008-2012. All rights reserved. Developed by vrPakistanis Technologies.