Learn how to alternate row colors from database output using ASP.Simple enough, lets decide what this is going to do in English:
- Connect to the database, execute the SQL query.
- Run an IF...ELSE statement and use MOD 2 = 0 to figure whether the variable oddsevens is odd or even.
- Display a background color of black or white, depending on whether oddsevens was odd or even.
- Display the data.
- Add one to oddsevens, so the next row will be an alternating color.
- 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><td>
<%
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
%>
</td></table>
<%
Conn.Close
Set Conn = Nothing
%> |
NOTE: Had trouble connecting to the database? Click here.
More Web Programming: 
Hai,
Ths s elango to all.When i m applying the Alternating rows colors it dosen't change the colors.I m eagerly copy and pate it in my project but it s not working .Could u plz solve my query..
i send my copy of that code here.i m waiting for u r early and postive reply for u.
with regards,
Elango
code: Here
------------
<%
Dim rstemp
Dim SqlTemp
Dim oddsevens
oddsevens = 1
'Set Conn = Server.CreateObject("ADODB.Connection")
Set rstemp = Server.CreateObject("ADODB.recordset")
'Conn.connectionstring =
' "Provider=Microsoft.Jet.OLEDB.4.0;Data
' Source=" & Server.MapPath("test.mdb")& ";"
'Conn.Open
SQLTemp = "SELECT nickname FROM winnerall"
set rstemp=Con.execute(SQLTemp)
%>
<%
Do While Not rstemp.EOF
If (oddsevens MOD 2 = 0) Then
%>
<%= rstemp.Fields("nickname").Value %>
<%
Else
%>
<%= rstemp.Fields("nickname").Value %>
<% End If %>
<%
intNum = intNum + 1
rstemp.MoveNext
Loop
%>
Hai,
Ths s elango to all.When i m applying the Alternating rows colors it dosen't change the colors.I m eagerly copy and pate it in my project but it s not working .Could u plz solve my query..
i send my copy of that code here.i m waiting for u r early and postive reply for u.
with regards,
Elango
code: Here
------------
<%
Dim rstemp
Dim SqlTemp
Dim oddsevens
oddsevens = 1
'Set Conn = Server.CreateObject("ADODB.Connection")
Set rstemp = Server.CreateObject("ADODB.recordset")
'Conn.connectionstring =
' "Provider=Microsoft.Jet.OLEDB.4.0;Data
' Source=" & Server.MapPath("test.mdb")& ";"
'Conn.Open
SQLTemp = "SELECT nickname FROM winnerall"
set rstemp=Con.execute(SQLTemp)
%>
<%
Do While Not rstemp.EOF
If (oddsevens MOD 2 = 0) Then
%>
<%= rstemp.Fields("nickname").Value %>
<%
Else
%>
<%= rstemp.Fields("nickname").Value %>
<% End If %>
<%
intNum = intNum + 1
rstemp.MoveNext
Loop
%>