Fatto, solo con Hour(Data) e mi da errore, questo:

Microsoft JET Database Engine error '80040e07'
Syntax error in date in query expression '#2008/9/216#'.
index.asp, line 26

ecco le righe 25 e 26:

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