<%
mes=month(date())
dia=day(date())
anno=year(date())
semana=weekday(date(),2)
'Response.Write(semana)
dim conn
dim rs
select case mes
case 1: nommes="Enero"
case 2: nommes="Febrero"
case 3: nommes="Marzo"
case 4: nommes="Abril"
case 5: nommes="Mayo"
case 6: nommes="Junio"
case 7: nommes="Julio"
case 8: nommes="Agosto"
case 9: nommes="Septiembre"
case 10: nommes="Octubre"
case 11: nommes="Noviembre"
case else: nommes="Diciembre"
end select
select case semana
case 1: sem="Lunes"
case 2: sem="Martes"
case 3: sem="Miercoles"
case 4: sem="Jueves"
case 5: sem="Viernes"
case 6: sem="Sabado"
case 7: sem="Domingo"
end select
%>
<%=sem%>, <%=dia%> de <%=nommes%> de <%=anno%>