<%@ Language="VBScript" %> <% 'データ入力フォームで入力した値を変数に保存 uname = Request.Form("uname") umail = Request.Form("umail") usex = Request.Form("usex") uage = Request.Form("uage") '現在時刻の取得 indate = Now() 'MS Access Database Filename MSACFN = Server.MapPath("data.mdb") 'Data Source Name DBFile="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MSACFN 'Data Input Set DBCon = Server.CreateObject("ADODB.Connection") DBCon.Open DBFile sql="insert into hirodata(indate,uname,umail,usex,uage) values ('"&indate&"','"&uname&"','"&umail&"','"&usex&"','"&uage&"')" Set DBexe = DBCon.Execute(sql) %> データ登録
ありがとうございました。
戻る