<%
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
%>