home *** CD-ROM | disk | FTP | other *** search
/ bombers.k12.ar.us / bombers.k12.ar.us.tar / bombers.k12.ar.us / survey_unconfigured / Default.asp < prev    next >
Text File  |  2006-10-25  |  6KB  |  178 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 the home page of the application.
  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/Constants_inc.asp"-->
  16. <!--#Include File="Include/Config_inc.asp"-->
  17. <!--#Include File="Include/adovbs_inc.asp"-->
  18. <!--#Include File="Include/CurrentUser_inc.asp"-->
  19. <!--#Include File="Include/Utility_inc.asp"-->
  20. <!--#Include File="Include/Encryption_inc.asp"-->
  21. <!--#Include File="Include/SurveySecurity_inc.asp"-->
  22.  
  23. <%
  24.     Dim flgInvalidSurveyID
  25.     
  26.     flgInvalidSurveyID = False
  27.     
  28.     'Check to see if the user entered a survey ID
  29.     If Len(Request.Form("PostBack")) > 0 Then
  30.         If IsValidSurveyID(DecryptSurveyID(Request.Form("txtSurveyID"))) = True Then
  31.             Response.Redirect "TakeSurvey.asp?SurveyID=" & Request.Form("txtSurveyID")
  32.         Else
  33.             flgInvalidSurveyID = True
  34.         End If
  35.     End If
  36. %>
  37.  
  38. <html>
  39. <head>
  40.     <title><%=SUR_APPLICATION_NAME%> Home Page</title>
  41.     <link rel="stylesheet" href="Resources/StyleSheet/SurveyStyle.css">
  42. </head>
  43.  
  44. <body class="MainBodyStyle">
  45.  
  46. <table border="0" height="100%" width="100%" cellpadding="0" cellspacing="0">
  47.     <tr>
  48.         <td valign="center" align="center">
  49.             <table width="525" border="0" align="center" cellpadding="0" cellspacing="0" class="DarkBlueBackgroundColor">
  50.                 <tr> 
  51.                     <td align="left" height="36" valign="bottom">
  52.                           <img border="0" alt="SelectSurveyASP Advanced" src="Resources/Images/TopLogo.gif">
  53.                     </td>
  54.                 </tr>
  55.             </table>
  56.             <table width="525" border="0" align="center" cellpadding="8" cellspacing="0" class="DarkBlueBackgroundColor">
  57.                 <tr> 
  58.                     <td align="center">
  59.                         <table width="509" border="0" cellpadding="7" cellspacing="0" class="MediumBlueBackgroundColor">
  60.                             <tr> 
  61.                                 <td align="center">
  62.                                     <table cellspacing="0" border="0" cellpadding="6" width="495" class="WhiteBackgroundColor">
  63.                                         <tr>
  64.                                             <td>
  65.                                                 <table width="100%" cellpadding="5" cellspacing="0" border="0">
  66.                                                     <form name="frmSurveyID" action="Default.asp" method="post">
  67.                                                     <input type="hidden" name="PostBack" value="Yes">
  68.                                                     <tr>
  69.                                                         <td colspan="2">
  70.                                                             <span class="H2HeadingStyle">Welcome!</span>
  71.                                                         </td>
  72.                                                     </tr>
  73. <%
  74.                                                     If flgInvalidSurveyID = True Then
  75. %>
  76.                                                         <tr>
  77.                                                             <td colspan="2" align="center">
  78.                                                                 <span class="NormalRed">The survey ID you entered is not valid.</span>
  79.                                                             </td>
  80.                                                         </tr>
  81. <%
  82.                                                     End If
  83. %>
  84.                                                     <tr>
  85.                                                         <td colspan="2">
  86. <%
  87.                                                             If IsLoggedIn() = True Then
  88. %>
  89.                                                                 <span class="Normal">You are succesfully logged into the application. 
  90. <%
  91.                                                                 If GetSecurityLevel() <> SUR_SECURITY_LEVEL_USER Then
  92. %>
  93.                                                                      Click <a href="SurveyList.asp">here</a> to create or manage surveys.
  94. <%
  95.                                                                 End If
  96. %>
  97.                                                                 Click <a href="User.asp?State=<%=SUR_STATE_EDIT%>">here</a> to edit your account. Click 
  98.                                                                 <a href="Logout.asp">here</a> to logout.<br></span>
  99.                                                                 </span>
  100. <%
  101.                                                             Else 'Not logged in
  102. %>
  103.                                                                 <span class="Normal">
  104.                                                                     If you would like to log into the application, please click <a href="Login.asp">here</a>.  
  105.                                                                 </span>
  106. <%
  107.                                                             End If
  108.  
  109. %>                                                                
  110.                                                         </td>
  111.                                                     </tr>
  112.                                                     <tr>
  113.                                                         <td valign="top">
  114.                                                             <span class="Normal">
  115. <%
  116.                                                                 If IsLoggedIn() = True Then
  117. %>
  118.                                                                     Your account has been granted permission to take surveys.  
  119. <%
  120.                                                                 Else
  121.                                                                     Response.Write "<br>"
  122.                                                                 End If
  123. %>
  124.                                                                 Please enter the ID of the survey you wish to take in the box below.
  125.                                                             </span>
  126.                                                         </td>
  127.                                                         <td width="30%" align="center" valign="top" rowspan="3">
  128.                                                             <img border="0" alt="SelectSurveyASP Box" src="Resources/Images/SurveyBox.jpg">
  129.                                                         </td>
  130.                                                     </tr>
  131.                                                     <tr>
  132.                                                         <td>
  133.                                                                 
  134.                                                             <span class="NormalBold"><label for="txtSurveyID">Survey ID:</label></span>
  135.                                                              
  136.                                                             <input type="text" name="txtSurveyID" id="txtSurveyID" maxlength="20" style="width:150px">
  137.                                                         </td>
  138.                                                     </tr>
  139.                                                     <tr>
  140.                                                         <td align="right">
  141.                                                             <input type="image" border="0" alt="Enter the ID of the survey you wish to take" name="btnSubmit" src="Resources/Buttons/Submit.gif">
  142.                                                                    
  143.                                                         </td>
  144.                                                     </tr>
  145.                                                     <tr>
  146.                                                         <td colspan="2" align="center">
  147.                                                             <span class="Normal">Questions?  Contact the survey administrator at <a href="mailto:<%=SUR_APPLICATION_ADMIN_EMAIL_ADDRESS%>"><%=SUR_APPLICATION_ADMIN_EMAIL_ADDRESS%></a></span>
  148.                                                         </td>
  149.                                                     </tr>
  150.                                                     </form>
  151.                                                 </table>
  152.                                             </td>
  153.                                         </tr>
  154.                                     </table>
  155.                                 </td>
  156.                             </tr>
  157.                         </table>
  158.                     </td>
  159.                 </tr>
  160.             </table>
  161.             <table width="525" border="0" align="center" cellpadding="0" cellspacing="0" class="DarkBlueBackgroundColor">
  162.                 <tr> 
  163.                     <td align="center">
  164. <!--#Include File="Include/FooterInner_inc.asp"-->
  165.                     </td>
  166.                 </tr>
  167.             </table>
  168.         </td>
  169.     </tr>
  170. </table>
  171. </body>
  172. </html>
  173.  
  174. <%        
  175.     'Ensure that the web server returns the page
  176.     Response.Flush
  177. %>
  178.