<%
FunctionAccessDateTime (DataAnDtime)
Dimmyday
Dimmonth
Dimmyyear
myday = day (DataAndtime)
Iflen (myday) = 1thenmyday = "0" & myday
mymonth = bulan (data dan waktu)
Iflen (mymonth) = 1thenmymonth = "0" & mymonth
myYear = tahun (data dan waktu)
AccessDateTime = MyYear & "-" & Mymonth & "-" & Myday & "" & Time ()
Fungsi endfungsi
Dimconnection
Dimsql, sconnstring
SQL = "Nilai InsertIntotBlDate (DDate) (#" & AccessDateTime (Now ()) & "#)"
sconnstring = "penyedia = microsoft.jet.oledb.4.0;" & _
"DataSource =" & Server.Mappath ("DatedB.MDB")
SetConnection = server.CreateObject ("adodb.connection")
connection.open (sconnstring)
Connection.Execute (SQL)
Koneksi.close
SetConnection = tidak ada
%>