<％
functionAccessDateTime（dateandtime）
dimmyday
dimmymonth
dimmyyear
myday = day（dateandtime）
iflen（myday）= 1thenmyday = "0"＆myday
mymonth = month（dateandtime）
iflen（mymonth）= 1thenmymonth = "0"＆mymonth
myyear = year（dateandtime）
AccessDateTime = myyear＆ " - "＆mymonth＆ " - "＆myday＆ "＆time（）
エンド機能
ディムコネクション
dimsql、sconnstring
sql = "insertintotbldate（ddate）values（＃"＆AccessDateTime（now（））＆ "＃）"
sconnstring = "provider = microsoft.jet.oledb.4.0;"＆_
"dataSource ="＆server.mappath（ "datedb.mdb"）
setConnection = server.createObject（ "adodb.Connection"）
connection.open（sconnstring）
connection.execute（sql）
connection.close
setConnection = Nothing
％>