Hola.. lo que se me ocurre es que vayas accesando por partes a la fecha.. y al final concatenes todo.
Se me ocurre la siguiente funcion
Cita: Function ReturnDate (dDate)
Dim sName
Dim sDay
Dim sMonth
dim sYear
sName = WeekDayName(WeekDay(dDate))
sDay = Day(dDate)
sMonth = MonthName(Month(dDate))
sYear = Year(dDate)
ReturnDate = sName & " " & sDay & " de " & sMonth & " de " & sYear
End Function
y para llamarla :
response.write(
ReturnDate (Now()))
Con ello ya te quedará de la forma
Domingo 16 de Mayo de 2004
Saludos y espero te sirva el ejemplo.