home *** CD-ROM | disk | FTP | other *** search
/ bombers.k12.ar.us / bombers.k12.ar.us.tar / bombers.k12.ar.us / survey_unconfigured / InsertPageBreak.asp < prev    next >
Text File  |  2006-10-25  |  3KB  |  69 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 inserts a new 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 insert 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 conInsertPageBreak
  29.     Dim lngSurveyID
  30.     Dim lngItemID
  31.     Dim lngOrderNumber
  32.     Dim lngPageNumber
  33.     
  34.     'Initialization
  35.     Set conInsertPageBreak = Server.CreateObject("ADODB.Connection")
  36.     conInsertPageBreak.Open SURVEY_APP_CONNECTION
  37.     lngOrderNumber = Request.QueryString("OrderNumber")
  38.     lngSurveyID = Request.QueryString("SurveyID")
  39.     lngPageNumber = Request.QueryString("PageNumber")
  40.  
  41.     'Move all the pages starting with the page specified down (increment the page number) one page. Doing this creates a 
  42.     'page break before the page specified.
  43.     strSQL = "UPDATE sur_survey_to_item_mapping " & _
  44.                 "SET page_number = page_number + 1 " & _
  45.                 "WHERE survey_id = " & lngSurveyID & _
  46.                 " AND order_number >= " & lngOrderNumber
  47.     conInsertPageBreak.Execute ConvertSQL(strSQL), , adCmdText
  48.  
  49.     'Increment the page number for all page conditions for this survey that are greater than the page just created
  50.     strSQL = "UPDATE sur_page_condition " & _
  51.                 "SET page_number = page_number + 1 " & _
  52.                 "WHERE survey_id = " & lngSurveyID & _
  53.                 " AND page_number > " & lngPageNumber
  54.     conInsertPageBreak.Execute ConvertSQL(strSQL), , adCmdText
  55.  
  56.     'Increment the page number for all page properties for this survey that are greater than the page just created
  57.     strSQL = "UPDATE sur_page " & _
  58.                 "SET page_number = page_number + 1 " & _
  59.                 "WHERE survey_id = " & lngSurveyID & _
  60.                 " AND page_number > " & lngPageNumber
  61.     conInsertPageBreak.Execute ConvertSQL(strSQL), , adCmdText
  62.  
  63.     'Clean up
  64.     conInsertPageBreak.Close
  65.     Set conInsertPageBreak = Nothing
  66.  
  67.     'Redirect to the modify survey page for the survey.
  68.     Response.Redirect "ModifySurvey.asp?SurveyID=" & lngSurveyID
  69. %>