Yet another Table coloring

This gives an alternating line color on tables, it also allows a realtime highlighting.

Original Author: Jonathan Barton

Inputs

All explained int he code

Returns

All explained within the code

Code

<% 'The const's are for the colors and the Flag is needed Const sPrimaryColor = "WHITE" Const sSecondaryColor = "YELLOW" Dim bColorFlag dim lCounter 'This function does all the work for you. Function LineColor() bColorFlag = not bColorFlag If bColorFlag then LineColor = sPrimaryColor Else LineColor = sSecondaryColor End if End Function %> <br/> Alternating Line Colors <br/>


			
				

			

			
			<%
				for lCounter = 1 to 10
					Response.Write("" & vbCrLf)
					Response.Write("" & vbCrLf)
					Response.Write("" & vbCrLf)
				next
			%>
" & lCounter & "

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 104 times

Comments

No comments have been added for this post.

You must be logged in to make a comment.