Funzione conversione data

[wegawhite]

Ho trovato questa funzione con la ricerca:

Function dataShort(dtData) 
    dataShort = year(dtData&"/"&right("00"&month(dtData),2)&"/"&right("00"&day(dtData),2)) 
end Function 

data = dataShort(CDate(date()))
response.write data &"
"

Ma restituisce sempre:

Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: "10/09/2005/09/10"]'

/defaultuse/NewLogin.asp, line 46

Dove sbaglio???