Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
looping thru records with different td cells
- Thread starter spastica
- Start date
something like this maybe??
Tony
Code:
<STYLE>
tr.white {background-color: #FFFFFF;}
tr.grey {background-color: #DDDDDD;}
</STYLE>
</HEAD>
<BODY>
<TABLE>
<%
strColour = "white"
While NOT objRS.EOF
If strColour = "white" Then
strColour = "grey"
Else
strColour = "white"
End If
Response.Write "<TR CLASS=" & strColour & "><TD>" & objRS("Info") & "</TD></TR>" & vbcrlf
objRS.MoveNext
Wend
%>
</TABLE>set up a variable to hold the current colour
apply this as the rowbackground at the start of the loop
at the end of you loop, before you change rows check what the current value is (using an if statement) and change the colour
e.g.(without the loop
<html>
<head>
<title>Untitled</title>
</head>
<body>
<%
dim rowcolour
rowcolour = "white"
response.write "<table border= ""1"">"
response.write "<tr bgcolor = "+rowcolour+">"
response.write "<td>Row1</td>"
response.write "</tr>"
rowcolour="silver"
response.write "<tr bgcolor = "+rowcolour+">"
response.write "<td>Row2</td>"
response.write "</tr>"
response.write "</table>"
%>
</body>
</html>
Andy
apply this as the rowbackground at the start of the loop
at the end of you loop, before you change rows check what the current value is (using an if statement) and change the colour
e.g.(without the loop
<html>
<head>
<title>Untitled</title>
</head>
<body>
<%
dim rowcolour
rowcolour = "white"
response.write "<table border= ""1"">"
response.write "<tr bgcolor = "+rowcolour+">"
response.write "<td>Row1</td>"
response.write "</tr>"
rowcolour="silver"
response.write "<tr bgcolor = "+rowcolour+">"
response.write "<td>Row2</td>"
response.write "</tr>"
response.write "</table>"
%>
</body>
</html>
Andy
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>colors</title>
</head>
<body>
<table border="1" >
<%
Dim iCount, strBGColor
iCount = 0
Do While Not objRS.EOF
If (iCount MOD 2 = 0) Then
strBGColor = "#FFFFFF"
Else
strBGColor = "#DDDDDD"
End If
%>
<tr bgcolor="<%= strBGColor %>"><td>tetst</td></tr>
<%
iCount = iCount + 1
objRS.Movenext
Loop
%>
</table>
This would over come any problems with CSS that NETSCAPE 4.X might produce
</body>
</html>
<html>
<head>
<title>colors</title>
</head>
<body>
<table border="1" >
<%
Dim iCount, strBGColor
iCount = 0
Do While Not objRS.EOF
If (iCount MOD 2 = 0) Then
strBGColor = "#FFFFFF"
Else
strBGColor = "#DDDDDD"
End If
%>
<tr bgcolor="<%= strBGColor %>"><td>tetst</td></tr>
<%
iCount = iCount + 1
objRS.Movenext
Loop
%>
</table>
This would over come any problems with CSS that NETSCAPE 4.X might produce
</body>
</html>
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question