Aqui esta lo que te dije en codigo, los demas if los asocias vos y pegas el codigo para que la gente lo vea
tabla
id | titulo | fecha
2 | titulo 2 | 18/10/2005
1 | titulo 1 | 18/10/2005
4 | titulo 4 | 20/10/2005
3 | titulo 3 | 20/10/2005
5 | titulo 5 | 21/10/2005
8 | titulo 8 | 22/10/2005
7 | titulo 7 | 22/10/2005
6 | titulo 6 | 22/10/2005
10 | titulo 10 | 24/10/2005
9 | titulo 9 | 24/10/2005
Código:
<html>
<head>
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Semáforo con fechas</title>
</head>
<body bgcolor="#C0C0C0">
<p><b>Semáforo con fechas</b></p>
<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("basemenu.mdb"))
SQL = "SELECT * FROM tabla_fecha order by fecha ASC"
Set objRS = oConn.Execute(SQL)
if objRS.bof and objRS.eof then
Response.write "Estamos dando mantenimiento al menú"
else
%>
<table border="0" width="500" id="table1">
<tr>
<td width="37"><b>id</b></td>
<td><b>titulo</b></td>
<td width="111"><b>fecha (difer.)</b></td>
</tr>
<%
while (not objRS.Eof)
'asigno un color por defecto para mis filas
'color = "#FFFFFF"
'obtengo la fecha de hoy
fecha_hoy = date()
'obtengo el valor de la fecha del recordset
fecha_registro = objRS("fecha")
'obtengo la diferencia en dias
diferencia_dias = DateDiff("d", fecha_registro, fecha_hoy)
'si es mayor que 3
if diferencia_dias > 3 then
'color rojo
color = "#FF0000"
else
'color amarillo
color = "#FFFF00"
end if
%>
<tr bgcolor='<%=color%>'>
<td>
<%=objRS("id")%>
</td>
<td>
<%=objRS("titulo")%>
</td>
<td>
<%=objRS("fecha")%>, (<%=diferencia_dias%>)
</td>
</tr>
<%
objRS.MoveNext
wend
end if
objRS.Close
set objRS = nothing
%>
</table>
<p>
<%
oConn.Close
set oConn = nothing
%>
</p>
</body>
</html>