<script language ="JavaScript" src="ClientInclude/Utility.js"></script>
<script language="JavaScript">
function submitCheck()
{
if (trim(document.forms['frmPageCondition'].cboQuestion.value) == '<%=SUR_COMBO_NO_AVAILABLE_QUESTIONS%>')
{
alert("A page condition cannot be created because there are no questions on any prior pages. To add a page condition to this page, go back and add a question to a previous page.");
<span class="Normal">Page <span class="NormalBold"><%=lngPageNumber%></span> of '<span class="NormalBold"><%=strSurveyName%></span>' survey.</span>
<%
Else 'EDIT mode
%>
<span class="Normal">Page condition located on page <span class="NormalBold"><%=lngPageNumber%></span> of '<span class="NormalBold"><%=strSurveyName%></span>' survey.</span>
'Disable the combo box in edit mode. The question cannot be changed in edit mode.
%>
<select style="width:560px" name="cboQuestion" id="cboQuestion" onChange="questionSelected();" <% If strState = SUR_STATE_EDIT Then Response.Write("DISABLED") End If %>>
'If this is the first time on the page, select the first question
If lngDisplayItemID = 0 Then
lngDisplayItemID = rsQuestions("item_id")
End If
Do While Not rsQuestions.EOF
'Save the item type so that when the answer(s) for the question are rendered (below), we know
'in what format to render them.
If CLng(lngDisplayItemID) = CLng(rsQuestions("item_id")) Then
lngItemTypeID = rsQuestions("item_type_id")
flgRequired = rsQuestions("required_yn")
End If
'Determine value to use for comparisons to select the correct question
If strState = SUR_STATE_INSERT Then
strValue = lngDisplayItemID
Else 'EDIT mode
strValue = lngSelectedItemID
End If
%>
<option <% If CLng(strValue) = CLng(rsQuestions("item_id")) Then Response.Write "SELECTED" End If %> value="<%=rsQuestions("item_id")%>"><%=rsQuestions("item_text")%> (Page <%=rsQuestions("page_number")%>)</option>
'Determine value to use for comparisons to select the correct operator
If strState = SUR_STATE_INSERT Then
If Request.Form("cboOperator") <> SUR_COMBO_NO_AVAILABLE_OPERATORS Then
strValue = Request.Form("cboOperator")
End If
Else 'EDIT mode
strValue = lngSelectedOperatorID
End If
'The equals and not equals operators are not available for the following question types
If lngItemTypeID <> SUR_ITEM_RANKING And lngItemTypeID <> SUR_ITEM_MATRIX_SINGLE_SELECT_OPTIONS And lngItemTypeID <> SUR_ITEM_MATRIX_RATING_SCALE And lngItemTypeID <> SUR_ITEM_MATRIX_MULTISELECT_CHECKBOXES And lngItemTypeID <> SUR_ITEM_MATRIX_TEXT_BOXES And lngItemTypeID <> SUR_ITEM_OPEN_ENDED_ONE_OR_MORE_LINES Then
%>
<option <% If CLng(SUR_OPERATOR_EQUALS) = CLng(strValue) Then Response.Write "SELECTED" End If %> value="<%=SUR_OPERATOR_EQUALS%>"><%=SUR_OPERATOR_EQUALS_LONG_TEXT%></option>
<option <% If CLng(SUR_OPERATOR_NOT_EQUALS) = CLng(strValue) Then Response.Write "SELECTED" End If %> value="<%=SUR_OPERATOR_NOT_EQUALS%>"><%=SUR_OPERATOR_NOT_EQUALS_LONG_TEXT%></option>
<%
Else
'For these three question types, if the question is required, there are no operators to display
If lngItemTypeID = SUR_ITEM_RANKING Or lngItemTypeID = SUR_ITEM_MATRIX_SINGLE_SELECT_OPTIONS Or lngItemTypeID = SUR_ITEM_MATRIX_RATING_SCALE Or lngItemTypeID = SUR_ITEM_MATRIX_MULTISELECT_CHECKBOXES Then
'Display inequality operators only for number and date question types.
If lngItemTypeID = SUR_ITEM_DATE Or lngItemTypeID = SUR_ITEM_NUMBER Or lngItemTypeID = SUR_ITEM_CONSTANT_SUM Then
%>
<option <% If CLng(SUR_OPERATOR_GREATER_THAN) = CLng(strValue) Then Response.Write "SELECTED" End If %> value="<%=SUR_OPERATOR_GREATER_THAN%>"><%=SUR_OPERATOR_GREATER_THAN_LONG_TEXT%></option>
<option <% If CLng(SUR_OPERATOR_GREATER_THAN_OR_EQUAL_TO) = CLng(strValue) Then Response.Write "SELECTED" End If %> value="<%=SUR_OPERATOR_GREATER_THAN_OR_EQUAL_TO%>"><%=SUR_OPERATOR_GREATER_THAN_OR_EQUAL_TO_LONG_TEXT%></option>
<option <% If CLng(SUR_OPERATOR_LESS_THAN) = CLng(strValue) Then Response.Write "SELECTED" End If %> value="<%=SUR_OPERATOR_LESS_THAN%>"><%=SUR_OPERATOR_LESS_THAN_LONG_TEXT%></option>
<option <% If CLng(SUR_OPERATOR_LESS_THAN_OR_EQUAL_TO) = CLng(strValue) Then Response.Write "SELECTED" End If %> value="<%=SUR_OPERATOR_LESS_THAN_OR_EQUAL_TO%>"><%=SUR_OPERATOR_LESS_THAN_OR_EQUAL_TO_LONG_TEXT%></option>
<%
End If
'Display "Contains" and "Doesn't Contain" for text question types, as well as checkboxes and radio buttons (because
'the latter two item types can have an "Other" choice
If lngItemTypeID = SUR_ITEM_OPEN_ENDED_ONE_LINE Or lngItemTypeID = SUR_ITEM_OPEN_ENDED_COMMENTS_BOX Or lngItemTypeID = SUR_ITEM_SINGLE_SELECT_OPTIONS Or lngItemTypeID = SUR_ITEM_MULTISELECT_CHECKBOXES Or lngItemTypeID = SUR_ITEM_OPEN_ENDED_ONE_OR_MORE_LINES Or lngItemTypeID = SUR_ITEM_MATRIX_TEXT_BOXES Then
%>
<option <% If CLng(SUR_OPERATOR_CONTAINS) = CLng(strValue) Then Response.Write "SELECTED" End If %> value="<%=SUR_OPERATOR_CONTAINS%>"><%=SUR_OPERATOR_CONTAINS_LONG_TEXT%></option>
<option <% If CLng(SUR_OPERATOR_DOES_NOT_CONTAIN) = CLng(strValue) Then Response.Write "SELECTED" End If %> value="<%=SUR_OPERATOR_DOES_NOT_CONTAIN%>"><%=SUR_OPERATOR_DOES_NOT_CONTAIN_LONG_TEXT%></option>
<%
End If
'Only display the "Answered" and "Didn't Answer" operators for questions that were not required. For required
'questions, the user must have answered the question.
If flgRequired = SUR_BOOLEAN_NEGATIVE Then
%>
<option <% If CLng(SUR_OPERATOR_ANSWERED) = CLng(strValue) Then Response.Write "SELECTED" End If %> value="<%=SUR_OPERATOR_ANSWERED%>"><%=SUR_OPERATOR_ANSWERED_LONG_TEXT%></option>
<option <% If CLng(SUR_OPERATOR_DID_NOT_ANSWER) = CLng(strValue) Then Response.Write "SELECTED" End If %> value="<%=SUR_OPERATOR_DID_NOT_ANSWER%>"><%=SUR_OPERATOR_DID_NOT_ANSWER_LONG_TEXT%></option>
'For checkboxes, dropdowns, and option buttons, display a combo box with all of the values
If CLng(lngItemTypeID) = SUR_ITEM_SINGLE_SELECT_DROPDOWN Or CLng(lngItemTypeID) = SUR_ITEM_SINGLE_SELECT_OPTIONS Or CLng(lngItemTypeID) = SUR_ITEM_MULTISELECT_CHECKBOXES Then
<option <% If CLng(rsAnswers("answer_id")) = CLng(lngSelectedAnswerID) Then Response.Write "SELECTED" End If %> value="<%=rsAnswers("answer_id")%>"><%=rsAnswers("answer_text")%></option>
<%
rsAnswers.MoveNext
Loop
%>
</select>
<%
'For dropdowns and checkboxes, display a text box, too, for the answer type because the "Other" option is text-based
If CLng(lngItemTypeID) = SUR_ITEM_SINGLE_SELECT_OPTIONS Or CLng(lngItemTypeID) = SUR_ITEM_MULTISELECT_CHECKBOXES Then
%>
<span class="Normal">or</span> <input value="<% If strState = SUR_STATE_EDIT Then Response.Write strSelectedAnswerText End If %>" type="text" style="width:255px" name="txtAnswer" id="txtAnswer" maxlength="50">
<%
End If
ElseIf CLng(lngItemTypeID) = SUR_ITEM_DATABASE_DROPDOWN Then
'Select the SQL and database connection for this question
strSQL = "SELECT database_sql, database_dsn " & _
"FROM sur_item " & _
"WHERE item_id = " & lngDisplayItemID
Set rsItemDetails = conPageConditions.Execute(ConvertSQL(strSQL), , adCmdText)
rsItemDetails.MoveFirst
strDatabaseSQL = rsItemDetails("database_sql")
strDatabaseDSN = rsItemDetails("database_dsn")
rsItemDetails.Close
Set rsItemDetails = Nothing
'Select all of the answers for the question
On Error Resume Next
conItemDetails.Open strDatabaseDSN
If Err.number = 0 Then
Set rsAnswers = conItemDetails.Execute(ConvertSQL(strDatabaseSQL), , adCmdText)
<option <% If CStr(rsAnswers("ItemValue")) = CStr(strSelectedAnswerText) Then Response.Write "selected" End If %> value="<%=rsAnswers("ItemValue")%>"><%=rsAnswers("ItemDisplay")%></option>
<option <% If strSelectedAnswerText = SUR_COMBO_NONE Then Response.Write "SELECTED" End If %> value="<%=SUR_COMBO_NONE%>"><%=SUR_COMBO_NONE%></option>
<option <% If strSelectedAnswerText = SUR_YES_NO_QUESTION_VALUE_YES Then Response.Write "SELECTED" End If %> value="<%=SUR_YES_NO_QUESTION_VALUE_YES%>"><%=SUR_YES_NO_QUESTION_VALUE_YES%></option>
<option <% If strSelectedAnswerText = SUR_YES_NO_QUESTION_VALUE_NO Then Response.Write "SELECTED" End If %> value="<%=SUR_YES_NO_QUESTION_VALUE_NO%>"><%=SUR_YES_NO_QUESTION_VALUE_NO%></option>
</select>
<%
ElseIf CLng(lngItemTypeID) = SUR_ITEM_TRUE_FALSE Then
<option <% If strSelectedAnswerText = SUR_COMBO_NONE Then Response.Write "SELECTED" End If %> value="<%=SUR_COMBO_NONE%>"><%=SUR_COMBO_NONE%></option>
<option <% If strSelectedAnswerText = SUR_TRUE_FALSE_QUESTION_VALUE_TRUE Then Response.Write "SELECTED" End If %> value="<%=SUR_TRUE_FALSE_QUESTION_VALUE_TRUE%>"><%=SUR_TRUE_FALSE_QUESTION_VALUE_TRUE%></option>
<option <% If strSelectedAnswerText = SUR_TRUE_FALSE_QUESTION_VALUE_FALSE Then Response.Write "SELECTED" End If %> value="<%=SUR_TRUE_FALSE_QUESTION_VALUE_FALSE%>"><%=SUR_TRUE_FALSE_QUESTION_VALUE_FALSE%></option>
</select>
<%
Else 'Simply display a text box
%>
<input value="<% If strState = SUR_STATE_EDIT Then Response.Write strSelectedAnswerText End If %>" type="text" style="width:280px" name="txtAnswer" id="txtAnswer" maxlength="50">