Hola,
Tal vez esta función te sirva:
pDateFormat="MM/DD/YYYY"
function formatDate(str)
if pDateFormat="DD/MM/YYYY" then
formatDate=day(str)&"/"&month(str)&"/"&year(str)&" "&hour(str)&":"&minute(str)&":"&second(str)
else
formatDate=month(str)&"/"&day(str)&"/"&year(str)&" "&hour(str)&":"&minute(str)&":"&second(str)
end if
end function
lo que hace esta función es muy simple: Divide la fecha de entrada en sus componentes (dia, mes, año, hora, minuto y segundo) y permite que los coloques en el orden que desees y con el separador de tu gusto.
Avisame si te sirve.
Oops..no leí bien sobre el formato que deseabas...
Ahora si va :
<%
' Codigo para mostrar la fecha
Sub LFecha()
Dim lDay
Dim lMonth
lDay = Array ("","Lunes","Martes","Miércoles","Jueves","Viernes ","Sábado","Domingo")
lMonth = Array ("","Enero","Febrero","Marzo","Abril","Mayo","Juni o", _
"Julio","Agosto", "Septiembre","Octubre","Noviembre","Diciembre" )
Response.write lDay(weekday (now, 2))&", "& Day(Now) &" de "& _
lMonth(Month(Now)) & " de " & Year(Now)
End Sub
' Codigo para mostrar la hora DEL SERVIDOR.
Sub LHora()
lHour = Hour (Now)
lMinute = Minute (Now)
If ( lHour < 10) then
lHour = "0" & lHour
End If
If (lMinute < 10) then
lMinute = "0" & lMinute
End If
Response.write lHour & ":" & lMinute
End Sub
Response.Write("Fecha: ")
LFecha
Response.Write("<br>Hora: ")
LHora
%>