<%@ Language=VBScript %> <%Dim percent,perce,msg msg = Request.QueryString("msg") %> <% Dim Connect, teksan Dim oRs, oRs2, strQuery,rsPoll,id,ac ac = "Yes" sql = "SELECT * FROM questions Where active = '" & ac & "'" Set rsPoll = Server.CreateObject("ADODB.Recordset") rsPoll.Open sql, teksan, 3, 3 id = rsPoll("id") %> <% Dim rsAnswer sql = "SELECT * FROM answers Where question_id Like '" & id & "' ORDER BY id" Set rsAnswer = Server.CreateObject("ADODB.Recordset") rsAnswer.Open sql, teksan, 3, 3 %> " /> "> ">

<% Dim strXML Set oRs = Server.CreateObject("ADODB.Recordset") strXML = "" strQuery = "select * from answers Where question_id Like '" & id & "' ORDER BY id" Set oRs = oConn.Execute(strQuery) While Not oRs.Eof Set oRs2 = Server.CreateObject("ADODB.Recordset") strQuery = "select sum(total_votes) as TotOutput from answers where id=" & ors("id") Set oRs2 = oConn.Execute(strQuery) 'Generate strXML = strXML & "" 'Close recordset Set oRs2 = Nothing oRs.MoveNext Wend strXML = strXML & "" Set oRs = nothing 'Create the chart - Pie 3D Chart with data from strXML Call renderChart("FusionCharts/Column3Dgyk.swf", "", strXML, "FactorySum", 940, 400) %>