Código ASP:
Ver original<%
' ============== Número de la Semana ==============
IF Fila = 0 then
If Semana = nSemanas01 then 'La última semana del año anterior comprende algún día del siguiente año
%>
<td class="calFondoNumeroSemanas"><%=Semana%></td>
<%
Else
%>
<td class="calFondoNumeroSemanas"><%if Len(Semana) = 1 then Response.Write "0"&Semana else Response.Write Semana end if%></td>
<%
End If
ELSE
If Semana >= nSemanas31 then 'Primera semana del año
Semana = 1
Else
Semana = Semana +1
End If
%>
<td class="calFondoNumeroSemanas"><%if Len(Semana) = 1 then Response.Write "0"&Semana else Response.Write Semana end if%></td>
<%
END IF
' ============== Fin Número de la Semana ==============
For Columna = 0 to 6
IF Fila = 0 and Columna < PrimerDiaMes then ' No hay día
UltimoDiaMesAnterior = UltimoDia((ElMes-1),ElAnyo)
DiasMesAnterior = ((UltimoDiaMesAnterior - (PrimerDiaMes-1)) + Columna)
%>
<td class="calDiaVacio"><%=DiasMesAnterior%></td>
<%
ELSEIF DiaActual > UltimoDia(ElMes, ElAnyo) then ' No hay día
DiasMesSiguiente = DiasMesSiguiente +1
%>
<td class="calDiaVacio"><%=DiasMesSiguiente%></td>
<%
ELSE
' Días de los meses que se muestrn en pantalla
EstamosEnEl = """" & CDate(DiaActual & "/" & ElMes & "/" & ElAnyo) & """"
' Montamos la evaluación de las fechas mostradas en pantalla y los días en los que transcurrirán los eventos
cad = EstamosEnEl & " = " & Join(RangoDias2, " or " & EstamosEnEl & " = ")
%>
<td bgcolor="#FFFFFF" align="center">
<%
If Columna = 5 or Columna = 6 then ' Es fin de semana
' Evaluamos
if eval(cad) = True Then ' Hay evento
%>
<div id="calFinSemanaMarcado">
<a href=""><%=DiaActual%></a>
<div><%=TxtEvento2(indiceCicloEvento)%></div>
</div>
<%
indiceCicloEvento = indiceCicloEvento + 1
else
%>
<div id="calFinSemana">
<%=DiaActual%>
</div>
<%
end if
Else
' Evaluamos
if eval(cad) = True Then ' Hay evento
%>
<div id="calDiasMarcado">
<a href=""><%=DiaActual%></a>
<div><%=TxtEvento2(indiceCicloEvento)%></div>
</div>
<%
indiceCicloEvento = indiceCicloEvento + 1
else
%>
<div id="calDias">
<%=DiaActual%>
</div>
<%
end if
End If
%>
</td>
<%
DiaActual = DiaActual +1
END IF
Next ' Columna
%>
</tr>
<%
Next ' Fila
%>
</table></td>
<%
Next 'i
%>
</tr>
</table>
</div>
<!-- Fin Calendario -->
<!-- Paginador -->
<div id="paginador" align="center">
<%
' =======
'EDITABLE
' Elejimos cuantos meses queremos que avance en en la paginación
pagMeses = 1
' =======
unMesMenos = DateAdd("m", -pagMeses, DateSerial(Anyo, Mes, 1))
unMesMas = DateAdd("m", +pagMeses, DateSerial(Anyo, Mes, 1))
splMenos = split(unmesmenos, "/")
splMas = split(unmesmas, "/")
mesMenos = splMenos(1)
anyoMenos = splMenos(2)
mesMas = splMas(1)
anyoMas = splMas(2)
%>
<a href="./calendario.asp?mes=<%=mesMenos%>&anyo=<%=anyoMenos%>">Anterior</a>
<a href="./calendario.asp?mes=<%=mesMas%>&anyo=<%=anyoMas%>">Siguiente</a>
</div>
<!-- Fin Paginador -->
<%
END IF
ELSE
Response.Write "<div id=""calFondoMes"">No se muestra los calendarios. La consulta no ha generado ningún resultado</div>"
END IF
%>
</div>
</body>
</html>
Suerte