codice:
function formatMySQLdate(strDate)

	Dim mese
	Dim anno
	Dim giorno

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

	formatMySQLdate = anno & "-" & mese & "-" & giorno 

end Function

Dim strDate

strDate = Now()
strDate = formatMySQLdate(strDate)
response.write strDate