【問題の編集】
<%
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
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
%>