<% Set Con = Server.CreateObject("ADODB.Connection") Set rsQuery = Server.CreateObject("ADODB.Recordset") Set rsQuery2 = Server.CreateObject("ADODB.Recordset") Set rsQuery3 = Server.CreateObject("ADODB.Recordset") Path = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Path = Path & Server.MapPath("../fpdb/survey.mdb") & ";Mode=ReadWrite;Persist Security Info=False" Con.Open Path %>

Results

<% Set rsQuery = Con.Execute("SELECT * FROM QDB ORDER BY ID ASC") While Not rsQuery.EOF t = 0 c = 0 Perc = 0 Set rsQuery2 = Con.Execute("SELECT * FROM UDB WHERE QuestionID=" & rsQuery("ID") & "") While Not rsQuery2.Eof t = t + 1 rsQuery2.MoveNext Wend %> <% Set rsQuery2 = Con.Execute("SELECT * FROM ADB WHERE QuestionID=" & rsQuery("ID") & "") While not rsQuery2.EOF %> <% rsQuery2.MoveNext Wend %> <%= rsQuery("Question") %> <%= rsQuery2("Answer") %> <% Set rsQuery3 = Con.Execute("SELECT * FROM UDB WHERE QuestionID=" & rsQuery("ID") & " AND AnswerID=" & rsQUery2("ID") & "") c = 0 While Not rsQuery3.EOF c = c + 1 rsQuery3.MOveNext Wend If c <> 0 Then Perc = (c / t) * 100 Else Perc = 0 End If If Len(Perc) > 4 Then Perc = Left(Perc, 4) %> <%= c %> (<%= Perc %>%) <% rsQuery.MoveNext Wend %>

<% If Request.ServerVariables("HTTP_REFERER") <> "" Then %> ">Back <% End IF %>