home *** CD-ROM | disk | FTP | other *** search
/ bombers.k12.ar.us / bombers.k12.ar.us.tar / bombers.k12.ar.us / survey_unconfigured / CreateEmailList.asp < prev    next >
Text File  |  2006-10-25  |  14KB  |  399 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 create a new email list either
  7. '                      from scratch or from an existing email list.
  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 rsEmailLists
  30.     Dim strSQL
  31.  
  32.     'Initialization 
  33.     Set rsEmailLists = Server.CreateObject("ADODB.Recordset")
  34. %>
  35. <html>
  36. <head>
  37.     <title>Email List Administration -- Create Email List</title>
  38.     <link rel="stylesheet" href="Resources/StyleSheet/SurveyStyle.css">
  39. </head>
  40.  
  41. <script language ="JavaScript" src="ClientInclude/Utility.js"></script>
  42. <script language="JavaScript">
  43. function submitCheck() 
  44. {
  45.     // Make sure that a title has been entered
  46.     if (trim(document.forms['frmEmailList'].txtEmailListName.value) == "")
  47.     {    
  48.         alert("Please enter a value for the name of the email list.");
  49.         document.forms['frmEmailList'].txtEmailListName.focus();
  50.         return false;
  51.     }
  52.  
  53.     // Only validate the form if the user is creating an email list from an existing email list.
  54.     if (document.forms['frmEmailList'].optType[1].checked == true)
  55.     {
  56.         // Make sure that the user selected an email list 
  57.         if (document.forms['frmEmailList'].cboEmailList.value == '<%=SUR_COMBO_PLEASE_SELECT%>')
  58.         {    
  59.             alert("Please select an existing email list.");
  60.             document.forms['frmEmailList'].cboEmailList.focus();
  61.             return false;
  62.         }
  63.  
  64.         // If the email list has a 'No email lists available' choice, there are no existing email lists, which means
  65.         // the user must create a new email list from scratch.
  66.         if (document.forms['frmEmailList'].cboEmailList.value == '<%=SUR_COMBO_NO_AVAILABLE_EMAIL_LISTS%>')
  67.         {    
  68.             alert("There are no existing email lists.  Please create a new email list from scratch.");
  69.             document.forms['frmEmailList'].optType[0].checked = true;
  70.             document.forms['frmEmailList'].optType[0].focus();
  71.             return false;
  72.         }
  73.     }
  74.  
  75.     return true;
  76. }
  77. </script>
  78.  
  79. <body class="MainBodyStyle" onLoad="javascript:document.forms['frmEmailList'].txtEmailListName.focus();">
  80.  
  81. <!--#Include File="Include/FrameworkTop_inc.asp"-->
  82.  
  83. <table border="0" cellspacing="0" cellpadding="0" width="754" class="MediumBlueBackgroundColor">
  84.     <tr>
  85.         <td height="36" valign="center">
  86.               <span class="H1HeadingStyle"><a name="skipnav" tabindex="1">Create Email List</a></span> <img style="cursor:hand" alt="Help" onClick="javascript:window.open('Help/Help.htm#EmailLists', null, 'menubar=no,toolbar=no,titlebar=no,status=no,left=10,top=10,scrollbars=yes,resizable=yes,height=550,width=770');" border="0" src="Resources/Images/Help.gif">
  87.         </td>
  88.     </tr>
  89. </table>
  90.  
  91. <!--#Include File="Include/FrameworkTop2_inc.asp"-->
  92.  
  93. <table width="740" border="0" cellpadding="0" cellspacing="6" class="LightGrayBackgroundColor">
  94.     <form name="frmEmailList" method="post" action="CreateEmailListAction.asp" onSubmit="return submitCheck();">
  95.         <tr>
  96.             <td width="1" rowspan="2"></td>
  97.             <td valign="center" height="40">
  98.                 <span class="H2HeadingStyle">New Email List Options</span>
  99.             </td>
  100.             <td width="1" rowspan="2"> </td>
  101.         </tr>
  102.         <tr>
  103.             <td valign="top" class="Normal" height="18">
  104.                 Create a new email list from scratch, by copying an existing email list, or from registered users.
  105.             </td>
  106.         </tr>
  107.     </table>
  108.     <table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td height="1" background="Resources/Images/ThinDivider.gif"></td></tr>
  109.     <table border="0" cellpadding="0" cellspacing="6" width="740" class="WhiteBackgroundColor">
  110.         <tr>
  111.             <td colspan="4" height="8"></td>
  112.         </tr>
  113.         <tr>
  114.             <td width="1" rowspan="30"></td>
  115.             <td valign="top" width="30">
  116.                 <span class="NormalBold"><label for="txtEmailListName">Name:</label></span><span class="Required">*</span>
  117.             </td>
  118.             <td align="left" valign="top" colspan="5">
  119.                 <input type="text" name="txtEmailListName" id="txtEmailListName" maxlength="100" style="width:410">
  120.             </td>
  121.             <td width="1" rowspan="30"> </td>
  122.         </tr>
  123.         <tr>
  124.             <td valign="top">
  125.                 <label for="optType"> </label>
  126.             </td>
  127.             <td valign="top">
  128.                 <input checked type="radio" name="optType" id="optType" value="<%=SUR_CREATE_EMAIL_LIST_FROM_SCRATCH%>">
  129.             </td>
  130.             <td valign="top" colspan="4">
  131.                 <span class="NormalBold">From Scratch </span><span class="Normal">-- Create a new email list from scratch</span>
  132.             </td>
  133.         </tr>
  134.         <tr>
  135.             <td valign="top">
  136.                  
  137.             </td>
  138.             <td valign="top">
  139.                 <input type="radio" name="optType" id="optType" value="<%=SUR_CREATE_EMAIL_LIST_FROM_EXISTING%>">
  140.             </td>
  141.             <td valign="top" colspan="4">
  142.                 <span class="NormalBold">From Existing Email List </span><span class="Normal">-- Copy an existing email list</span>
  143.             </td>
  144.         </tr>
  145.         <tr>
  146.             <td valign="top">
  147.                  
  148.             </td>
  149.             <td valign="top">
  150.                  
  151.             </td>
  152.             <td valign="top" width="80">
  153.                 <span class="NormalBold"><label for="cboEmailList">Email List:</label></span>
  154.             </td>
  155.             <td align="left" valign="top" colspan="3">
  156.                 <select name="cboEmailList" id="cboEmailList" style="width:480">
  157. <%
  158.                     'Create the SQL for creating the list of email lists.  If the user has "Create" permission, limit the list
  159.                     'to email lists the s/he owns.
  160.                     strSQL = "SELECT email_list_id, list_name " & _
  161.                                 "FROM sur_email_list "
  162.                     'If the user has "Create" permission (as opposed to "Admin" permission), limit the list to only surveys that the
  163.                     'user is an owner of.
  164.                     If CLng(lngUserSecurityLevel) = SUR_SECURITY_LEVEL_CREATE Then
  165.                         strSQL = strSQL & " WHERE user_id = " & GetUserID()
  166.                     End If                    
  167.                     strSQL = strSQL & " ORDER BY list_name"
  168.                     rsEmailLists.Open ConvertSQL(strSQL), SURVEY_APP_CONNECTION, adOpenForwardOnly, adLockReadOnly, adCmdText
  169.  
  170.                     'If there are not email lists, display an option indicating that there are no available email lists.  Otherwise, 
  171.                     'display the list of email lists                    
  172.                     If rsEmailLists.EOF Then
  173. %>
  174.                         <option value="<%=SUR_COMBO_NO_AVAILABLE_EMAIL_LISTS%>"><%=SUR_COMBO_NO_AVAILABLE_EMAIL_LISTS%></option>
  175. <%                    
  176.                     Else
  177. %>
  178.                         <option value="<%=SUR_COMBO_PLEASE_SELECT%>"><%=SUR_COMBO_PLEASE_SELECT%></option>
  179. <%                    
  180.                         rsEmailLists.MoveFirst
  181.                         Do While Not rsEmailLists.EOF
  182. %>
  183.                             <option value="<%=rsEmailLists("email_list_id")%>"><%=rsEmailLists("list_name")%></option>
  184. <%                            
  185.                             rsEmailLists.MoveNext
  186.                         Loop
  187.                     End If
  188.                             
  189.                     'Clean up 
  190.                     rsEmailLists.Close
  191.                     Set rsEmailLists = Nothing
  192. %>
  193.                 </select>
  194.             </td>
  195.         </tr>
  196.         <tr>
  197.             <td colspan="3">
  198.                 <label for="optFilterType"> </label>
  199.             </td>
  200.             <td width="10">
  201.                 <input checked type="radio" name="optFilterType" id="optFilterType" value="<%=SUR_EMAIL_LIST_ALL%>">
  202.             </td>
  203.             <td width="375" colspan="2">
  204.                 <span class="NormalBold">Copy all email addresses</span>
  205.             </td>
  206.         </tr>
  207.         <tr>
  208.             <td colspan="3"> </td>
  209.             <td>
  210.                 <input type="radio" name="optFilterType" id="optFilterType" value="<%=SUR_EMAIL_LIST_WITH_FILTER%>">
  211.             </td>
  212.             <td colspan="2">
  213.                 <span class="NormalBold">Copy email addresses that match:</span>
  214.             </td>
  215.         </tr>
  216.         <tr>
  217.             <td colspan="4"> </td>
  218.             <td width="50">
  219.                 <span class="NormalBold"><label for="cboActive">Active:</label></span>
  220.             </td>
  221.             <td width="300">
  222.                 <select name="cboActive" id="cboActive" style="width:150px">
  223.                     <option value="<%=SUR_COMBO_ALL%>"><%=SUR_COMBO_ALL%></option>
  224.                     <option value="<%=SUR_BOOLEAN_NEGATIVE%>"><%=SUR_BOOLEAN_NEGATIVE_DISPLAY%></option>
  225.                     <option value="<%=SUR_BOOLEAN_POSITIVE%>"><%=SUR_BOOLEAN_POSITIVE_DISPLAY%></option>
  226.                 </select>
  227.             </td>
  228.         </tr>
  229.         <tr>
  230.             <td colspan="4"> </td>
  231.             <td>
  232.                 <span class="NormalBold"><label for="txtEmailAddress">Email Address:</label></span>
  233.             </td>
  234.             <td>
  235.                 <input type="text" name="txtEmailAddress" id="txtEmailAddress" style="width:150px">
  236.             </td>
  237.         </tr>
  238.         <tr>
  239.             <td colspan="4"> </td>
  240.             <td>
  241.                 <span class="NormalBold"><label for="txtCustomData1">Custom Data 1:</label></span>
  242.             </td>
  243.             <td>
  244.                 <input type="text" name="txtCustomData1" id="txtCustomData1" style="width:150px">
  245.             </td>
  246.         </tr>
  247.         <tr>
  248.             <td colspan="4"> </td>
  249.             <td>
  250.                 <span class="NormalBold"><label for="txtCustomData2">Custom Data 2:</label></span>
  251.             </td>
  252.             <td>
  253.                 <input type="text" name="txtCustomData2" id="txtCustomData2" style="width:150px">
  254.             </td>
  255.         </tr>
  256.         <tr>
  257.             <td colspan="4"> </td>
  258.             <td>
  259.                 <span class="NormalBold"><label for="txtCustomData3">Custom Data 3:</label></span>
  260.             </td>
  261.             <td>
  262.                 <input type="text" name="txtCustomData3" id="txtCustomData3" style="width:150px">
  263.             </td>
  264.         </tr>
  265. <%
  266.         'Admin's can also create email lists by copying registered users
  267.         If lngUserSecurityLevel = SUR_SECURITY_LEVEL_ADMIN Then
  268. %>
  269.             <tr>
  270.                 <td valign="top">
  271.                 <label for="optType"> </label>
  272.                 </td>
  273.                 <td valign="top">
  274.                     <input type="radio" name="optType" id="optType" value="<%=SUR_CREATE_EMAIL_LIST_FROM_USERS%>">
  275.                 </td>
  276.                 <td valign="top" colspan="4">
  277.                     <span class="NormalBold">From Registered Users </span><span class="Normal">-- Create an email address list from registered users</span>
  278.                 </td>
  279.             </tr>
  280.             <tr>
  281.                 <td colspan="3">
  282.                 <label for="optUserFilterType"> </label>
  283.                 </td>
  284.                 <td width="10">
  285.                     <input checked type="radio" name="optUserFilterType" id="optUserFilterType" value="<%=SUR_EMAIL_LIST_ALL%>">
  286.                 </td>
  287.                 <td width="375" colspan="2">
  288.                     <span class="NormalBold">Copy all registered users</span>
  289.                 </td>
  290.             </tr>
  291.             <tr>
  292.                 <td colspan="3"> </td>
  293.                 <td>
  294.                     <input type="radio" name="optUserFilterType" id="optUserFilterType" value="<%=SUR_EMAIL_LIST_WITH_FILTER%>">
  295.                 </td>
  296.                 <td colspan="2">
  297.                     <span class="NormalBold">Copy registered users that match:</span>
  298.                 </td>
  299.             </tr>
  300.             <tr>
  301.                 <td colspan="4"> </td>
  302.                 <td width="50">
  303.                     <span class="NormalBold"><label for="cboUserActive">Active:</label></span>
  304.                 </td>
  305.                 <td width="300">
  306.                     <select name="cboUserActive" id="cboUserActive" style="width:150px">
  307.                         <option value="<%=SUR_COMBO_ALL%>"><%=SUR_COMBO_ALL%></option>
  308.                         <option value="<%=SUR_BOOLEAN_NEGATIVE%>"><%=SUR_BOOLEAN_NEGATIVE_DISPLAY%></option>
  309.                         <option value="<%=SUR_BOOLEAN_POSITIVE%>"><%=SUR_BOOLEAN_POSITIVE_DISPLAY%></option>
  310.                     </select>
  311.                 </td>
  312.             </tr>
  313.             <tr>
  314.                 <td colspan="4"> </td>
  315.                 <td>
  316.                     <span class="NormalBold"><label for="txtUserEmailAddress">Email Address:</label></span>
  317.                 </td>
  318.                 <td>
  319.                     <input type="text" name="txtUserEmailAddress" id="txtUserEmailAddress" style="width:150px">
  320.                 </td>
  321.             </tr>
  322.             <tr>
  323.                 <td colspan="4"> </td>
  324.                 <td>
  325.                     <span class="NormalBold"><label for="txtUserPosition">Position:</label></span>
  326.                 </td>
  327.                 <td>
  328.                     <input type="text" name="txtUserPosition" id="txtUserPosition" style="width:150px">
  329.                 </td>
  330.             </tr>
  331.             <tr>
  332.                 <td colspan="4"> </td>
  333.                 <td>
  334.                     <span class="NormalBold"><label for="txtUserCompany">Company:</label></span>
  335.                 </td>
  336.                 <td>
  337.                     <input type="text" name="txtUserCompany" id="txtUserCompany" style="width:150px">
  338.                 </td>
  339.             </tr>
  340.             <tr>
  341.                 <td colspan="4"> </td>
  342.                 <td>
  343.                     <span class="NormalBold"><label for="txtUserLocation">Location:</label></span>
  344.                 </td>
  345.                 <td>
  346.                     <input type="text" name="txtUserLocation" id="txtUserLocation" style="width:150px">
  347.                 </td>
  348.             </tr>
  349.             <tr>
  350.                 <td colspan="4"> </td>
  351.                 <td>
  352.                     <span class="NormalBold"><label for="txtUserCustomData1">Custom Data 1:</label></span>
  353.                 </td>
  354.                 <td>
  355.                     <input type="text" name="txtUserCustomData1" id="txtUserCustomData1" style="width:150px">
  356.                 </td>
  357.             </tr>
  358.             <tr>
  359.                 <td colspan="4"> </td>
  360.                 <td>
  361.                     <span class="NormalBold"><label for="txtUserCustomData2">Custom Data 2:</label></span>
  362.                 </td>
  363.                 <td>
  364.                     <input type="text" name="txtUserCustomData2" id="txtUserCustomData2" style="width:150px">
  365.                 </td>
  366.             </tr>
  367.             <tr>
  368.                 <td colspan="4"> </td>
  369.                 <td>
  370.                     <span class="NormalBold"><label for="txtUserCustomData3">Custom Data 3:</label></span>
  371.                 </td>
  372.                 <td>
  373.                     <input type="text" name="txtUserCustomData3" id="txtUserCustomData3" style="width:150px">
  374.                 </td>
  375.             </tr>
  376. <%
  377.         End If
  378. %>
  379.         <tr>
  380.             <td valign="top" align="right" colspan="6">
  381.                 <br>
  382.                 <a href="EmailListList.asp"><img border="0" alt="Cancel" name="btnCancel" src="Resources/Buttons/Cancel.gif"></a>
  383.                 <input type="image" border="0" alt="Save" src="Resources/Buttons/Save.gif" name="btnSave">
  384.                 <br>
  385.             </td>
  386.         </tr>
  387.     </form>
  388. </table>
  389.  
  390. <!--#Include File="Include/FrameworkBottom_inc.asp"-->
  391.  
  392. </body>
  393. </html>
  394.  
  395. <%        
  396.     'Ensure that the web server returns the page
  397.     Response.Flush
  398. %>
  399.