<body>
<%
dim conn,strconn
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("data.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs=server.CreateObject("adodb.recordset")
sql="select name_gh,sum(qty_gh) as qty form a group by name_gh"
rs.Open sql,conn,1,1
do while not rs.eof
response.Write "BR"&rs("name_gh")&":"&rs("qty")
rs.movenext
loop
rs.close
%>