Quizás les sirva...

[mariano_donati]

He resuelto un problema con el formato de las fechas, y a modo de agradecimiento a los que me ayudaron, les paso el procedimiento que se encarga de hacer el formato, por ahí les sirve o por ahí no.

sub fecha(date_time)
First_term = Day(date_time)
Second_term = Left(MonthName(Month(date_time)), 3)
Third_term = Right(Year(date_time),2)
Dia = First_term&"-"&Second_term&"-"&Third_term
Hora = Left(time, 5)
Response.Write Dia&"  "&Hora
end sub

call fecha(now())

Transforma el dato tipo Date que le pasamos como argumento,
con el formato 18-abr-05 17:11.
Gracias a todos.