Insert Date and Time into Access

　　<%

　　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

　　%>