home *** CD-ROM | disk | FTP | other *** search
/ bombers.k12.ar.us / bombers.k12.ar.us.tar / bombers.k12.ar.us / survey_unconfigured / MoveItem.asp < prev    next >
Text File  |  2006-10-25  |  9KB  |  249 lines
  1. <!--#Include File="Include/Top_inc.asp"-->
  2. <%
  3. '***********************************************************************
  4. '   Application: SelectSurveyASP Advanced v8.1.11
  5. '   Author: Aaron Baril for ClassApps.com
  6. '   Page Description: This page allows the user to move an existing item anywhere 
  7. '                      within the same survey.
  8. '
  9. '   COPYRIGHT NOTICE                                
  10. '
  11. '   See attached Software License Agreement
  12. '
  13. '   (c) Copyright 2002 - 2006 by ClassApps.com.  All rights reserved.
  14. '***********************************************************************
  15. %>
  16. <!--#Include File="Include/Config_inc.asp"-->
  17. <!--#Include File="Include/Utility_inc.asp"-->
  18. <!--#Include File="Include/SurveyUtility_inc.asp"-->
  19. <!--#Include File="Include/adovbs_inc.asp"-->
  20. <!--#Include File="Include/CurrentUser_inc.asp"-->
  21. <!--#Include File="Include/Constants_inc.asp"-->
  22. <!--#Include File="Include/SurveySecurity_inc.asp"-->
  23. <%
  24.     'If the user does not have "Create" or "Admin" permission, redirect them to the access denied page.
  25.     If lngUserSecurityLevel <> SUR_SECURITY_LEVEL_CREATE And lngUserSecurityLevel <> SUR_SECURITY_LEVEL_ADMIN Then
  26.         Response.Redirect "AccessDenied.asp?Reason=" & SUR_ACCESS_DENIED_NOT_ADMIN_SECURITY_LEVEL
  27.     End If
  28.  
  29.     Dim rsItems
  30.     Dim rsPages
  31.     Dim rsOriginalItem
  32.     Dim strPage
  33.     Dim strSQL
  34.     Dim lngSurveyID
  35.     Dim lngPageNumber
  36.     Dim strOriginalItemText
  37.     Dim strSurveyName
  38.     Dim flgDisplayedItem
  39.                 
  40.     'Initialization 
  41.     Set rsItems = Server.CreateObject("ADODB.Recordset")
  42.     Set rsPages = Server.CreateObject("ADODB.Recordset")
  43.     Set rsOriginalItem = Server.CreateObject("ADODB.Recordset")
  44.     lngSurveyID = Request.Form("SurveyID")
  45.     If Len(Request.Form("cboPageNumber")) = 0 Then
  46.         lngPageNumber = 1
  47.     Else
  48.         lngPageNumber = Request.Form("cboPageNumber")
  49.     End If
  50.     flgDisplayedItem = False
  51.     
  52.     'Get the text of the original item and the name of the survey
  53.     strSQL = "SELECT item_text, title " & _
  54.              "FROM sur_item i, sur_survey s, sur_survey_to_item_mapping m " & _
  55.              "WHERE i.item_id = m.item_id " & _
  56.              "AND m.survey_id = s.survey_id " & _
  57.              "AND i.item_id = " & Request.Form("ItemID")
  58.     rsOriginalItem.Open ConvertSQL(strSQL), SURVEY_APP_CONNECTION, adOpenForwardOnly, adLockReadOnly, adCmdText
  59.     rsOriginalItem.MoveFirst
  60.     strOriginalItemText = rsOriginalItem("item_text")
  61.     strSurveyName = rsOriginalItem("title")
  62.     rsOriginalItem.Close
  63.     Set rsOriginalItem = Nothing
  64. %>
  65. <html>
  66. <head>
  67.     <title>Move Existing Item</title>
  68.     <link rel="stylesheet" href="Resources/StyleSheet/SurveyStyle.css">
  69. </head>
  70.  
  71. <script language="JavaScript">
  72. function submitCheck()
  73. {
  74.     // Make sure that the item is not being moved to the exact same location
  75.     if (document.forms['frmMoveItem'].cboMoveBeforeItem.value == '<%=SUR_MOVE_SAME_LOCATION%>')
  76.     {    
  77.         alert("The item cannot be moved to this page because it is the only item on this page.");
  78.         document.forms['frmMoveItem'].cboPageNumber.focus();
  79.         return false;
  80.     }
  81.  
  82.     return true;
  83. }
  84.  
  85. function pageSelected()
  86. {
  87.     document.forms['frmMoveItem'].action = 'MoveItem.asp';
  88.     document.forms['frmMoveItem'].submit();
  89. }
  90. </script>
  91.  
  92. <body class="MainBodyStyle">
  93.  
  94. <!--#Include File="Include/FrameworkTop_inc.asp"-->
  95.  
  96. <table border="0" cellspacing="0" cellpadding="0" width="754" class="MediumBlueBackgroundColor">
  97.     <tr>
  98.         <td height="36" valign="center">
  99.               <span class="H1HeadingStyle"><a name="skipnav" tabindex="1">Move Existing Item</a></span>
  100.         </td>
  101.     </tr>
  102. </table>
  103.  
  104. <!--#Include File="Include/FrameworkTop2_inc.asp"-->
  105.  
  106. <table width="740" border="0" cellpadding="0" cellspacing="6" class="LightGrayBackgroundColor">
  107.     <form name="frmMoveItem" method="post" action="MoveItemAction.asp" onSubmit="javascript:return submitCheck();">
  108.     <input type="hidden" name="SurveyID" value="<%=lngSurveyID%>">
  109.     <input type="hidden" name="ItemID" value="<%=Request.Form("ItemID")%>">
  110.     <input type="hidden" name="OrderNumber" value="<%=Request.Form("OrderNumber")%>">
  111.     <input type="hidden" name="PageNumber" value="<%=Request.Form("PageNumber")%>">
  112.         <tr>
  113.             <td width="1" rowspan="2"></td>
  114.             <td width="738" align="left" valign="center" height="36" class="Normal">
  115.                 <span class="H2HeadingStyle">Select Item Destination</span>
  116.             </td>
  117.             <td width="1" rowspan="2"> </td>
  118.         </tr>
  119.         <tr>
  120.             <td valign="top" class="Normal" height="34">
  121.                 Move the selected item to a different location.  The selected item can be moved to any position in any page 
  122.                 in the current survey.
  123.             </td>
  124.         </tr>
  125.     </table>
  126.     <table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td height="1" background="Resources/Images/ThinDivider.gif"></td></tr>
  127.     <table border="0" cellpadding="0" cellspacing="6" width="740" class="WhiteBackgroundColor">
  128.         <tr>
  129.             <td height="8"></td>
  130.         </tr>
  131.         <tr>
  132.             <td width="1" rowspan="20"></td>
  133.             <td valign="top" width="195">
  134.                 <span class="NormalBold">Survey:</span>
  135.             </td>
  136.             <td align="left" valign="top" width="515">
  137.                 <span class="Normal">
  138.                     <%=strSurveyName%>
  139.                 </span>
  140.             </td>
  141.             <td width="1" rowspan="20"> </td>
  142.         </tr>
  143.         <tr>
  144.             <td valign="top">
  145.                 <span class="NormalBold">Item to Move:</span>
  146.             </td>
  147.             <td align="left" valign="top">
  148.                 <span class="Normal"><%=strOriginalItemText%><br></span>
  149.             </td>
  150.         </tr>
  151.         <tr>
  152.             <td valign="top">
  153.                 <span class="NormalBold"><label for="cboPageNumber">Select Page:</label></span>
  154.             </td>
  155.             <td align="left" valign="top">
  156.                 <select name="cboPageNumber" id="cboPageNumber" style="width:515" onChange="javascript:pageSelected();">
  157. <%
  158.                     'Create the SQL for creating the list of pages
  159.                     strSQL = "SELECT DISTINCT m.page_number, page_title " & _
  160.                              "FROM sur_survey_to_item_mapping m LEFT JOIN sur_page p " & _
  161.                              "ON (m.page_number = p.page_number AND m.survey_id = p.survey_id) " & _
  162.                              "WHERE m.survey_id = " & lngSurveyID & _
  163.                              " ORDER BY m.page_number"
  164.                     rsPages.Open ConvertSQL(strSQL), SURVEY_APP_CONNECTION, adOpenForwardOnly, adLockReadOnly, adCmdText
  165.                     rsPages.MoveFirst
  166.                     Do While Not rsPages.EOF
  167.                         'If there's no page title, display the page number with a "No Page Title" message.
  168.                         If Len(rsPages("page_title")) = 0 Or IsNull(rsPages("page_title")) = True Then
  169.                             strPage = "Page " & rsPages("page_number") & " - [No Page Title]"
  170.                         Else
  171.                             strPage = "Page " & rsPages("page_number") & " - " & rsPages("page_title")
  172.                         End If
  173. %>
  174.                         <option <% If CStr(rsPages("page_number")) = CStr(lngPageNumber) Then Response.Write "selected" End If %> value="<%=rsPages("page_number")%>"><%=strPage%></option>
  175. <%
  176.                         rsPages.MoveNext
  177.                     Loop
  178.                     
  179.                     'Clean up 
  180.                     rsPages.Close
  181.                     Set rsPages = Nothing
  182. %>
  183.                 </select>
  184.             </td>
  185.         </tr>
  186.         <tr>
  187.             <td valign="top">
  188.                 <span class="NormalBold"><label for="cboMoveBeforeItem">Move Before Item:</label></span>
  189.             </td>
  190.             <td align="left" valign="top">
  191.                 <select name="cboMoveBeforeItem" id="cboMoveBeforeItem" style="width:515">
  192. <%
  193.                     'Create the SQL for creating the list of items.
  194.                     strSQL = "SELECT m.item_id, item_text " & _
  195.                              "FROM sur_survey_to_item_mapping m INNER JOIN sur_item i " & _
  196.                              "ON m.item_id = i.item_id " & _
  197.                              "WHERE page_number = " & lngPageNumber & _
  198.                              " AND survey_id = " & lngSurveyID & _
  199.                              " ORDER BY order_number"
  200.                     rsItems.Open ConvertSQL(strSQL), SURVEY_APP_CONNECTION, adOpenForwardOnly, adLockReadOnly, adCmdText
  201.                     rsItems.MoveFirst
  202.                     Do While Not rsItems.EOF
  203.                         'Do not display the item that is being moved
  204.                         If CStr(rsItems("item_id")) <> CStr(Request.Form("ItemID")) Then
  205.                             'Make sure that there is at least one item other than the one being moved on this page
  206.                             flgDisplayedItem = True
  207. %>
  208.                             <option value="<%=rsItems("item_id")%>"><%=rsItems("item_text")%></option>
  209. <%
  210.                         End If
  211.                         rsItems.MoveNext
  212.                     Loop
  213.                     
  214.                     If flgDisplayedItem = True Then
  215. %>
  216.                         <option value="<%=SUR_MOVE_ITEM_TO_END%>"><%=SUR_MOVE_ITEM_TO_END%></option>
  217. <%
  218.                     Else
  219. %>
  220.                         <option value="<%=SUR_MOVE_SAME_LOCATION%>"><%=SUR_MOVE_SAME_LOCATION%></option>
  221. <%
  222.                     End If
  223.                     
  224.                     'Clean up 
  225.                     rsItems.Close
  226.                     Set rsItems = Nothing
  227. %>
  228.                 </select>
  229.             </td>
  230.         </tr>
  231.         <tr>
  232.             <td valign="center" align="right" colspan="2" height="38">
  233.                 <a href="ModifySurvey.asp?SurveyID=<%=lngSurveyID%>"><img border="0" alt="Cancel" src="Resources/Buttons/Cancel.gif" name="btnCancel"></a>
  234.                 <input type="image" border="0" alt="Move" src="Resources/Buttons/Move.gif" name="btnMove">
  235.             </td>
  236.         </tr>
  237.     </form>
  238. </table>
  239.  
  240. <!--#Include File="Include/FrameworkBottom_inc.asp"-->
  241.  
  242. </body>
  243. </html>
  244.  
  245. <%        
  246.     'Ensure that the web server returns the page
  247.     Response.Flush
  248. %>
  249.