home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 40 / IOPROG_40.ISO / SOFT / asp / SEARCH.ZIP / admin / admin.asp < prev    next >
Encoding:
Text File  |  2000-02-23  |  6.7 KB  |  159 lines
  1. <%
  2.  
  3. response.buffer=true
  4.  
  5. %>
  6. <!---#INCLUDE FILE="dbthemes.asp"--->
  7. <!---#INCLUDE FILE="themes/themes.asp"--->
  8. <!---#INCLUDE FILE="config/config.asp"--->
  9. <!---#INCLUDE FILE="ad/ad.asp"--->
  10. <%
  11. response.buffer=true
  12. Session("back") = Request.ServerVariables("SCRIPT_NAME") 
  13. if Session("login") = "" then
  14.    logout = ""
  15.    logged = ""
  16. else
  17.    user = Session("user")
  18.    level = Session("level")
  19.     
  20.  
  21. logout = "<a href='login.asp?logout=y'>Log Out</a><font color=red> ..</font>"
  22. logged = "<font face=Arial size=2><b>Logged in</b> as:<font color=#FF0000>" & user
  23. logged = logged & "</font> Level:</font><font color=#FF0000 face=Arial size=2>" & level
  24. end if
  25.  
  26.  
  27. %>
  28. <html>
  29.  
  30. <head><%
  31. 'these meta tags can change
  32. %>
  33.  
  34. <meta name="AUTHOR"
  35. content="Rory Knowles - ASP bahamas / Administrator for Knowles Realty's Web Site at www.KnowlesRealty.com">
  36. <meta name="GENERATOR" content="Microsoft FrontPage 3.0">
  37. <meta name="KEYWORDS"
  38. content="bahamas, bahama, bahamas business, bahamas bahamas, bahamian, yellow, pages, business, realty, real, estate, bahama, islands, island, business, listings, directory, listing, ad, classified, advertisment, home, online, internet, web, web bahamas">
  39. <%
  40. 'keep these meta tags in for free distribution
  41. 'these are the distributors ad tags
  42. %>
  43. <meta http-equiv="ad1" content="<%= ad1 %>">
  44. <meta http-equiv="ad2" content="<%= ad2 %>">
  45. <meta http-equiv="ad3" content="<%= ad3 %>">
  46. <meta http-equiv="ad4" content="<%= ad4 %>">
  47. <style>
  48. <!--
  49.     SPAN {color:<%= getSiteFontColor() %>; background-color:<%= getSiteHighliteColor() %>}
  50. -->
  51. </style>
  52. <title>Administration - <%= title %></title>
  53. </head>
  54.  
  55. <body vlink="<%= getSiteBGVlink() %>" bgcolor="<%= getSiteBGColor() %>"
  56. link="<%= getSiteBGLink() %>">
  57. <!---#INCLUDE FILE="includes/headernorm.asp"--->
  58.  
  59. <table border="0" width="600" cellspacing="0" cellpadding="0" align="center">
  60.   <tr>
  61.     <td width="100%" valign="top" height="277"><table border="0" cellpadding="0"
  62.     cellspacing="0" width="600">
  63.       <tr>
  64.         <td width="100%" height="19" bgcolor="<%= getSiteTitleNameBGColor() %>" valign="middle"
  65.         colspan="2"><% = fontTagStart(3, getSiteFontColor(), Y, N, N) %>
  66. <p>  <%= titlename %><% = fontTagEnd(Y, N, N) %> </td>
  67.       </tr>
  68.       <tr>
  69.         <td height="19" bgcolor="<%= getSiteMainLinksBGColor() %>" valign="middle" width="305"><% = fontTagStart(2, getSiteFontColor(), Y, N, N) %>
  70. <p> 
  71.         <a href="addurl.asp">Add URL</a> | <a href="editurl.asp">Edit URL</a> | <a
  72.         href="user_control.asp">Users</a> | <a href="theme.asp">Theme</a> | <%= logout %><% = fontTagEnd(Y, N, N) %></td>
  73.         <td height="19" bgcolor="<%= getSiteMainLinksBGColor() %>" valign="middle" width="295"><p
  74.         align="right"><% = fontTagStart(2, getSiteFontColor(), Y, N, N) %><a href="admin.asp">ADMIN</a><% = fontTagEnd(Y, N, N) %><% = fontTagStart(2, "#FF8040", Y, N, N) %> ><% = fontTagEnd(Y, N, N) %><% = fontTagStart(2, "#008000", Y, N, N) %>> <% = fontTagEnd(Y, N, N) %><%= logged%>  </td>
  75.       </tr>
  76.       <tr>
  77.         <td width="600" height="62" bgcolor="#FFFFFF" valign="middle" colspan="2"><!---#INCLUDE FILE="includes/banners.asp"---> </td>
  78.       </tr>
  79.       <tr>
  80.         <td width="600" bgcolor="<%= getSitePageNameBGColor() %>" valign="middle" colspan="2"><% = fontTagStart(3, getSitePageNameFontColor(), Y, N, N) %>
  81. <p> 
  82.         Adminstration<% = fontTagEnd(Y, N, N) %></td>
  83.       </tr>
  84.       <tr align="center">
  85.         <td width="600" height="18" bgcolor="#FFFFFF" valign="middle" colspan="2"><%
  86. if Session("login") = "" then
  87.  
  88.    if Session("error") = "y" then
  89.       error = "<center>" & fontTagStart(1, "red", Y, N, N) & "Error! Please enter a correct username and password." & fontTagEnd(Y, N, N) & "       </center>"
  90.    else
  91.       error = ""
  92.    end if
  93. %>
  94. <p><br>
  95. <% = fontTagStart(2, getSiteFontColor(), N, N, N) %>                                   
  96.         Welcome to the administration section.  Please Log in below:<br>
  97. <% = fontTagEnd(N, N, N) %>        <br>
  98. <%= error %>        </td>
  99.       </tr>
  100.       <tr>
  101.         <td width="600" height="18" bgcolor="#FFFFFF" valign="middle" colspan="2"><hr size="1">
  102.         </td>
  103.       </tr>
  104.       <tr>
  105.         <td width="604" height="6" bgcolor="#FFFFFF" valign="middle" colspan="2"><form
  106.         method="post" name="users" action="login.asp">
  107.           <table border="0" cellpadding="0" cellspacing="0" width="600">
  108.             <tr>
  109.               <td align="right" width="20" rowspan="2"><div align="left"><p></td>
  110.               <td align="right" width="81" rowspan="2" valign="top"><font face="Arial" size="2"
  111.               color="#000080"><div align="left"><p></font><font face="Arial" color="#FF0000" size="1"><strong>Level
  112.               1</strong></font><font face="Arial" color="#000080" size="1">:admin, nimda<br>
  113.               </font><font face="Arial" color="#008080" size="1"><strong>Level 2</strong></font><font
  114.               face="Arial" color="#000080" size="1">:guest, guest</font><font face="Arial" size="2"
  115.               color="#000080"></font></td>
  116.               <td align="right" width="81"><% = fontTagStart(2, getSiteFontColor(), N, N, N) %>
  117. <p>User Name:      <% = fontTagEnd(N, N, N) %></td>
  118.               <td width="221"><input type="text" name="user" size="20"></td>
  119.             </tr>
  120.             <tr>
  121.               <td width="81"><div align="right"><p><% = fontTagStart(2, getSiteFontColor(), N, N, N) %>Password:      <% = fontTagEnd(N, N, N) %></td>
  122.               <td width="221"><input type="password" name="pass" size="20"></td>
  123.             </tr>
  124.             <tr>
  125.               <td width="182" valign="top" colspan="3"></td>
  126.               <td width="221"><input type="submit" name="login" value="Login"></td>
  127. <%
  128. else
  129. %>
  130.               <td width="197"><div align="left"><p><br>
  131.                <% = fontTagStart(3, getSiteFontColor(), N, N, N) %> Welcome!<% = fontTagEnd(N, N, N) %></p>
  132.               </div><blockquote>
  133.                 <p><% = fontTagStart(2, getSiteFontColor(), N, N, N) %>You are logged in as <strong><%= user %></strong>. Please choose from one of the links above.</p>
  134.                 <p><br>
  135.                 <br>
  136.                 <br>
  137. <% = fontTagEnd(N, N, N) %><%
  138. end if
  139. %>                </p>
  140.               </blockquote>
  141.               </td>
  142.             </tr>
  143.           </table>
  144.         </form>
  145.         </td>
  146.       </tr>
  147.     </table>
  148.     </td>
  149.   </tr>
  150. </table>
  151. <!---#INCLUDE FILE="../includes/footer.asp"--->
  152.  
  153. <p align="center"><br>
  154. <br>
  155. <br>
  156. </p>
  157. </body>
  158. </html>
  159.