Data, fino al 12 del mese è invertita

[AltF4]

Ecco:

<%
	Function DataDB(Data)
	DataDB = Year(Data) &"/"& Month(Data) &"/"& Day(Data) &""& Hour(Data)
	End Function 
%>

Poi:

sql = "UPDATE [login] SET dataora = #"& DataDB(Now)&"# WHERE id ="& rs("id")
conn.Execute(sql)