home *** CD-ROM | disk | FTP | other *** search
/ bombers.k12.ar.us / bombers.k12.ar.us.tar / bombers.k12.ar.us / survey / NoResults.asp < prev    next >
Text File  |  2006-11-29  |  3KB  |  95 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 is displayed when a user attempts to view
  7. '                     the results of a survey that does not yet have any
  8. '                     results.
  9. '
  10. '   COPYRIGHT NOTICE                                
  11. '
  12. '   See attached Software License Agreement
  13. '
  14. '   (c) Copyright 2002 - 2006 by ClassApps.com.  All rights reserved.
  15. '***********************************************************************
  16. %>
  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/Constants_inc.asp"-->
  22. <!--#Include File="Include/Config_inc.asp"-->
  23. <!--#Include File="Include/adovbs_inc.asp"-->
  24. <html>
  25. <head>
  26.     <title>No Results</title>
  27.     <link rel="stylesheet" href="Resources/StyleSheet/SurveyStyle.css">
  28. </head>
  29.  
  30. <body class="MainBodyStyle">
  31.  
  32. <!--#Include File="Include/FrameworkTop_inc.asp"-->
  33.  
  34. <table border="0" cellspacing="0" cellpadding="0" width="754" class="MediumBlueBackgroundColor">
  35.     <tr>
  36.         <td height="36" valign="center">
  37.               <span class="H1HeadingStyle"><a name="skipnav" tabindex="1">Surveys</a></span>
  38.         </td>
  39.     </tr>
  40. </table>
  41.  
  42. <!--#Include File="Include/FrameworkTop2_inc.asp"-->
  43.  
  44. <%
  45.     Dim rsSurvey
  46.     Dim strSQL
  47.  
  48.     'Select the list of owners and the title of the survey
  49.     Set rsSurvey = Server.CreateObject("ADODB.Recordset")
  50.     strSQL = "SELECT title, owners FROM sur_survey WHERE survey_id = " & Request.QueryString("SurveyID")
  51.     rsSurvey.Open ConvertSQL(strSQL), SURVEY_APP_CONNECTION, adOpenForwardOnly, adLockReadOnly, adCmdText
  52.         
  53.     rsSurvey.MoveFirst
  54. %>
  55.  
  56. <table width="740" border="0" cellpadding="0" cellspacing="6" class="LightGrayBackgroundColor">
  57.     <tr>
  58.         <td width="1"></td>
  59.         <td width="738" align="left" valign="center" height="36" class="Normal">
  60.             <span class="H2HeadingStyle">No Results</span>
  61.         </td>
  62.         <td width="1"> </td>
  63.     </tr>
  64. </table>
  65. <table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td height="1" background="Resources/Images/ThinDivider.gif"></td></tr>
  66. <table border="0" cellpadding="0" cellspacing="6" width="740" class="WhiteBackgroundColor">
  67.     <tr>
  68.         <td width="1" rowspan="20"></td>
  69.         <td align="left" valign="top">
  70.             <br><br>
  71.             <span class="Normal">There are currently no results for the survey '<%=rsSurvey("title")%>'.</span>
  72.             <br><br><br>
  73.         </td>
  74.         <td width="1" rowspan="20"> </td>
  75.     </tr>
  76.     <tr>
  77.         <td align="right">
  78.             <a href="SurveyList.asp"><img border="0" src="Resources/Buttons/OK.gif" alt="Click to return to the main list of surveys."></a>
  79.         </td>
  80.     </tr>
  81. </table>
  82.  
  83. <!--#Include File="Include/FrameworkBottom_inc.asp"-->
  84.  
  85. </body>
  86. </html>
  87. <%
  88.     'Clean up
  89.     rsSurvey.Close
  90.     Set rsSurvey = Nothing
  91.  
  92.     'Ensure that the web server returns the page
  93.     Response.Flush
  94. %>
  95.