Ciao a tutti, qualcuno mi aiuterebbe nel trovare l'errore in questa funzione ?

codice:
function formatMySQLdate(strDate)

	Dim mese
	Dim anno
	Dim giorno

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

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

end Function

Dim strDate

strDate = Now()
strDate = formatMySQLdate(strDate)

response.write strDate
dovrebbe formattarmi la data nel formato aaaa-mm-gg e l'ho fatta io, ma con le funzioni ho poca dimistichezza.

Grazie