Muchas gracias por la respuesta.
Aunque las paginas que me envio no era exactamente lo que necesitaba, me dio una luz para solucionar mi problema. A veces eso es suficiente para hacer las cosas.
Adjunto mi codigo por si alguna vez alguien lo necesita:
Código HTML:
'--ULTIMO DIA DEL MES--
mes = request.form("mes")
ano = request.form("ano")
Select case (Trim(mes))
case 01: muestra= "ENERO"
UltMes = 31
case 02: muestra= "FEBRERO"
if ((ano mod 4)=0) and ((ano mod 100)<>0 or (ano mod 400)=0) then
'es bisiesto
UltMes = 29
else
'no es bisiesto
UltMes = 28
end if
case 03: muestra= "MARZO"
UltMes = 31
case 04: muestra= "ABRIL"
UltMes = 30
case 05: muestra= "MAYO"
UltMes = 31
case 06: muestra= "JUNIO"
UltMes = 30
case 07: muestra= "JULIO"
UltMes = 31
case 08: muestra= "AGOSTO"
UltMes = 31
case 09: muestra= "SEPTIEMBRE"
UltMes = 30
case 10: muestra= "OCTUBRE"
UltMes = 31
case 11: muestra= "NOVIEMBRE"
UltMes = 30
case 12: muestra= "DICIEMBRE"
UltMes = 31
End select
'----CREA VECTOR CON LOS DIAS DOMINGOS DEL MES ---
dia = 1
FechaInicial = ano&"-"&mes&"-"&dia&" "&"21:00" ' para mostrar
FechaFinal = ano&"-"&mes&"-"&UltMes&" "&"21:00" 'para mostrar
Fecha = ano&"-"&mes&"-"&dia&" "&"21:00"
a=0
Dim Domingos(10)
For i = 1 to UltMes
DiaAct = WeekDayName(Weekday(Fecha))
if DiaAct = "Sunday" then
Domingos(a) = Fecha
a=a+1
end if
dia = dia + 1
Fecha = ano&"-"&mes&"-"&dia&" "&"21:00"
next
FinalDom = a-1