codice:
FUNCTION dataInglese(dtData) 
   dataInglese = Year(dtData) &"/"& right("00"&month(dtData),2) &"/"& right("00"&day(dtData),2)
END FUNCTION 

TuaDataItaliana  = dataInglese(Request.Form("TuaDataItaliana"))