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.  
