Forskellig bg på rækker i tabel

iColor=0


do while(exp)


if iColor MOD 2 = 0 THEN response.write(\"<tr bgColor=#fffff>\")
if iColor MOD 2 = 1 THEN response.write(\"<tr bgColor=#fffff>\")
iColor = iColor + 1

loop

og så skulle det selvfølgelig have været to forskellige farver :)

Hvad betyder \"do while(exp)\"?

Jeg kunne ikke få det til at virke, så jeg giver dig lige lidt af min kode, så kan det være at du kan se hvor det skal sættes ind henne...
Jeg havde slet ikke tænkt på at bruge MOD.

\' SQL-querry til databasen
strSQL = \"Select * from tbl_products ORDER BY product_name\"
\' Proceed querry
Set rs = Conn.Execute(strSQL)

\' Gennemkør recordsettet
Do
\' Der laves billedlink, hvis der er billede til varen
\' Listen udskrives
    Response.Write \"<TR bgcolor=\'\" & iColor & \"\'><TD class=IDNummer width=25>\" & rs(\"Product_ID\") & \"</TD>\"
    Response.Write \"<TD width=90 title=\'More details about \" & rs(\"Product_Name\") & \"\'><a href=\'/details.asp?id=\" & rs(\"Product_ID\") &\"\'>\" & rs(\"Product_Name\") & \"</a></TD>\"
    Response.Write \"<TD>\" & rs(\"Short_Description\") & \"</TD>\"
    Response.Write \"<TD width=20 \" & strPictureTitle & \"><DIV align=center>\" & strPictureLink & \"</DIV></TD>\"
    Response.Write \"<TD width=30>\" & strMin_Number & \"</TD>\"
    Response.Write \"<TD width=40><DIV align=right>\" & rs(\"Product_Price\") & \"</DIV></TD>\"
    Response.Write \"<TD width=20 title=\'Add \" & rs(\"Product_Name\") &\" to cart\'><DIV align=center><a href=\'/add.asp?id=\" & rs(\"Product_ID\") & \"\'><IMG height=18 hspace=0 src=\'/graf/home_files/cart.gif\' width=23 border=0></a></DIV></TD></TR>\"

  \'Næste record
  rs.MoveNext

\' Fortsæt indtil sidste record
Loop While Not rs.EOF

\' Luk databaseforbindelsen
Conn.Close
Set Conn = Nothing
%>

cFarve1 = \"#000000\"
cFarve2 = \"#FFFFFF\"

cPos = 0

\' SQL-querry til databasen
strSQL = \"Select * from tbl_products ORDER BY product_name\"
\' Proceed querry
Set rs = Conn.Execute(strSQL)

\' Gennemkør recordsettet
Do
\' Der laves billedlink, hvis der er billede til varen
\' Listen udskrives
    If cPos = 0 Then cFarve = cFarve1 Else cFarve = cFarve2
    Response.Write \"<TR bgcolor=\'\" & cFarve & \"\'><TD class=IDNummer width=25>\" & rs(\"Product_ID\") & \"</TD>\"
    Response.Write \"<TD width=90 title=\'More details about \" & rs(\"Product_Name\") & \"\'><a href=\'/details.asp?id=\" & rs(\"Product_ID\") &\"\'>\" & rs(\"Product_Name\") & \"</a></TD>\"
    Response.Write \"<TD>\" & rs(\"Short_Description\") & \"</TD>\"
    Response.Write \"<TD width=20 \" & strPictureTitle & \"><DIV align=center>\" & strPictureLink & \"</DIV></TD>\"
    Response.Write \"<TD width=30>\" & strMin_Number & \"</TD>\"
    Response.Write \"<TD width=40><DIV align=right>\" & rs(\"Product_Price\") & \"</DIV></TD>\"
    Response.Write \"<TD width=20 title=\'Add \" & rs(\"Product_Name\") &\" to cart\'><DIV align=center><a href=\'/add.asp?id=\" & rs(\"Product_ID\") & \"\'><IMG height=18 hspace=0 src=\'/graf/home_files/cart.gif\' width=23 border=0></a></DIV></TD></TR>\"
    If cPos = 0 Then cPos = 1 Else cPos = 0
  \'Næste record
  rs.MoveNext

\' Fortsæt indtil sidste record
Loop While Not rs.EOF

\' Luk databaseforbindelsen
Conn.Close
Set Conn = Nothing





/Mattias