Member Avatar for mitcho
mitcho 0 Newbie Poster

Hi guys, i am new to asp so sorry if this is easy.

I have done an ASP survey based on an open-source survey by Guo Xu from planet source code. it is a multiple choice survey
You can see this here: http://www.beaniekids.com/test/bkqf/p2_questionnaire.asp

This survey uses an Access database which can be downloaded here: http://www.beaniekids.com/test/bkqf/survey.mdb

My Question is, How can i skip questions....

For example, Question 3 asks if a user is male or female.
If they answer MALE i want it to skip to Question 5 instead of going to Question 4. How can this be done. i have tried a number of times but cant seem to do it...

i have attached the text asp files for The questionnaire (which is one page that displays each question). i have also attached the proceed asp text file which are called after each question is answered, and tally.asp which is called at the very last question to write all responses to the database.

If you could show me what code to add to skip questions that would be great, and much appreciated. Thanks

<%
' Detect whether users household has already answered survey based on cookie in cache
' If they have already answered then redirect them to page to let them know
' If Request.Cookies("Survey") = "True" Then Response.Redirect "p3_householdComplete.asp"
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Beanie Kids Survey</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<%
If Request.Querystring("QC") = "" Then Response.Redirect "p2_questionnaire.asp?QC=1"

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

Set rsQuery = Con.Execute("SELECT * FROM QDB ORDER BY ID ASC")
i = 0
While Not rsQuery.EOF
	i = i + 1
	rsQuery.MoveNext
Wend
%>
<body bgcolor="<%= CONST_BGCOLOR %>" text="<%= CONST_FONTCOLOR %>" link="<%= CONST_FONTCOLOR %>" vlink="<%= CONST_FONTCOLOR %>" alink="<%= CONST_FONTCOLOR %>">
<table width="100%" border="0" cellpadding="2" cellspacing="0" bgcolor="#FFFFCC">
<form action="proceed.asp?QC=<%= Request.Querystring("QC") %>" method="post">
  <tr bgcolor="#00CCFF">
    <td colspan="2"><img src="survey_header.gif" width="350" height="110"></td>
  </tr>
  <tr bgcolor="#999999"> 
    <td colspan="2" bgcolor="#FF0000"><font face="Verdana" size="1" color="#FFFFFF"><b>Question <%= Request.Querystring("QC") %> of <%= i %></b></font></td>
  </tr>
  <%
  Set rsQuery = Con.Execute("SELECT * FROM QDB ORDER BY ID ASC")
  For x = 1 To (Request.Querystring("QC") - 1)
  	rsQuery.MoveNext
	If rsQuery.EOF Then Response.Redirect "error.asp?cs=Wrong querystring data. Possible cause: Manually edited?"
  Next
  Multiple = rsQuery("MultipleChoices")
  %>
  <tr> 
    <td colspan="2" align="center"><font face="Verdana" size="1"><b><%= rsQuery("Question") %></b></font></td>
  </tr>
  <%
  Set rsQuery = Con.Execute("SELECT * FROM ADB WHERE QuestionID=" & rsQuery("ID") & "")
  While Not rsQuery.EOF
  %>
  <tr>
      <td width="42"><font face="Verdana" size="1">&nbsp; 
		  <%
		  If Multiple = True Then
		  %>
	  <input name="box" type="checkbox" id="box" value="<%= rsQuery("ID") %>">
		  <%
		  Else
		  %>
      <input type="radio" name="box" value="<%= rsQuery("ID") %>"> 
		  <%
		  End If
		  %>
		</font></td>
    <td width="150"><font face="Verdana" size="1"><%= rsQuery("Answer") %></font></td>
  </tr>
  <tr>
    <td colspan="2">
		<%
		'Loop do display all answer options for each question
		rsQuery.MoveNext
		Wend
		%>
		<% 
		'If the current question is 3 then display image related to that question
		If Request.Querystring("QC") = 3 Then 
		%>
		<br><center><img src="tin.jpg"></center>
		<%
		'If the current question is 4 then display image related to that question
		ElseIf  Request.Querystring("QC") = 4 Then 
		%>
		<br><center><img src="display.jpg"></center>
		<%
		'If the current question is 5 then display image related to that question
		ElseIf Request.Querystring("QC") = 5 Then 
		%>
		<br><center><img src="gday.gif"></center>
		<% End IF %>
	</td>
    </tr>
  <tr> 
      <td align="left" bgcolor="#FF0000">
	  <%
	  'Tests whether Previous Button is show
	  If Request.Querystring("QC") > 1 Then %>
	  <a href="p2_questionnaire.asp?QC=<%= Int(Request.Querystring("QC")) - 1 %>">
	  <img src="left.gif" width="134" height="24" border="1">
	  </a>
	  <% End IF %>
	  </td>
      <td align="right" bgcolor="#FF0000"><input name="imageField" type="image" src="right.gif" width="83" height="24" border="0"></td>
  </tr>
  </form>
</table>
</body>
</html>
<%
If Request.Form("box") = "" Then Response.Redirect "error.asp?cs=Please select at least one answer.&bg=" & Request.ServerVariables("HTTP_REFERER") 
For Each Cunt In Request.Form("box")
	If Data <> "" Then
		Data = Data & "|" & Cunt
	Else
		Data = Cunt
	End If	
Next

Session(Request.Querystring("QC")) = Data

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

Set rsQuery = Con.Execute("SELECT * FROM QDB")
While Not rsQuery.EOF
	i = i + 1
	rsQuery.MoveNext
Wend

If Int(i) <> Int(Request.Querystring("QC")) Then
	Response.Redirect "p2_questionnaire.asp?QC=" & Int(Request.Querystring("QC")) + 1
Else
	Response.Redirect "tally.asp?QC=" & Request.Querystring("QC")
End If
%>
<%
Set Con = Server.CreateObject("ADODB.Connection")
Set rsQuery = Server.CreateObject("ADODB.Recordset")
Set rsQuery2 = Server.CreateObject("ADODB.Recordset")

Path = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Path = Path & Server.MapPath("survey.mdb") & ";Mode=ReadWrite;Persist Security Info=False"
Con.Open Path

Set rsQuery2 = Con.Execute("SELECT * FROM QDB ORDER BY ID ASC")

For i = 1 To Request.Querystring("QC")
	SliceData = Split(Session(i), "|")
	For x = 0 To Ubound(SliceData)
		Con.Execute("INSERT INTO UDB (AnswerID,QuestionID) VALUES(" & SliceData(x) & "," & rsQuery2("ID") & ")")
	Next
	rsQuery2.MoveNext
Next
Response.Redirect "p3_thanks.asp"
%>
  • 1 Contributor
  • 0 Replies
  • 156 Views
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.