<%
FunctionAccessDateTime (Dataandtime)
Dimmyday
Dimmimontto
Dimmyyear
myday = day (Dataandtime)
Iflen (myday) = 1thenmyday = "0" y myday
mymonth = mes (dateandtime)
Iflen (mymonth) = 1thenmymonth = "0" y mymonth
myYear = año (Data yTtime)
AccessDateTime = myyear & "-" & mymonth & "-" & myday & "" & time ()
Función final
Dimconexión
Dimsql, sconnstring
SQL = "InsertInTotBlDate (Ddate) Valores (#" y AccessDateTime (ahora ()) y "#)"
SconnString = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"DataSource =" & Server.Mappath ("Datedb.mdb")
SetConnection = server.createObject ("ADODB.Connection")
Connection.open (Sconnstring)
Connection.ExCute (SQL)
Connection.clar
SetConnection = nada
%>