<%
FunctionAccessDateTime (DataEndTime)
Dimmyday
DimmyMonth
Dimmyyear
MyDay = dia (DataEndTime)
Iflen (myday) = 1ThenMyday = "0" & myday
MyMonth = Mês (DataEndTime)
Iflen (mymonth) = 1ThenMyMonth = "0" & mymonth
myYear = ano (DataEndtime)
AccessDateTime = MyYear & "-" & Mymonth & "-" & myday & "" & time ()
Função final
DimConnection
DIMSQL, SCONNSTRING
Sql = "InsertIntotBldate (ddate) valores (#" & AccessDateTime (agora ()) & "#)"
sconnString = "Provedor = Microsoft.Jet.oledb.4.0;" & _
"DataSource =" & Server.mappath ("DateDB.mdb")
SetConnection = server.createObject ("adodb.connection")
Connection.Open (SCONNSTRING)
Connection.Execute (SQL)
Connection.Close
SetConnection = nada
%>