Lo que estoy intentando hacer pero no soy capaz es de marcar los días (el color de fondo), en rojo por ejemplo, donde hay actividades, y donde no hay, que no salga coloreado.
Os pongo el código:
Cita:
<%
Dim giorno,mese,anno,tmese,day1,primog, mese2, anno2, dayoff,ultimog,x,giorno1
giorno = request("giorno")
If giorno = "" then
giorno = day(now())
End If
mese = request("mese")
If mese = "" then
mese = month(now())
End If
anno = request("anno")
If anno = "" then
anno = year(now())
End If
If mese = 12 then
mese2 = 1
anno2 = anno+1
else
mese2 = mese+1
anno2 = anno
End If
day1 = Cdate("1"+"/"+Cstr(mese)+"/"+Cstr(anno))
dayoff = Cdate("1"+"/"+Cstr(mese2)+"/"+Cstr(anno2))-1
primog = Weekday(Cdate("1"+"/"+Cstr(mese)+"/"+Cstr(anno)))-1
ultimog = Weekday(dayoff)-1
If ultimog = 0 then
ultimog = 7
End If
If primog = 0 then
primog = 7
End If
Select Case mese
case 1
tmese = "Enero"
case 2
tmese = "Febrero"
case 3
tmese = "Marzo"
case 4
tmese = "Abril"
case 5
tmese = "Mayo"
case 6
tmese = "Junio"
case 7
tmese = "Julio"
case 8
tmese = "Agosto"
case 9
tmese = "Septiembre"
case 10
tmese = "Octubre"
case 11
tmese = "Noviembre"
case 12
tmese = "Diciembre"
End Select
x=1
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<table width="190" border="0" cellpadding="0" cellspacing="0" bordercolor="#50A9D3">
<tr bgcolor="#3399CC">
<td bgcolor="#3399CC">
<div align="center"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif"><strong><%=anno%></strong></font> </div>
</td>
</tr>
</table>
<table width="190" border="0" cellpadding="0" cellspacing="0" bordercolor="#50A9D3">
<tr bgcolor="#3399CC">
<td width="20" bgcolor="#297BA3"><div align="center"><a href="eventos_calendario.asp?mese=<%if mese > 1 then response.write mese-1 else response.write 12 End If%>&anno=<%if mese > 1 then response.write anno else response.write anno-1 End If%>"><img src="imagenes/eventos_ant.png" width="12" height="11" border="0"></a></div></td>
<td bgcolor="#2F8CB9"><div align="center"><font color="#FFFFFF"><strong><%=tmese%></strong></font></div></td>
<td width="20" bgcolor="#297BA3"><div align="center"><a href="eventos_calendario.asp?mese=<%if mese < 12 then response.write mese+1 else response.write 1 End If%>&anno=<%if mese < 12 then response.write anno else response.write anno+1 End If%>"><img src="imagenes/eventos_sig.png" width="12" height="11" border="0"></a></div></td>
</tr>
</table>
</font>
<table width="190" border="0" cellpadding="0" cellspacing="0" bordercolor="#50A9D3">
<tr bgcolor="#3399CC">
<td bgcolor="#FFFFFF">
<table width="190" border="1" cellpadding="0" cellspacing="0">
<tr align="center">
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong>L</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong>M</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong>M</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong>J</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong>V</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong> S</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong> D </strong></font></td>
</tr>
<tr>
<%
giorno1 = (day1-primog+x)
Do While giorno1 <= (dayoff+7-ultimog)
%>
<td <%If day(day1-primog+x)=day(now()) and month(day1-primog+x)=month(now()) then response.write "bgcolor=""#D6EAF5""" End If%><%If day(day1-primog+x)="25" and month(day1-primog+x)="3" then response.write "bgcolor=""#3399CC""" End If%>>
<div align="center"> <font color ="<%if giorno1 >= day1 and giorno1 <= dayoff then
response.write "#000000" ' Dias del mes
Else
response.write "#666666"' Dias del otro mes
End If%>">
<%if giorno1 >= day1 and giorno1 <= dayoff then%>
<a href="eventos_info.asp?dia=<%=day(day1-primog+x)%>&mes=<%=month(day1-primog+x)%>&ano=<%=year(day1-primog+x)%>" target="eventos_info"><font face="Arial, Helvetica, sans-serif" size="2"><b><%=day(day1-primog+x)%></b></font></a>
<%else%>
<%=day(day1-primog+x)%>
<%End If%>
</font></div>
</td>
<%If weekday(day1 - primog + x - 1) = 7 Then
response.write "</tr>"
End If%>
<%
giorno1 = giorno1 + 1
x=x+1
loop
%>
</table>
</td>
</tr>
</table>
</BODY>
</HTML>
Dim giorno,mese,anno,tmese,day1,primog, mese2, anno2, dayoff,ultimog,x,giorno1
giorno = request("giorno")
If giorno = "" then
giorno = day(now())
End If
mese = request("mese")
If mese = "" then
mese = month(now())
End If
anno = request("anno")
If anno = "" then
anno = year(now())
End If
If mese = 12 then
mese2 = 1
anno2 = anno+1
else
mese2 = mese+1
anno2 = anno
End If
day1 = Cdate("1"+"/"+Cstr(mese)+"/"+Cstr(anno))
dayoff = Cdate("1"+"/"+Cstr(mese2)+"/"+Cstr(anno2))-1
primog = Weekday(Cdate("1"+"/"+Cstr(mese)+"/"+Cstr(anno)))-1
ultimog = Weekday(dayoff)-1
If ultimog = 0 then
ultimog = 7
End If
If primog = 0 then
primog = 7
End If
Select Case mese
case 1
tmese = "Enero"
case 2
tmese = "Febrero"
case 3
tmese = "Marzo"
case 4
tmese = "Abril"
case 5
tmese = "Mayo"
case 6
tmese = "Junio"
case 7
tmese = "Julio"
case 8
tmese = "Agosto"
case 9
tmese = "Septiembre"
case 10
tmese = "Octubre"
case 11
tmese = "Noviembre"
case 12
tmese = "Diciembre"
End Select
x=1
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<table width="190" border="0" cellpadding="0" cellspacing="0" bordercolor="#50A9D3">
<tr bgcolor="#3399CC">
<td bgcolor="#3399CC">
<div align="center"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif"><strong><%=anno%></strong></font> </div>
</td>
</tr>
</table>
<table width="190" border="0" cellpadding="0" cellspacing="0" bordercolor="#50A9D3">
<tr bgcolor="#3399CC">
<td width="20" bgcolor="#297BA3"><div align="center"><a href="eventos_calendario.asp?mese=<%if mese > 1 then response.write mese-1 else response.write 12 End If%>&anno=<%if mese > 1 then response.write anno else response.write anno-1 End If%>"><img src="imagenes/eventos_ant.png" width="12" height="11" border="0"></a></div></td>
<td bgcolor="#2F8CB9"><div align="center"><font color="#FFFFFF"><strong><%=tmese%></strong></font></div></td>
<td width="20" bgcolor="#297BA3"><div align="center"><a href="eventos_calendario.asp?mese=<%if mese < 12 then response.write mese+1 else response.write 1 End If%>&anno=<%if mese < 12 then response.write anno else response.write anno+1 End If%>"><img src="imagenes/eventos_sig.png" width="12" height="11" border="0"></a></div></td>
</tr>
</table>
</font>
<table width="190" border="0" cellpadding="0" cellspacing="0" bordercolor="#50A9D3">
<tr bgcolor="#3399CC">
<td bgcolor="#FFFFFF">
<table width="190" border="1" cellpadding="0" cellspacing="0">
<tr align="center">
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong>L</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong>M</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong>M</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong>J</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong>V</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong> S</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong> D </strong></font></td>
</tr>
<tr>
<%
giorno1 = (day1-primog+x)
Do While giorno1 <= (dayoff+7-ultimog)
%>
<td <%If day(day1-primog+x)=day(now()) and month(day1-primog+x)=month(now()) then response.write "bgcolor=""#D6EAF5""" End If%><%If day(day1-primog+x)="25" and month(day1-primog+x)="3" then response.write "bgcolor=""#3399CC""" End If%>>
<div align="center"> <font color ="<%if giorno1 >= day1 and giorno1 <= dayoff then
response.write "#000000" ' Dias del mes
Else
response.write "#666666"' Dias del otro mes
End If%>">
<%if giorno1 >= day1 and giorno1 <= dayoff then%>
<a href="eventos_info.asp?dia=<%=day(day1-primog+x)%>&mes=<%=month(day1-primog+x)%>&ano=<%=year(day1-primog+x)%>" target="eventos_info"><font face="Arial, Helvetica, sans-serif" size="2"><b><%=day(day1-primog+x)%></b></font></a>
<%else%>
<%=day(day1-primog+x)%>
<%End If%>
</font></div>
</td>
<%If weekday(day1 - primog + x - 1) = 7 Then
response.write "</tr>"
End If%>
<%
giorno1 = giorno1 + 1
x=x+1
loop
%>
</table>
</td>
</tr>
</table>
</BODY>
</HTML>
A ver si me podeis ayudar.
Un saludo.