<%
FunctionAccessDateTime(dateandtime)
DimmyDay
DimmyMonth
DimmyYear

myDay=Day(dateandtime)
IfLen(myDay)=1ThenmyDay="0"&myDay

myMonth=Month(dateandtime)
IfLen(myMonth)=1ThenmyMonth="0"&myMonth

myYear=Year(dateandtime)

AccessDateTime=myYear&"-"&myMonth&"-"&myDay&""&Time()
EndFunction

Dimconnection
DimSQL,sConnString

SQL="InsertINTOtblDate(dDate)VALUES(#"&AccessDateTime(NOW())&"#)"

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

Connection.Close
SetConnection=Nothing
%>