The first table below lists all the research questionnaires
developed so far, along with an outline of their key features
and response rates to date.
The second table lists a range of key database queries,
pertaining to demographics and usage patterns of those using
the online-supervision.net site.
Click on the titles of either to access detailed data.
|
SURVEYS
& QUESTIONNAIRES
|
|
SurveyID
|
Survey title
|
Date started
|
Survey type
|
No. of respondents
|
No. of questions
|
No. of responses
|
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
strSQL = "SELECT Surveys.SurveyID, Surveys.SurveyTitle, Surveys.SurveyDate, Surveys.SurveyType FROM Surveys"
If Session("UserStatus") <> "researching" OR Session("Authorised") <> "yes" Then
strSQL = strSQL & " WHERE Surveys.Security = '0'"
End If
Set rs = conn.Execute(strSQL)
strSQL = "SELECT Count(SurveyQuestions.QuestionID) AS CountOfQuestionID, Surveys.SurveyID FROM Surveys INNER JOIN SurveyQuestions ON Surveys.SurveyID = SurveyQuestions.SurveyID GROUP BY Surveys.SurveyID"
Set rs1 = conn.Execute(strSQL)
Do While Not rs.eof
strSurveyID = rs.fields("SurveyID")
strSurveyTitle = rs.fields("SurveyTitle")
strSurveyDate = rs.fields("SurveyDate")
strSurveyType = rs.fields("SurveyType")
strSQL = "SELECT Count(SurveyAnswers.AnswerID) AS CountOfAnswerID FROM SurveyAnswers INNER JOIN (SurveyQuestions INNER JOIN Surveys ON SurveyQuestions.SurveyID = Surveys.SurveyID) ON SurveyAnswers.SurveyQuestionID = SurveyQuestions.QuestionID WHERE Surveys.SurveyID = '" & strSurveyID & "'"
Set rs2 = conn.Execute(strSQL)
strSQL = "SELECT COUNT(Distinct SurveyAnswers.RespondentID) AS CountOfRespondents FROM SurveyAnswers INNER JOIN (SurveyQuestions INNER JOIN Surveys ON SurveyQuestions.SurveyID = Surveys.SurveyID) ON SurveyAnswers.SurveyQuestionID = SurveyQuestions.QuestionID WHERE Surveys.SurveyID = '" & strSurveyID & "'"
Set rs3 = conn.Execute(strSQL)
If Not rs1.eof Then
intCountOfQuestionID = rs1.fields("CountOfQuestionID")
rs1.movenext
End If
If Not rs2.eof Then
intCountOfAnswerID = rs2.fields("CountOfAnswerID")
rs2.movenext
End If
If Not rs3.eof Then
intRespondentNumbers = rs3.fields("CountOfRespondents")
rs3.movenext
End If
%>
|
<%=strSurveyID%>
|
|
<%=strSurveyDate%>
|
<%=strSurveyType%>
|
<%=intRespondentNumbers%>
|
<%=intCountOfQuestionID%>
|
<%=intCountOfAnswerID & " (/" & intCountOfQuestionID * intRespondentNumbers & ")
("%>
<%
If intCountOfAnswerID > 0 AND intRespondentNumbers > 0 Then
%>
<%=int((intCountOfAnswerID/intCountOfQuestionID)/intRespondentNumbers * 100) & "%"%>
<% Else %>
0%
<% End If %>
response rate)
|
|
|
<%
rs.movenext
loop
rs.close
SET rs = nothing
%>
|
QUERIES
|
|
QueryID
|
Query name
|
Description
|
<%
strSQL = "SELECT Queries.QueryID, Queries.QueryName, Queries.QueryDescription FROM Queries"
If Session("UserStatus") <> "researching" OR Session("Authorised") <> "yes" Then
strSQL = strSQL & " WHERE Queries.QuerySecurity = '0'"
End If
Set rs = conn.Execute(strSQL)
If Not rs.eof Then
Do While Not rs.eof
strQueryID = rs.fields("QueryID")
strQueryName = rs.fields("QueryName")
strQueryDescription = rs.fields("QueryDescription")
%>
|
<%=strQueryID%>
|
|
<%=strQueryDescription%>
|
<%
rs.movenext
loop
rs.close
SET rs = nothing
End If
%>
|
