table color?

[Monie]

I WAS WONDERING HOW TO MAKE MY TABLE(ROW) COLOR TO BE SAME LIKE WEBFORUMZ DOES?

WHAT I HAVE IN MY ASP PAGE RIGHT NOW IS JUST ONE COLOR WHEN I TRIED TO DISPLAY ALL MY DATA IN THE DATABASE USING "REPEAT REGION".

WHAT I WANT TO DO IS TO DISPLAY FIRST ROW AS <span style="color:blue">BLUE </span id="blue"> COLOR, AND THE NEXT ROW WILL BE WHITE COLOR, THE THIRD WILL BE <span style="color:blue">BLUE </span id="blue"> AGAIN...AND SO ON...

JUST WONDERING...

[D3mon]

just use a variable inside the loop that ceates each row;

Code: Select all

Dim rowcolor : rowcolor = "blue" 'set this as the second row color
for iLoop = 0 to x
    if rowcolor = "white" then
        rowcolor = "blue"
    else
       rowcolor = "white"
    end if
    response.write "<tr background="<% rowcolor %>"><td>[row contents]</td></tr>"
next

[Rob]

Or you could use:-

Code: Select all

Dim rowcolor : rowcolor = "blue" 'set this as the second row color
for iLoop = 0 to x
    rowcolor = "white"
    if iLoop MOD 2 = 1 then rowcolor="blue"
    response.write "<tr background="<% rowcolor %>"><td>[row contents]</td></tr>"
next

Same thing.... just shorter.

[spinal007]

or maybe...

Code: Select all

Class Zebras
 Private RowCount

 Public Property Get Colour()
  If (RowCount MOD 2)=0 Then Colour= "black" Else Colour= "white"
  RowCount = RowCount + 1
 End Property
End Class

Dim MyRows = New Zebras
Do While Not rs.EOF
  Response.Write "<tr style='background-color:" & MyRows.Colour & "'>stuff</tr>" & vbCRLf
Loop

just thought I'd join the party...

[Rob]

Thats actually what I do Spinal!

I'll point out though, that unless you are using this on a site-wide level, it's not really worth it.

[spinal007]

don;t u just love vb script?

[D3mon]

rumour is that CSS3 will support this kind of thing with a 'count' function

[spinal007]

u sound like the informer from x-files....
hehe

[Smokie]

[D3mon]

isn't the informer this guy?

[Rob]

Ok... Are we done here?? lol

[Monie]

hey thanx guys, let me try them first!

Errrmmm...Rob, did you forgot something
You promise to help me about the ASP TO WORD thing...

ASP to MS Word

[Monie]

Well guys...I am a bit confuse here
Actually my looping method that i used for my ROW Table seems different from the method that you guys used
Acually, this is the code that the software automatically coded for me(macromedia ultradev),
I have just to click, click and click... They have all this basic function built in...
I have learn lots of them especially modifying existing code from WEBFORUMZ

I have a hard time to modify the code that you guys gave me...
This is the code that i used. It have 1 row and 3 column..(initially)

Can you guys show me where should I add the code for the row looping color?

<span style="color:blue">This is my LOOPING method!</span id="blue">

Code: Select all

<% 
   While ((Repeat2__numRows <> 0) AND (NOT allComment.EOF))
%>
    
<tr> 
  <td class=bodytext width="18%" height="50" valign="top" bordercolorlight="#000000" bordercolordark="#000000" bgcolor="#FFFFFF">
    	<font face="Verdana" style="font-size: 8pt" color="#004685"><%=(allComment.Fields.Item("cName").Value)%></font>

        <font face="Verdana" style="font-size: 8pt"><%=(allComment.Fields.Item("cDate").Value)%></font>

  </td>
  <td class=bodytext width="73%" height="50" valign="top" bordercolorlight="#000000" bordercolordark="#000000" bgcolor="#FFFFFF">
      	<font face="Verdana" style="font-size: 8pt"><%=(allComment.Fields.Item("cComment").Value)%></font>
  </td>
  <td width="9%" height="50" bordercolorlight="#000000" bordercolordark="#000000" bgcolor="#FFFFFF"> 
        <p align="center"><font face="Verdana" style="font-size: 8pt">Delete</font>
  </td>
</tr>

<% 
   Repeat2__index=Repeat2__index+1
   Repeat2__numRows=Repeat2__numRows-1
   allComment.MoveNext()
   Wend
%>

[D3mon]

The looping starts with WHILE and ends with WEND.

[Monie]

Well guys...
I tried to put the variable inside my looping code but it cannot work.
Should i write the Response.write before my <tr>??

Can anybody help me or show me how to modify my code please
Guide me perhaps...I really need this code to work on my page!
Rob, Spinal...?Help me please

Thanx Guys

[spinal007]

the easy way:

Code: Select all

<% 
  RowCount = 0
   While ((Repeat2__numRows <> 0) AND (NOT allComment.EOF))
    If (RowCount Mod 2)=0 Then RowColour = "#DEDEDE" Else RowColour = "#CDCDCD" 
    RowCount = RowCount + 1
%>
    
<tr style="background-color:<%=RowColour%>"> 
  <td class=bodytext width="18%" height="50" valign="top" bordercolorlight="#000000" bordercolordark="#000000" bgcolor="#FFFFFF">
        <font face="Verdana" style="font-size: 8pt" color="#004685"><%=(allComment.Fields.Item("cName").Value)%></font>

        <font face="Verdana" style="font-size: 8pt"><%=(allComment.Fields.Item("cDate").Value)%></font>

  </td>
  <td class=bodytext width="73%" height="50" valign="top" bordercolorlight="#000000" bordercolordark="#000000" bgcolor="#FFFFFF">
          <font face="Verdana" style="font-size: 8pt"><%=(allComment.Fields.Item("cComment").Value)%></font>
  </td>
  <td width="9%" height="50" bordercolorlight="#000000" bordercolordark="#000000" bgcolor="#FFFFFF"> 
        <p align="center"><font face="Verdana" style="font-size: 8pt">Delete</font>
  </td>
</tr>

<% 
   Repeat2__index=Repeat2__index+1
   Repeat2__numRows=Repeat2__numRows-1
   allComment.MoveNext()
   Wend
%>

[Monie]

Thanx very much spinal...Your code really makes my day brighter!
God bless...