|
<% dim connect, rs, sql set connect = server.createobject("ADODB.Connection") connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_ Server.MapPath("\perlphpasp\db\quiz.mdb")) sql = "select * from thai01" set rs = connect.execute(sql) do while not rs.eof response.write(rs("qid")&" - "&rs("question")&" : ") response.write(rs("choice1")&" "&rs("choice2")&" ") response.write(rs("choice3")&" "&rs("choice4")) response.write(" : "&rs("ans")&"<br>") rs.movenext loop connect.close set rs = nothing set connect = nothing %> |