%
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("" & i & " | " )
response.write("" & rec("idstd") & " | " )
response.write("" & rec("name") & " | " )
response.write("" & rec("score") & " | " )
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( "
" )
response.write( "Max =" & max & "
")
response.write( "Min =" & min & "
")
response.write( "Avg =" & tot/(i-1))
%>