Search Tools Links Login

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: 70 times

Categories

ASP/ HTML

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.