<% set conn=server.createobject("adodb.connection") set rs=server.createobject("adodb.recordset") conn.open dsn sql = "select * from que_arch order by id desc" rs.open sql,conn do while not rs.eof response.write "" & rs("que") & "
" sql1 = "select * from ans_arch where pollID="&rs("id") sql_statement="SELECT SUM(anstotal) FROM ans_arch where pollID="&rs("id") Set oRs = Server.CreateObject("ADODB.recordset") oRs.Open sql_statement,Conn 'You will get directly the final total total=oRs(0).value set rs1=conn.execute(sql1) do while not rs1.eof totalper = int(rs1("anstotal")/total*100) response.write "" & rs1("ansdesc") & ": " & totalper & "%
" rs1.movenext loop response.write "Total: " & total & "

" rs.movenext loop rs.close set rs = nothing conn.close set conn = nothing set rs1 = nothing %>