<% thaialldbaccess97="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(mBaseDir & "/std9701.mdb") Set rec = Server.CreateObject("ADODB.Recordset") sql = "select * from student where score > 60" rec.Open sql, thaialldbaccess97 %> choose data <% i = 1 rec.MoveFirst response.write( "" ) do while Not rec.eof response.write( "" ) response.write("" ) response.write("" ) response.write("" ) response.write("" ) response.write( "" ) rec.MoveNext i = i + 1 loop response.write( "
" & i & "" & rec("idstd") & "" & rec("name") & "" & rec("score") & "
" ) %>