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..