正誤判定画面
問題番号=[<%=Request("Number")%>]
回答された選択肢の番号=[<%=Request("Answer")%>]

---

<% '--- 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 Number = Request("Number") Answer = Request("Answer") If Answer<>"" and IsNumeric(Answer) Then '--- 数字だった Else '--- 数字でなかった %>回答を選択してください。<% Response.End End If Q = "SELECT * FROM mondai WHERE Number=" & Number & " and Ansnum=" & Answer Set RC = DB.Execute(Q) 'SQL文を実行 If RC.Eof Then '--- 間違い %>間違いでした<% Else '--- 正解 %>正解でした<% End If %>