home *** CD-ROM | disk | FTP | other *** search
/ bombers.k12.ar.us / bombers.k12.ar.us.tar / bombers.k12.ar.us / survey_unconfigured / RemovePageBreak.asp < prev    next >
Text File  |  2006-10-25  |  3KB  |  78 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 removes an existing page break in a survey.
  7. '
  8. '   COPYRIGHT NOTICE                                
  9. '
  10. '   See attached Software License Agreement
  11. '
  12. '   (c) Copyright 2002 - 2006 by ClassApps.com.  All rights reserved.
  13. '***********************************************************************
  14. %>
  15. <!--#Include File="Include/Config_inc.asp"-->
  16. <!--#Include File="Include/Utility_inc.asp"-->
  17. <!--#Include File="Include/adovbs_inc.asp"-->
  18. <!--#Include File="Include/CurrentUser_inc.asp"-->
  19. <!--#Include File="Include/SurveySecurity_inc.asp"-->
  20. <!--#Include File="Include/Constants_inc.asp"-->
  21. <%
  22.     'In order to remove a page break, the user must be the survey owner or an admin.
  23.     If IsUserOwnerOrAdmin(Request.QueryString("SurveyID")) = False Then
  24.         Response.Redirect "AccessDenied.asp?SurveyID=" & Request.QueryString("SurveyID") & "&Reason=" & SUR_ACCESS_DENIED_NOT_OWNER
  25.     End If
  26.  
  27.     Dim strSQL
  28.     Dim conRemove
  29.     Dim lngPageNumber
  30.     Dim lngSurveyID
  31.     
  32.     'Initialization
  33.     Set conRemove = Server.CreateObject("ADODB.Connection")
  34.     conRemove.Open SURVEY_APP_CONNECTION
  35.     lngPageNumber = Request.QueryString("PageNumber")
  36.     lngSurveyID = Request.QueryString("SurveyID")
  37.  
  38.     'Move all the pages starting with the page specified up (decrease the page number) one page. Doing this removes 
  39.     'the page break before the page specified.
  40.     strSQL = "UPDATE sur_survey_to_item_mapping " & _
  41.                 "SET page_number = page_number - 1 " & _
  42.                 "WHERE survey_id = " & lngSurveyID & _
  43.                 " AND page_number >= " & lngPageNumber
  44.     conRemove.Execute ConvertSQL(strSQL), , adCmdText
  45.  
  46.     'Delete the page condition for the page that was just removed
  47.     strSQL = "DELETE FROM sur_page_condition " & _
  48.                 "WHERE survey_id = " & lngSurveyID & _
  49.                 " AND page_number = " & lngPageNumber
  50.     conRemove.Execute ConvertSQL(strSQL), , adCmdText
  51.     
  52.     'Drop the page number for all page conditions for this survey that are greater than the page just deleted
  53.     strSQL = "UPDATE sur_page_condition " & _
  54.                 "SET page_number = page_number - 1 " & _
  55.                 "WHERE survey_id = " & lngSurveyID & _
  56.                 " AND page_number > " & lngPageNumber
  57.     conRemove.Execute ConvertSQL(strSQL), , adCmdText
  58.     
  59.     'Delete the page properties for the page that was just removed
  60.     strSQL = "DELETE FROM sur_page " & _
  61.                 "WHERE survey_id = " & lngSurveyID & _
  62.                 " AND page_number = " & lngPageNumber
  63.     conRemove.Execute ConvertSQL(strSQL), , adCmdText
  64.     
  65.     'Drop the page number for all page properties for this survey that are greater than the page just deleted
  66.     strSQL = "UPDATE sur_page " & _
  67.                 "SET page_number = page_number - 1 " & _
  68.                 "WHERE survey_id = " & lngSurveyID & _
  69.                 " AND page_number > " & lngPageNumber
  70.     conRemove.Execute ConvertSQL(strSQL), , adCmdText
  71.     
  72.     'Clean up
  73.     conRemove.Close
  74.     Set conRemove = Nothing
  75.  
  76.     'Redirect to the modify survey page for the survey.
  77.     Response.Redirect "ModifySurvey.asp?SurveyID=" & lngSurveyID
  78. %>