【Webドリル】
<% '--- 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 Set RC = DB.Execute("select * from mondai where number=1") If RC.Eof Then %>その問題がありませんでした。 <% Else %>問題番号:<%=RC("number")%>
<%=RC("text")%>
<% ans = split(RC("Answer"),",") For i=0 to Ubound(ans) %><%=ans(i)%>
<% Next %>"> <% End If RC.Close '--- DBファイルを閉じる DB.Close '--- 接続オブジェクトの解除 Set DB = Nothing %>