【問題の編集】

---

<% 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 '--- 登録ボタンが押されたとき Q = "UPDATE mondai SET [number]=" & Request("number") _ & ", [Text]='" & Request("Text") & "'" _ & ", [Answer]='" & Request("Answer") & "'" _ & ", [Ansnum]=" & Request("Ansnum") _ & " WHERE ID=" & Request("ID") DB.Execute(Q) %>データを更新しました <% 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 %>

> 番号(半角の数字で、他と重複しないように入力してください)
　
問題文
　<%=Text%>
回答群(","で区切ってください)
　<%=Answer%>
正回答の番号(半角の数字で入力してください)
　

<% '--- DBファイルを閉じる DB.Close '--- 接続オブジェクトの解除 Set DB = Nothing %>