<%
FunctionaccessDateTime (dataandtime)
Dimmyday
Dimmymonth
Dimmyyear
Myday = jour (dataandtime)
Iflen (Myday) = 1ThenMyDay = "0" et Myday
mymonth = mois (dataandtime)
Iflen (mymonth) = 1ThenmyMonth = "0" & mymonth
myyear = an (dataandtime)
AccessDateTime = Myyear & "-" & mymonth & "-" & myday & "" & time ()
Finition de fin
Diminue
Dimsql, Sconnstring
SQL = "INSERTITOTBLDATE (DDATE) VALEURS (#" & AccessDateTime (maintenant ()) & "#)"
SconnString = "Provider = Microsoft.Jet.oledb.4.0;" & _
"DataSource =" & server.mappath ("datéb.mdb")
SetConnection = server.createObject ("adodb.connection")
connection.open (Sconnstring)
connection.execute (SQL)
Connexion.close
SetConnection = rien
%>