home *** CD-ROM | disk | FTP | other *** search
/ bombers.k12.ar.us / bombers.k12.ar.us.tar / bombers.k12.ar.us / survey_unconfigured / DisplayResponse.asp < prev    next >
Text File  |  2006-10-25  |  3KB  |  133 lines
  1. <!--#Include File="Include/Top_inc.asp"-->
  2. <%
  3. '***********************************************************************
  4. '   Application: SelectSurveyASP Advanced v8.1.11
  5. '   Author: Eric Posnack for ClassApps.com
  6. '   Page Description: This page displays the survey title, and the user first 
  7. '                      and last name after completing a 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/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.     Dim strPageTitle
  25.     Dim strSQL
  26.     Dim rsSurveyMessage
  27.     Dim lngSurveyID
  28.     Dim strTitle
  29.     Dim strFirstName
  30.     Dim strLastName
  31.     
  32.     'Initialization
  33.     strPageTitle = "Survey Complete"
  34.     Set rsSurveyMessage = Server.CreateObject("ADODB.Recordset")
  35.  
  36.     'Select the list of all open surveys 
  37.     strSQL = "SELECT title, first_name, last_name " & _
  38.              "FROM sur_user u, sur_response r, sur_survey s " & _
  39.              "WHERE r.username = u.username " & _
  40.              "AND r.survey_id = s.survey_id " & _
  41.              "AND r.response_id = " & Request.QueryString("ResponseID")
  42.  
  43.     rsSurveyMessage.Open ConvertSQL(strSQL), SURVEY_APP_CONNECTION, adOpenForwardOnly, adLockReadOnly, adCmdText
  44.     
  45.     If rsSurveyMessage.EOF = True Then
  46.         strTitle = "Unknown Title"
  47.         strFirstName = ""
  48.         strLastName = ""
  49.     Else
  50.         rsSurveyMessage.MoveFirst
  51.         strTitle = rsSurveyMessage("title")
  52.         strFirstName = rsSurveyMessage("first_name")
  53.         strLastName = rsSurveyMessage("last_name")
  54.     End If
  55.     
  56.     'Clean up
  57.     rsSurveyMessage.Close
  58.     Set rsSurveyMessage = Nothing
  59. %>
  60. <html>
  61. <head>
  62.     <title><%=strPageTitle%></title>    
  63.     <link rel="stylesheet" href="Resources/StyleSheet/SurveyStyle.css">
  64. </head>
  65.  
  66. <body class="MainWindowLightBodyStyle">
  67. <center>
  68.  
  69. <center>
  70. <table cellpadding="0" cellspacing="0" border="0" width="760">
  71.     <tr>
  72.         <td width="100%" colspan="2">
  73. <!--#Include File="Include/Header_inc.asp"-->
  74.         </td>
  75.     </tr>
  76.     <tr>
  77.         <td width="0">
  78. <!--#Include File="Include/Sidebar_inc.asp"-->
  79.         </td>
  80.         <td>
  81.  
  82. <table border="0" cellspacing="0" cellpadding="5">
  83.     <tr>
  84.         <td>
  85.             <span class="H1HeadingStyle"><a name="skipnav" tabindex="1"><%=strPageTitle%></a></span>
  86.         </td>
  87.     </tr>
  88. </table>
  89.  
  90. <% 
  91.     'Render the top of the wizard box
  92.     RenderWizardBoxTop()
  93. %>
  94.  
  95. <table cellspacing="0" border="0" cellpadding="8" width="740">
  96.     <tr>
  97.         <td>
  98.             <span class="Normal">
  99.                 Thank you for taking this survey.
  100.                 <br><br>
  101.                 Survey Title:  <%=strTitle%><br>
  102.                 First Name:  <%=strFirstName%><br>
  103.                 Last Name:  <%=strLastName%><br>
  104.             </span>
  105.         </td>
  106.     </tr>
  107. </table>
  108. <br>
  109.  
  110. <%
  111.     'Render the bottom of the wizard box
  112.     RenderWizardBoxBottom()    
  113. %>
  114.  
  115.         </td>
  116.     </tr>
  117.     <tr>
  118.         <td width="100%" colspan="2">
  119. <!--#Include File="Include/Footer_inc.asp"-->
  120.         </td>
  121.     </tr>
  122. </table>
  123. </center>
  124.  
  125.  
  126. </center>
  127. </body>
  128. </html>
  129. <%
  130.     'Ensure that the web server returns the page
  131.     Response.Flush
  132. %>
  133.