ayuda con calendario dinamico

[JuanRAPerez]

aqui esta el codigo depurado

Ojo que me vole una parte de tu codigo el de comparacion de fet contra fecha, las modificaicones van en negrita

suerte.

No se si me mandas las imagenes por correo y asi utilizo todo tu fuente

saludos

For Fila = 0 to 5
For Col = 0 to 6
If Fila = 0 and Col < PrimerDia then
response.write "<td>&nbsp;</td>"
elseif DiaActual > DiaAnterior(MiMes, MiAnio) then
response.write "<td>&nbsp;</td>"
else
response.write "<td"
if cInt(MiAnio) = Year(Date) and cInt(MiMes) = Month(Date) and DiaActual = Day(Date) then
response.write " class='calCeldaResaltado' align='center'>"
else
response.write " align='center'>"
end if
Fet = DiaActual & "/" & MiMes & "/" & MiAnio
sqlNoticias = "SELECT * FROM tbTapa WHERE fechaBase=datevalue('"& Fet &"')"
Set resNoticias = Con.Execute(sqlNoticias)
if not resNoticias.eof and not resNoticias.bof then
Fecha=resNoticias("fechaBase")
enlace = "<a href="& URLDestino &"?mes="&MiMes&"&dia="&DiaActual&">"& DiaActual &"</a>"
else
enlace = DiaActual
end if
if cInt(MiAnio) = Year(Date) and cInt(MiMes) = Month(Date) and DiaActual = Day(Date) then
Response.Write "<div class='calResaltado'>"
else
Response.Write "<div class='calSimbolo'>"
end if
Response.Write enlace &"</div></a></td>"
DiaActual = DiaActual + 1
End If
Next
response.write "</tr>"
Next