home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 40 / IOPROG_40.ISO / SOFT / asp / SEARCH.ZIP / admin / user_edit.asp < prev   
Encoding:
Text File  |  2000-02-23  |  5.7 KB  |  151 lines
  1. <%
  2. response.buffer=true
  3. Session("back") = Request.ServerVariables("SCRIPT_NAME") 
  4. ' password protect
  5. %>
  6. <!---#INCLUDE FILE="dbthemes.asp"--->
  7. <!---#INCLUDE FILE="users/passprot.asp"--->
  8. <!---#INCLUDE FILE="themes/themes.asp"--->
  9. <!---#INCLUDE FILE="config/config.asp"--->
  10. <!---#INCLUDE FILE="ad/ad.asp"--->
  11. <%
  12.  
  13.       Set connusers = Server.CreateObject("ADODB.Connection")
  14.       connusers.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("./users/admin.mdb") & ";PWD=bideford;"
  15.  
  16.       strsql = "SELECT * FROM tblUser WHERE fldUserName = '" & user & "' AND fldPassword = '" & pass & "'"
  17.       set RS = Server.CreateObject("ADODB.Recordset")
  18.       RS.Open strsql, connusers, 1, 2 
  19. If NOT RS.EOF then
  20.  
  21. user = RS("fldUserName")
  22. pass = RS("fldPassword")
  23. level = RS("fldlevel")
  24. session("level") = level
  25. end if
  26.  
  27. RS.close
  28.  
  29. if level = "1" then
  30. %>
  31. <html>
  32.  
  33. <head><%
  34. 'these meta tags can change
  35. %>
  36.  
  37. <meta name="AUTHOR"
  38. content="Rory Knowles - ASP bahamas / Administrator for Knowles Realty's Web Site at www.KnowlesRealty.com">
  39. <meta name="GENERATOR" content="Microsoft FrontPage 3.0">
  40. <meta name="KEYWORDS"
  41. 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">
  42. <%
  43. 'keep these meta tags in for free distribution
  44. 'these are the distributors ad tags
  45. %>
  46. <meta http-equiv="ad1" content="<%= ad1 %>">
  47. <meta http-equiv="ad2" content="<%= ad2 %>">
  48. <meta http-equiv="ad3" content="<%= ad3 %>">
  49. <meta http-equiv="ad4" content="<%= ad4 %>">
  50. <style>
  51. <!--
  52.     SPAN {color:<%= getSiteFontColor() %>; background-color:<%= getSiteHighliteColor() %>}
  53. -->
  54. </style>
  55. <title>User Adminstration - <%= title %></title>
  56. </head>
  57.  
  58. <body vlink="<%= getSiteBGVlink() %>" bgcolor="<%= getSiteBGColor() %>"
  59. link="<%= getSiteBGLink() %>">
  60. <!---#INCLUDE FILE="includes/headernorm.asp"--->
  61.  
  62. <table border="0" width="600" cellspacing="0" cellpadding="0" align="center">
  63.   <tr>
  64.     <td width="100%" valign="top" height="277"><table border="0" cellpadding="0"
  65.     cellspacing="0" width="600">
  66.       <tr>
  67.         <td width="100%" height="19" bgcolor="<%= getSiteTitleNameBGColor() %>" valign="middle"
  68.         colspan="2"><% = fontTagStart(3, getSiteFontColor(), Y, N, N) %>
  69. <p>  <%= titlename %><% = fontTagEnd(Y, N, N) %> </td>
  70.       </tr>
  71.       <tr>
  72.         <td height="19" bgcolor="<%= getSiteMainLinksBGColor() %>" valign="middle" width="305"><% = fontTagStart(2, getSiteFontColor(), Y, N, N) %>  <a href="addurl.asp">Add URL</a> | <a href="editurl.asp">Edit URL</a> | <a 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 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%> 
  74.  
  75. </td>
  76.       </tr>
  77.       <tr>
  78.         <td width="600" height="62" bgcolor="#FFFFFF" valign="middle" colspan="2"><!---#INCLUDE FILE="includes/banners.asp"---> </td>
  79.       </tr>
  80.       <tr>
  81.         <td width="600" bgcolor="<%= getSitePageNameBGColor() %>" valign="middle" colspan="2"><% = fontTagStart(3, getSitePageNameFontColor(), Y, N, N) %>
  82. <p> 
  83.         Users<% = fontTagEnd(Y, N, N) %></td>
  84.       </tr>
  85.       <tr>
  86.         <td colspan="2" bgcolor="#FFFFFF" height="18">
  87.  
  88. <%
  89. If Request("change")<>"" Then
  90.     SQL = "UPDATE tblUser SET fldUsername = '" & Request("UserName") & "', fldPassword='" & Request("Password") & "', fldlevel='" & Request("level")  & "' WHERE fldAuto=" & cINT(Request("id"))
  91.     connusers.Execute(SQL)
  92.     response.redirect "user_control.asp"
  93. End If
  94. %>
  95. <dir>
  96. <%
  97. SQL = "SELECT * FROM tblUser WHERE fldAuto=" & cINT(Request.QueryString("id"))
  98. Set objRec = connusers.Execute(SQL)
  99. %>
  100.   <form action="user_edit.asp" method="post">
  101.     <input type="hidden" name="id" value="<%=Request.QueryString("id")%>"><div align="center"><center><table>
  102.       <tr>
  103.         <td colspan="2"><div align="center"><center><p><font face="arial" size="3"><br><b>Change User
  104.         Info & Access</b></font><br>
  105.         </td>
  106.       </tr>
  107.       <tr align="center">
  108.         <td><font face="arial" size="2" color="navy"><b>Username:</b></font></td>
  109.         <td><input type="text" name="UserName" value="<%=objRec("fldUserName")%>" size="20"></td>
  110.       </tr>
  111.       <tr align="center">
  112.         <td><font face="arial" size="2" color="navy"><b>Password:</b></font></td>
  113.         <td><input type="text" name="Password" value="<%=objRec("fldPassword")%>" size="20"></td>
  114.       </tr>
  115.       <tr align="center">
  116.         <td><font face="arial" size="2" color="navy"><b>level:</b></font></td>
  117.         <td><input type="text" name="level" value="<%=objRec("fldlevel")%>" size="20"></td>
  118.       </tr>
  119.       <tr align="center">
  120.         <td colspan="2"><div align="center"><center><p><input type="submit" value="Change User"
  121.         name="change"></td>
  122.       </tr>
  123.     </table>
  124.     </center></div>
  125.   </form>
  126. </dir>
  127.  
  128. </td>
  129.       </tr>
  130.     </table>
  131.     </td>
  132.   </tr>
  133. </table>
  134. <!---#INCLUDE FILE="../includes/footer.asp"--->
  135.  
  136. <p><br>
  137. </p>
  138. <%
  139. else
  140. response.write "<br><br><br><b><center>Sorry, this utility is for level 1 administrators only!</b><br>Please go to the <a href=admin.asp>admin page</a> and login with level 1 privaleges.</center>"
  141. end if
  142. %>
  143.  
  144. </body>
  145. </html>
  146. <%
  147. connusers.close
  148. set connusers=nothing
  149. end if
  150. %>
  151.