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