Problema con las fechas

[mariano_donati]

Hoa nuevamente, leí el artículo y la verdad es que está muy interesante, pero igual el formato que estaba buscando no se adaptaba a ninguno de los 5 formatos que puede tomar el FORMATDATETIME, por lo que tuve que hacer mi propio sub para solucionarlo, por ahí si te sirve te dejo el codigo.

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())

Este Sub le aplica un formato personalizado del tipo 18-abr-05 17:06, que es justamente lo que estaba buscando yo. Se le pasa como argumento un dato de tipo Date, en este caso Now(), o puede ser Date(), o como fue mi caso, las fechas almacenadas en el RS.
No se si te será útil, pero como tu me has ayudado quise devolverte el favor, también la voy a postear por si le sirve a alguien.
Muchas gracias Skatomundo.