Funzione che non riesco a far funzionare :P

[weppos]

function formatMySQLdate(strDate)

	Dim mese
	Dim anno
	Dim giorno

	mese = month(data)
	anno = year(data)
	giorno = day(data)

	strDate = anno & "-" & mese & "-" & giorno

'Ritorna il valore
formatMySQLdate = strDate

end Function