Un momento amigo, un colega me acaba de pasar este código, y puede ser que sea lo que esté buscando... 
 
pero me da error en la linea 5 DICIENDOME QUE SE ESPERABA UNA CONSTANTE ENTERA. ¿queeeeeee????  
  
¿pero esto es cachondeo o es cachondeo????
¿se está quedando conmigo el ordenador?????? 
 
¿constante entera??????? 
  
el error es..... 
Error de compilación de Microsoft VBScript error '800a0402' 
Se esperaba una constante entera  
dim dia_festivo(NUM_DIAS)
----------------^ 
bueno, os paso el código para que me echeis una manilla con él. He estado repasando la documentación del msd con las constantes,pero nada de nada....   
Código:
 <%
'Número de dias festivos.
public const NUM_DIAS = 12
dim dia_festivo(NUM_DIAS)
dim mes_festivo(NUM_DIAS)
'Definición de dias festivos.
Public Sub CargarDiasFestivos()
	
	dia_festivo(1) = 1 : mes_festivo(1) = 1
	dia_festivo(2) = 6 : mes_festivo(2) = 1
	dia_festivo(3) = 28 : mes_festivo(3) = 2
	dia_festivo(4) = 8 : mes_festivo(4) = 4
	dia_festivo(5) = 9 : mes_festivo(5) = 4
	dia_festivo(6) = 1 : mes_festivo(6) = 5
	dia_festivo(7) = 16 : mes_festivo(7) = 8
	dia_festivo(8) = 12 : mes_festivo(8) = 10
	dia_festivo(9) = 2 : mes_festivo(9) = 11
	dia_festivo(10) = 6 : mes_festivo(10) = 12
	dia_festivo(11) = 8 : mes_festivo(11) = 12
	dia_festivo(12) = 25 : mes_festivo(12) = 12
End Sub
Public Sub MostrarDiaFestivo()
Dim dia
	For dia=0 To NUM_DIAS-1
		If Day(Date)=dia_festivo(dia) And Month(Date)=mes_festivo(dia) Then
			MostrarDiaFestivo = "El dia " & dia_festivo(dia) & " es festivo." & _
			"El mes es " & mes_festivo(dia)
		End If
	Next
End Sub
%>
  este archivo lo guardo como festivos.inc y luego le hago en otra página un include <!-- #include file ="festivos.inc" --> 
y también en la misma página le pongo que escriba el valor la variable del bucle 
<%= MostrarDiaFestivo  %> 
pero nada,  
   
ayudaaaaaaa..