%
Function AccessDateTime (dateandtime)
Dim myDay
Dim myMonth
Dim myYear

myDay = Day(dateandtime)
If Len(myDay)=1 Then myDay="0"  myDay

myMonth = Month(dateandtime)
If Len(myMonth)=1 Then myMonth="0"  myMonth

myYear = Year(dateandtime)

AccessDateTime = myYear  "-"  myMonth  "-"  myDay  " "  Time()
End Function

Dim connection
Dim SQL, sConnString

SQL="Insert INTO tblDate (dDate) VALUES (#"  AccessDateTime(NOW())  "#)"

sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;"  _
"Data Source="  Server.MapPath("datedb.mdb")
Set connection = Server.CreateObject("ADODB.Connection")
connection.Open(sConnString)
connection.execute(SQL)

Connection.Close
Set Connection = Nothing
%>