<% 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 <% max=0 min=999 tot=0 i = 1 rec.MoveFirst response.write( "" ) do while Not rec.eof response.write( "" ) response.write("" ) response.write("" ) response.write("" ) response.write("" ) response.write( "" ) tot = tot + rec("score") if max < rec("score") then max = rec("score") if min > rec("score") then min = rec("score") end if rec.MoveNext i = i + 1 loop response.write( "
" & i & "" & rec("idstd") & "" & rec("name") & "" & rec("score") & "
" ) response.write( "Max =" & max & "
") response.write( "Min =" & min & "
") response.write( "Avg =" & tot/(i-1)) %>