A ver, algo así, quizás haya alguna solución mejor.... monthName no te funcionaba porque me equivoqué cuando te dije (en realidad estaba mal en un manual que vi), en vez de pasarle una fecha, tenés que pasarle el número de mes (que lo obtenés con month(date) )...
<% Session.LCID = 1034
Select Case weekDay(date)
Case 1:
dia = "Domingo"
Case 2:
dia = "Lunes"
Case 3:
dia = "Martes"
Case 4
dia = "Miércoles"
Case 5:
dia = "Jueves"
Case 6:
dia = "Viernes"
Case 7:
dia = "Sábado"
End Select
Response.write dia & " " & Day(date) & " de " & MonthName(Month(date)) & " de " & Year(date)
%>
Saludos, suerte