Ivan
revisa este codigo a ver si te sirve
el while seria en tu caso ( While not rst.eof) donde rst es el recordset
El select case en tu caso diferencia en dias entre la fecha actual y la fechademodificacion
<html>
<table width="99%" align="center" border="1" cellpadding="1" cellspacing="1">
<tr bgcolor="#0033FF">
<td width="5%" bgcolor="#67bf7c"><font color="#003366"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Numero
</font></b> </font></td>
</tr>
<%
I=1
n=1
Dim n,Numero
while I<= 3
Select case I
case 1 %>
<tr bgcolor="#H000000FF">
<td width="5%" bgcolor="#H000000FF"><font color="#003366"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%response.write("WW")%> </font></b> </font></td>
</tr><%
case 2 %>
<tr bgcolor="#H00FF0000">
<td width="5%" bgcolor="#H00FF0000"><font color="#003366"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%response.write("qq")%> </font></b> </font></td>
</tr><%
case 3 %>
<tr bgcolor="#H00800080">
<td width="5%" bgcolor="#H00800080"><font color="#003366"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%response.write("eee")%> </font></b> </font></td>
</tr><%
end select
I=I+1
wend%>
</html>
saludos espero te funcione y te sirva
PD
los colores que tienen las celdas no son ni amarillo ni rojo