%@ language=JavaScript %>
<%
//these variable set the access needed for the page
var required_login = "false"; //'true' or 'false'
var required_status = "user"; //'user' or 'admin'
var asp_dir = "asp/"; //state where asp folder is in relation to this one
%>
<%
if (String(Request("action")) == "log_vote"){
sql = "SELECT * from survey_table WHERE uID=" + String(Request("uid"));
rs = Server.CreateObject("ADODB.RecordSet");
rs.Open (sql, Conn, 2,3);
var survey_responses = String(rs.Fields.item("survey_responses"));
survey_array = survey_responses.split("|");
var num = new Number(survey_array[Request("surveyradio")]);
num++;
survey_array[Request("surveyradio")] = num;
survey_responses = "";
for (i = 0; i < survey_array.length; i++){
if (i!=0) {survey_responses += "|"}
survey_responses += survey_array[i];
}
sql = "UPDATE survey_table SET survey_responses='" + survey_responses + "' WHERE uid=" + String(Request("uid"));
Conn.Execute(sql);
Response.Write("Thanks you for participating! Here are the current results:");
rs.Close (); //Close previews set
}
//Now write the results out
sql = "SELECT * from survey_table ORDER BY survey_date DESC"
rs = Server.CreateObject("ADODB.RecordSet");
rs.Open (sql, Conn, 2,3);
if (rs.EOF){
Response.Write("
There's no questionnaire at the moment. Pop back later.
");
}
else{
var survey_question = String(rs.Fields.item("survey_question"));
var survey_answers = String(rs.Fields.item("survey_answers"));
var survey_responses = String(rs.Fields.item("survey_responses"));
Response.Write("
Current Survey
");
%>
Question : <%= survey_question %>
<%
answer_array = survey_answers.split("|");
responses_array = survey_responses.split("|");
for (i = 0; i < answer_array.length; i++){
%>
<%= answer_array[i] %> :
<%= responses_array[i] %>
<%
} //end while
%>
<%
rs.Move(1);
} //close else
if (! rs.EOF) { Response.Write("
Past Surveys
"); }
while (! rs.EOF) {
var survey_question = String(rs.Fields.item("survey_question"));
var survey_answers = String(rs.Fields.item("survey_answers"));
var survey_responses = String(rs.Fields.item("survey_responses"));
%>
Question : <%= survey_question %>
<%
answer_array = survey_answers.split("|");
responses_array = survey_responses.split("|");
for (i = 0; i < answer_array.length; i++){
%>