Hola, el color:
Defines una variable de subtipo lógico (si/no) y a cada iteracción en el bucle la cambias de True a False así:
<%
Do While Not rsMensa.EOF
If lColor Then
cColor = "tfTrufa"
Else
cColor = "tfCafe"
End If%>
'... más código...
rs.MoveNext
lColor = Not lColor
Loop
¿Sencillo no?
Para las columas sería igual. Creas una línea <tr>, luego una celda <td> y pones una variable n a la que vas cambiando el valor. Si es true, añades otra celda (2) y si es false cambias de línea.
Espero te dé la idea, si no avisa. Saludos.
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>