hola
con esto
Session.LCID = 9226
colocas el formato de fecha segun tu region
y con estos puedes formatear la hora como quieras.
http://www.maestrosdelweb.com/editorial/asptime/
o usa esta fuincion colocada por OXIGENO
Function FormatFecha(TIPO,FEC)
dim myFEC
SELECT CASE TIPO
CASE "DMA"
myFEC = (day(FEC)&"/"&month(FEC)&"/"&year(FEC))
CASE "MDA"
myFEC = (month(FEC)&"/"&day(FEC)&"/"&year(FEC))
CASE "ADM"
myFEC = (year(FEC)&"/"&day(FEC)&"/"&month(FEC))
CASE "AMD"
myFEC = (year(FEC)&"/"&month(FEC)&"/"&day(FEC))
END SELECT
FormatFecha = myFEC
End Function