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
%>