<%

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

%>