Es algo como esto.....
<%
Dim mes
Dim ano
Dim mesAnterior
Dim mesPosterior
Dim primerDia
Dim numeroDia
Dim dias
Dim semanas
mes = Request.Querystring("mes")
ano = Request.Querystring("ano")
If IsEmpty(mes) then mes = Month(Date)
if IsEmpty(ano) then ano = Year(Date)
Call Cabecera (mes, ano)
primerDia = WeekDay(DateSerial(ano, mes, 1)) - 2
numeroDia = 1
response.write (primerDia)
For semanas = 0 to 5
For dias = 0 to 6
If semanas = 0 and dias < primerDia then
response.write "<td> </td>"
else
if numeroDia > diasDelMes(mes, ano) then
response.write "<td> </td>"
else
if semanas = 0 and primerDia < 0 then
dim paso
For paso = 0 to 5
response.write "<td> </td>"
next
response.write "<td"
if mes = Month(Date) and numeroDia = Day(Date) then
response.write " bgcolor='#FF9999' align='center'>"
else
response.write " align='center'>"
end if
primerDia = 1
dias = 6
else
response.write "<td"
if mes = Month(Date) and numeroDia = Day(Date) then
response.write " bgcolor='#FF9999' align='center'>"
else
response.write " align='center'>"
end if
end if
if dias = 6 then
response.write "<font color='#FF0000'><font face='Arial, Helvetica, sans-serif' size='1'><a href = 'ingresoActividad.asp?numeroDia= "& numeroDia &"'>" & numeroDia & "</a></font></td>"
numeroDia = numeroDia + 1
else
response.write "<font color='white'><a href = 'ingresoActividad.asp?numeroDia="&numeroDia&"' >" & numeroDia & "</a></font></td> "
session("Dia")= numeroDia
numeroDia = numeroDia + 1
end if
end if
End If
Next
response.write "</tr>"
Next
response.write "</table></body></html>"
Sub Cabecera(mes,ano)
%>
<html>
<head>
<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>
</head>
<body bgcolor="#333333" background="file:///C|/Inetpub/wwwroot/calendario/Imagenes/colocolo.jpg" text="#666666" link="#666666" vlink="#666666" alink="#666666"><table border='5' cellspacing='3' cellpadding='3' width='200' align='left'>
<tr align='center'>
<td colspan='7'>
<table border='3' cellspacing='1' cellpadding='1' width='100%'>
<tr>
<td align='left'>
<font face="Arial, Helvetica, sans-serif" size="1">
<%
response.write "<a href = 'calendario.asp?"
if mes - 1 = 0 then
mesAnterior = nombreMes(12)
response.write "mes=12&ano=" & ano -1
else
mesAnterior = nombreMes(mes - 1)
response.write "mes=" & mes - 1 & "&ano=" & ano
end if
response.write "'><font size='-1'>" & mesAnterior & "</font></a>"
%>
</font>
</td><td align='center'>
<font face="Arial, Helvetica, sans-serif" size="1">
<%
response.write "<b>" & nombreMes(mes) & " " & ano & "</b>"
%>
</font>
</td><td align='right'>
<font face="Arial, Helvetica, sans-serif" size="1">
<%
response.write "<a href = 'calendario.asp?"
if mes + 1 = 13 then
mesPosterior = nombreMes(1)
response.write "mes=1&ano=" & ano + 1
else
mesPosterior = nombreMes(mes + 1)
response.write "mes=" & mes + 1 & "&ano=" & ano
end if
response.write "'><font size='-1'>" & mesPosterior & "</font></a>"
%>
</font>
</td></tr></table>
<tr align='center'>
<td><font color="#00FF00"><font face='Arial, Helvetica, sans-serif' size="1">
<b><i>L</i></b></font></td>
<td><font color="#00FF00"><font face='Arial, Helvetica, sans-serif' size="1">
<b><i>M</i></b></font></td>
<td><font color="#00FF00"><font face='Arial, Helvetica, sans-serif' size="1">
<b><i>M</i></b></font></td>
<td><font color="#00FF00"><font face="Arial, Helvetica, sans-serif" size="1">
<b><i>J</i></b></font></td>
<td><font color="#00FF00"><font face='Arial, Helvetica, sans-serif' size="1">
<b><i>V</i></b></font></td>
<td><font color="#00FF00"><font face='Arial, Helvetica, sans-serif' size="1">
<b><i>S</i></b></font></td>
<td><font color="#00FF00"><font face='Arial, Helvetica, sans-serif' size="1">
<b><i>D</i></b></font></td>
</tr>
<%
End Sub
Function nombreMes(mes)
Select Case mes
Case 1
nombreMes = "Enero"
Case 2
nombreMes = "Febrero"
Case 3
nombreMes = "Marzo"
Case 4
nombreMes = "Abril"
Case 5
nombreMes = "Mayo"
Case 6
nombreMes = "Junio"
Case 7
nombreMes = "Julio"
Case 8
nombreMes = "Agosto"
Case 9
nombreMes = "Septiembre"
Case 10
nombreMes = "Octubre"
Case 11
nombreMes = "Noviembre"
Case 12
nombreMes = "Diciembre"
Case Else
nombreMes = "ERROR!"
End Select
End Function
Function diasDelMes(mes, ano)
Select Case mes
Case 1, 3, 5, 7, 8, 10, 12
diasDelMes = 31
Case 4, 6, 9, 11
diasDelMes = 30
Case 2
If IsDate(ano & "-" & mes & "-" & "29") Then diasDelMes = 29 Else diasDelMes = 28
Case Else
diasDelMes = 0
End Select
End Function
%>