<%
Function CreateOption(Texto, valor, selected)
Dim resultado
if(valor <10) then
valor = "0" & valor
end if
If(Selected) then
resultado = Chr(13) & ""
else
resultado = Chr(13) & ""
End if
CreateOption = resultado
End Function
Dim anios
Dim dias
Dim i
Dim Meses
Dim Mes
Mes = Array("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre" ,"Diciembre")
dias =""
for i=1 to 31
if(i=1) then
dias = dias & CreateOption( i, i, true)
else
dias = dias & CreateOption( i, i, false)
end if
Next
Meses=""
for i=0 to 11
if(i=0) then
Meses = Meses & CreateOption(Mes(i), i+1,true)
else
Meses = Meses & CreateOption(Mes(i), i+1,false)
end if
Next
Anios=""
c = Year(Now)-20
for i=1920 to Year(Now)
if(i=c) then
anios = anios & CreateOption(i, i, true)
else
anios = anios & CreateOption(i, i, false)
end if
Next
%>
:: Portaleconomico
Registrate en portal económico, y recibe diario las noticias en tu correo electrónico,