<%
FunctionAccessDateTime (dateAndtime)
Dimmyday
Диммимонт
Dimmyyear
myDay = day (dateAndtime)
Iflen (myday) = 1thenmyday = "0" & myday
myMonth = месяц (dateAndtime)
Iflen (mymonth) = 1thenmymonth = "0" & myMonth
myyear = год (dateandtime)
AccessDateTime = myyear & "-" & mymonth & "-" & myday & "& time ()
Конечная функция
Dimconnection
DimSQL, Sconnstring
Sql = "insertintotbldate (ddate) Values (#" & accessDateTime (теперь ()) & "#)"
sconnstring = "rovider = microsoft.jet.oledb.4.0;" & _
"DataSource =" & server.mappath ("Datedb.mdb")
SetConnection = server.createObject ("adodb.connection")
Connection.open (Sconnstring)
connection.execute (sql)
Connection.close
SetConnection = ничего
%>