<%@ Language=VBScript %>
<%
Response.buffer = true
Response.clear
Response.expires = 0
Dim sDia,sDia1,sMes,sMes1,sMes2,sAnno,sAnno1,sFecha
Dim area,nombre
area="5"
nombre="escribenos"
sDia1=Day(now)
sDia=CStr(sDia1)
'response.write sDia'
sMes1=Month(now)
sMes=CStr(sMes1)
'response.write sMes'
sAnno1=Year(now)
sAnno=CStr(sAnno1)
'response.write sAnno'
if (sMes<>null) & (sMes<>"") then
if (trim(sMes)="01") or (trim(sMes)="1") then
sMes2="Enero"
else
if (trim(sMes)="02") or (trim(sMes)="2") then
sMes2="Febrero"
else
if (trim(sMes)="03") or (trim(sMes)="3") then
sMes2="Marzo"
else
if (trim(sMes)="04") or (trim(sMes)="4") then
sMes2="Abril"
else
if (trim(sMes)="05") or (trim(sMes)="5") then
sMes2="Mayo"
else
if (trim(sMes)="06") or (trim(sMes)="6") then
sMes2="Junio"
else
if (trim(sMes)="07") or (trim(sMes)="7") then
sMes2="Julio"
else
if (trim(sMes)="08") or (trim(sMes)="8") then
sMes2="Agosto"
else
if (trim(sMes)="09") or (trim(sMes)="9") then
sMes2="Setiembre"
else
if (trim(sMes)="10") then
sMes2="Octubre"
else
if (trim(sMes)="11") then
sMes2="Noviembre"
else
if (trim(sMes)="12") then
sMes2="Diciembre"
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
sFecha = sDia+" "+"de"+" "+sMes2+" "+"del"+" "+sAnno
'response.write sFecha '
%>
FONAM - MDL - Contáctenos