<%
'--- 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のレコードをRCに取り出す
Set RC = DB.Execute("select * from mondai where ID=" & Request("ID"))
Do While not RC.Eof
%>| 番号 | <%=RC("number")%> |
| 問題文 | <%=RC("Text")%> |
| 回答群 | <%=RC("Answer")%> |
| 正回答の番号 | <%=RC("Ansnum")%> |
<%
'--- 次のデータを読み出せ
RC.MoveNext
Loop
RC.Close
'--- DBファイルを閉じる
DB.Close
'--- 接続オブジェクトの解除
Set DB = Nothing
%>