<%
FunctionAccessDatetime (DATEANDTIME)
Dimmyday
Dimmymonth
Dimmyyear
myday = tag (dateindtime)
Iflen (myday) = 1Thenmyday = "0" & myday
month = monat (dateindtime)
Iflen (month) = 1Thenmymonth = "0" & month
myyear = Jahr (DATEANDTIME)
AccessDatetime = myyear & "-" & month & "-" & myday & "" & time ()
Endfunktion
Dimconnection
Dimsql, SconnString
SQL = "InsertIntotbldate (ddate) Werte (#" & AccessDatetime (jetzt ()) & "#)"
sconnstring = "Provider = microsoft.jet.oledb.4.0;" & _
"DataSource =" & server.mappath ("datdb.mdb")
SetConnection = server.createObject ("adodb.Connection")
Connection.open (SconnString)
Connection.execute (SQL)
Verbindung.CLOSE
SetConnection = nichts
%>