<٪
FunctionAccessDateTime (DateAndTime)
Dimmyday
Dimmymonth
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) قيم (#" & AccessDateTime (now ()) & "#)"
sconnstring = "Provider = microsoft.jet.oledb.4.0 ؛" & _
"datasource =" & server.mappath ("" datedb.mdb ")
setConnection = server.createBject ("adodb.connection")
connection.Open (sconnstring)
connection.execute (SQL)
connection.close
setConnection = لا شيء
٪>