home *** CD-ROM | disk | FTP | other *** search
/ bombers.k12.ar.us / bombers.k12.ar.us.tar / bombers.k12.ar.us / survey_unconfigured / EmailMessageList.asp < prev    next >
Text File  |  2006-10-25  |  8KB  |  222 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 displays a list of all the email messages sent to 
  7. '                      an 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/Constants_inc.asp"-->
  17. <!--#Include File="Include/SurveyUtility_inc.asp"-->
  18. <!--#Include File="Include/Utility_inc.asp"-->
  19. <!--#Include File="Include/CurrentUser_inc.asp"-->
  20. <!--#Include File="Include/SurveySecurity_inc.asp"-->
  21. <!--#Include File="Include/Config_inc.asp"-->
  22. <!--#Include File="Include/adovbs_inc.asp"-->
  23. <%
  24.     'If the user does not have "Create" or "Admin" permission, redirect 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 strPageTitle
  30.     Dim strSortColumn
  31.     Dim strSortOrder
  32.     Dim strTempSortOrder
  33.     Dim strTableRowColor
  34.  
  35.     strPageTitle = "Message History"
  36.  
  37.     'Set the sort column and sort order
  38.     If Len(Request.QueryString("SortColumn")) > 0 Then
  39.         strSortColumn = Request.QueryString("SortColumn")
  40.         strSortOrder = Request.QueryString("SortOrder")
  41.     Else
  42.         strSortColumn = "sent_date"
  43.         strSortOrder = SUR_SORT_ORDER_DESCENDING
  44.     End If
  45.  
  46.     'Initialize the row color
  47.     strTableRowColor = "TableRowLightColor"
  48. %>
  49. <html>
  50. <head>
  51.     <title><%=strPageTitle%></title>    
  52.     <link rel="stylesheet" href="Resources/StyleSheet/SurveyStyle.css">
  53. </head>
  54. <body class="MainBodyStyle">
  55.  
  56. <!--#Include File="Include/FrameworkTop_inc.asp"-->
  57.  
  58. <table border="0" cellspacing="0" cellpadding="0" width="754" class="MediumBlueBackgroundColor">
  59.     <tr>
  60.         <td height="36" valign="center">
  61.               <span class="H1HeadingStyle"><a name="skipnav" tabindex="1"><%=strPageTitle%></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">
  62.         </td>
  63.         <td align="right" valign="center">
  64.             <a href="EmailListList.asp"><img border="0" alt="Back" name="btnBack" src="Resources/Buttons/Back.gif"></a>
  65.         </td>
  66.         <td width="7"></td>
  67.     </tr>
  68. </table>
  69.  
  70. <% 
  71.     Dim strSQL
  72.     Dim rsMessageList
  73.     Dim lngEmailListID
  74.     Dim strEmailListName 
  75.     
  76.     'Initialization
  77.     Set rsMessageList = Server.CreateObject("ADODB.Recordset")
  78.     lngEmailListID = Request.QueryString("EmailListID")
  79.     strEmailListName  = Request.QueryString("EmailListName")
  80. %>
  81.  
  82. <!--#Include File="Include/FrameworkTop2_inc.asp"-->
  83.  
  84. <table width="740" border="0" cellpadding="6" cellspacing="0" class="WhiteBackgroundColor" summary="This page displays a list of email messages that have been sent to the selected email list.">
  85.     <tr class="LightGrayBackgroundColor">
  86.         <td valign="center" colspan="7" height="40">
  87.             <span class="H2HeadingStyle">
  88.                 Email Messages for '<%=strEmailListName%>' Email List
  89.             </span>
  90.         </td>
  91.     </tr>
  92.     <tr class="TableHeadingColor" height="40">
  93.         <th id="SentDate" align="center" width="75" valign="center">
  94. <%
  95.             'Determine the sort order if the user clicks this column heading
  96.             If strSortColumn = "sent_date" Then
  97.                 If strSortOrder = SUR_SORT_ORDER_ASCENDING Then
  98.                     strTempSortOrder = SUR_SORT_ORDER_DESCENDING
  99.                 Else
  100.                     strTempSortOrder = SUR_SORT_ORDER_ASCENDING
  101.                 End If
  102.             Else
  103.                 strTempSortOrder = SUR_SORT_ORDER_ASCENDING
  104.             End If
  105. %>
  106.             <span class="TableHeadingBold"><a href="EmailMessageList.asp?EmailListID=<%=lngEmailListID%>&EmailListName=<%=strEmailListName%>&SortColumn=sent_date&SortOrder=<%=strTempSortOrder%>">Sent Date</a></span>
  107.         </th>
  108.         <th id="Title" align="center" width="210" valign="center">
  109. <%
  110.             'Determine the sort order if the user clicks this column heading
  111.             If strSortColumn = "title" Then
  112.                 If strSortOrder = SUR_SORT_ORDER_ASCENDING Then
  113.                     strTempSortOrder = SUR_SORT_ORDER_DESCENDING
  114.                 Else
  115.                     strTempSortOrder = SUR_SORT_ORDER_ASCENDING
  116.                 End If
  117.             Else
  118.                 strTempSortOrder = SUR_SORT_ORDER_ASCENDING
  119.             End If
  120. %>
  121.             <span class="TableHeadingBold"><a href="EmailMessageList.asp?EmailListID=<%=lngEmailListID%>&EmailListName=<%=strEmailListName%>&SortColumn=title&SortOrder=<%=strTempSortOrder%>">Survey Name</a></span>
  122.         </th>
  123.         <th id="Subject" align="center" width="230" valign="center">
  124. <%
  125.             'Determine the sort order if the user clicks this column heading
  126.             If strSortColumn = "email_subject" Then
  127.                 If strSortOrder = SUR_SORT_ORDER_ASCENDING Then
  128.                     strTempSortOrder = SUR_SORT_ORDER_DESCENDING
  129.                 Else
  130.                     strTempSortOrder = SUR_SORT_ORDER_ASCENDING
  131.                 End If
  132.             Else
  133.                 strTempSortOrder = SUR_SORT_ORDER_ASCENDING
  134.             End If
  135. %>
  136.             <span class="TableHeadingBold"><a href="EmailMessageList.asp?EmailListID=<%=lngEmailListID%>&EmailListName=<%=strEmailListName%>&SortColumn=email_subject&SortOrder=<%=strTempSortOrder%>">Email Subject</a></span>
  137.         </th>
  138.         <th id="ResponseCount" align="center" width="65" valign="center">
  139.             <span class="TableHeadingBold">Response Count</span>
  140.         </th>
  141.         <th id="SentCount" align="center" width="40" valign="center">
  142.             <span class="TableHeadingBold">Sent Count</span>
  143.         </th>
  144.         <th id="Send" align="center" width="75" valign="center">
  145.             <span class="TableHeadingBold">Send<br>Follow-Up</span>
  146.         </th>
  147.         <th id="Details" align="center" width="45" valign="center">
  148.             <span class="TableHeadingBold">Details</span>
  149.         </th>
  150.     </tr>
  151. <%
  152.     'Select the list of all messages sent to this email list.
  153.     strSQL = "SELECT sent_date, email_message_id, title, email_subject, email_sent_count, email_response_count, s.survey_id " & _
  154.              "FROM sur_email_message em, sur_survey s " & _
  155.              "WHERE em.survey_id = s.survey_id " & _
  156.              "AND email_list_id = " & lngEmailListID & _
  157.              " ORDER BY " & strSortColumn & " " & strSortOrder
  158.     rsMessageList.Open ConvertSQL(strSQL), SURVEY_APP_CONNECTION, adOpenForwardOnly, adLockReadOnly, adCmdText
  159.  
  160.     If rsMessageList.EOF = True Then
  161. %>    
  162.         <tr>
  163.             <td class="Normal" colspan="7">
  164.                 No messages have been sent to this email list.
  165.                 <br><br><br><br><br><br><br><br><br>
  166.             </td>
  167.         </tr>
  168. <%        
  169.     Else
  170.         rsMessageList.MoveFirst
  171.         Do While Not rsMessageList.EOF
  172. %>
  173.             <tr class="<%=strTableRowColor%>">
  174.                 <td align="center" class="Normal" valign="center">
  175.                     <%=CustomDateFormatDisplay(rsMessageList("sent_date"))%>
  176.                 </td>
  177.                 <td class="Normal">
  178.                     <%=rsMessageList("title")%>
  179.                 </td>
  180.                 <td class="Normal">
  181.                     <%=rsMessageList("email_subject")%>
  182.                 </td>
  183.                 <td class="Normal" align="center">
  184.                     <%=rsMessageList("email_response_count")%>
  185.                 </td>
  186.                 <td class="Normal" align="center">
  187.                     <%=rsMessageList("email_sent_count")%>
  188.                 </td>
  189.                 <td align="center" class="Normal">
  190.                     <a href="SendFollowUpMessage1.asp?EmailMessageID=<%=rsMessageList("email_message_id")%>&Subject=<%=rsMessageList("email_subject")%>&EmailListID=<%=lngEmailListID%>&EmailListName=<%=strEmailListName%>"><img alt="Send a follow-up message" src="Resources/Icons/Send.gif" border="0" onMouseOver="this.style.cursor='hand'"></a>
  191.                 </td>
  192.                 <td align="center" class="Normal">
  193.                     <a href="EmailMessageDetails.asp?EmailMessageID=<%=rsMessageList("email_message_id")%>&EmailListID=<%=lngEmailListID%>&EmailListName=<%=strEmailListName%>"><img alt="View message details and all emails sent to this email list" src="Resources/Icons/Details.gif" border="0" onMouseOver="this.style.cursor='hand'"></a>
  194.                 </td>
  195.             </tr>
  196. <%    
  197.             'Alternate the colors for the rows in the table
  198.             If strTableRowColor = "TableRowDarkColor" Then
  199.                 strTableRowColor = "TableRowLightColor"
  200.             Else
  201.                 strTableRowColor = "TableRowDarkColor"
  202.             End If
  203.  
  204.             rsMessageList.MoveNext
  205.         Loop
  206.     End If
  207. %>
  208. </table>
  209.  
  210. <!--#Include File="Include/FrameworkBottom_inc.asp"-->
  211.  
  212. </body>
  213. </html>
  214. <%
  215.     'Clean up
  216.     rsMessageList.Close
  217.     Set rsMessageList = Nothing
  218.  
  219.     'Ensure that the web server returns the page
  220.     Response.Flush
  221. %>
  222.