%
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
%>
| <%= rsQuery("Question") %> |
<%
Set rsQuery2 = Con.Execute("SELECT * FROM ADB WHERE QuestionID=" & rsQuery("ID") & "")
While not rsQuery2.EOF
%>
<%= 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)
%>
|
<%
rsQuery2.MoveNext
Wend
%>
<%
rsQuery.MoveNext
Wend
%>
|
| |
<%
If Request.ServerVariables("HTTP_REFERER") <> "" Then
%>
">Back
<%
End IF
%>