Display Alternating Background Colors in Search Results from Access:

Code:

list.asp

<%
Dim conn, rs, strconn, DBQValue, bgcolor
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & server.mappath("DATABASE NAME.mdb")
strsql = "select * from TABLE OR QUERY NAME where"

If Request.Form("Name") <> "" Then
strsql = strsql & " Name = '" 		&_ 
Request.Form("Name") & "' and "
End If

If Request.Form("Division") <> "" Then
strsql = strsql & " Division = '" 	& _
Request.Form("Division") & "' and "
End If

strsql=left(strsql,(len(strsql) - 5))
rs.open strsql,conn, 2, 2

bgColor="#CCCCCC"
%>

</head>
<body>

<%If rs.BOF and rs.EOF Then
	response.redirect "search.asp?Results=False"
Else%>
	<%If Not rs.BOF Then%>

<b>Search Results:</b><br><br>

<table cellspacing=2 cellpadding=2 border=0>
		<tr>
		<td class=fontWht bgcolor=#000000 valign=middle> Name  </td>
		<td class=fontWht bgcolor=#000000 valign=middle> Division  </td>
		<td> </td>
		</tr>

<%do while not rs.EOF
			if bgColor="#CCCCCC" then
			   bgcolor="#E5E5E5"
			else
				bgColor="#CCCCCC"
			end if%>
			<tr>
			<td class=font bgcolor=<%=bgColor%> valign=top> <%=rs("Name")%> </td>
			<td class=font bgcolor=<%=bgColor%> valign=top> <%=rs("Division")%> </td>
			<td class=font bgcolor=#ffffff> <a href="details.asp?ID=<%=rs("ID")%>">Details...</a></td>
			</tr>
		<%
		rs.MoveNext 
		loop
		%>

</table>
	<%End If%>
<%End If%>

</font>

</body>
</html>

<%    
rs.close
conn.close 
set rs = nothing
set conn = nothing
%>