【問題の編集】
<%
sPname = Request.ServerVariables("SCRIPT_NAME")
'--- DBファイルの名前を指示
DBfile = Server.MapPath("./quiz.mdb")
'--- データベース接続オブジェクトの準備
Set DB = Server.CreateObject("ADODB.Connection")
'--- DBファイルを開く
DB.Open "DRIVER=Microsoft Access Driver (*.mdb);FIL=MS Access;DBQ=" & DBfile
If ( Request("SUBMIT")<>"" ) Then
'--- 登録ボタンが押されたとき
If ( Request("ID")<>"" ) Then
'--- IDのデータを更新する場合
Q = "UPDATE mondai SET [number]=" & Request("number") _
& ", [Text]='" & Request("Text") & "'" _
& ", [Answer]='" & Request("Answer") & "'" _
& ", [Ansnum]=" & Request("Ansnum") _
& " WHERE ID=" & Request("ID")
DB.Execute(Q)
%>データを更新しました
<%
Else
'--- 新規に追加する場合
Q = "INSERT into mondai " _
& "([number],[Text],[Answer],[Ansnum]) " _
& "VALUES (" & Request("number") _
& ",'" & Request("Text") & "'" _
& ",'" & Request("Answer") & "'" _
& "," & Request("Ansnum") & ")"
DB.Execute(Q)
%>データを追加しました
<%
End If
End If
ID = ""
number = ""
Text = ""
Answer = ""
Ansnum = ""
If ( Request("ID")<>"" ) Then
'--- 指示されたIDのレコードをRCに取り出す
Set RC = DB.Execute("select * from mondai where ID=" & Request("ID"))
If not (RC.Eof) Then
ID = RC("ID")
number = RC("number")
Text = RC("Text")
Answer = RC("Answer")
Ansnum = RC("Ansnum")
End If
RC.Close
End If
%>
<%
'--- DBファイルを閉じる
DB.Close
'--- 接続オブジェクトの解除
Set DB = Nothing
%>