home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / aspgue1a / administ.asp next >
Encoding:
Text File  |  1999-09-22  |  5.6 KB  |  175 lines
  1. <html>
  2. <head>
  3. <title>Guestbook Administration</title>
  4. <!-- scripting , html copyright 1998 Kathi O'Shea ------->
  5. <!-- email info@web-savant for custom web development --->
  6. <!-- see readme.txt in zip file for modification and ---->
  7. <!-- redistribution info -------------------------------->
  8. </head>
  9. <body bgcolor="#ffffff">
  10. <center>
  11. <font face="times new roman">
  12. <h1><i>Guestbook Administration</i></h1>
  13. </font>
  14. <br>
  15. <%
  16. Flag = request.form("Flag")
  17. Select Case Flag
  18.     Case 0
  19.         Flag = Flag + 1
  20. %>
  21. <table width=300 border=0 cellpadding=10>
  22.   <tr>
  23.     <td width=100>
  24.     <form method="post" action="administration.asp">
  25.     <font face="arial" size=2>
  26.     <b>UserID</b>
  27.     </td>
  28.     
  29.     <td width=200><input type="text" name="userid"></td>
  30.   </tr>
  31.   
  32.   <tr>
  33.     <td width=100><font face="arial" size=2>
  34.     <b>Password:</b>
  35.     </td>
  36.     
  37.     <td width=200><input type="text" name="password"></td>
  38.   </tr>
  39.   
  40.   <tr>
  41.     <td width=100> </td>
  42.     <td width=200 align="center">
  43.     <input type='hidden' name="flag" value="<%= Flag %>">
  44.     <input type="submit" value="Submit"> <input type="reset">
  45.     </td>
  46.   </tr>
  47. </table>
  48.   
  49. <%
  50.     Case 1
  51.         UserID = request.form("userid")
  52.         Password = request.form("password")
  53.         ' **** be sure to change "admin" and "password" 
  54.         ' **** to your choice of userid and password
  55.         If UserID <> "admin" OR Password <> "password" then
  56.             response.write "<font face='arial' color='red'>"
  57.             response.write "Invalid login. Please try again.</font>"
  58.         Else
  59.             set conn = server.createobject("adodb.connection")
  60.     ' BEGIN DSN-less connection - comment out or delete if using a DSN
  61.     DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
  62.     DSNtemp=dsntemp & "DBQ=" & server.mappath("guestbook.mdb")
  63.     conn.Open DSNtemp
  64.     ' END DSN-less connection - uncomment the next line if using DSN!
  65.     ' conn.open "guestbook" 
  66.                 sqlstmt = "SELECT * from Guestbook Order by PostDate Desc"
  67.               Set RS = conn.execute(sqlstmt)
  68.               If rs.eof then
  69.                   response.write "<center>There are no records in the database"
  70.                   response.write "<br>Please check back later</center>"
  71.                   response.end
  72.             End If
  73.             response.write "<table width=500 border=0>"
  74.             response.write "<tr><td colspan=4 align='center'>"
  75.             response.write "<font face='arial' size=3><b>"
  76.             response.write "Delete Records</b><br></font></td></tr>"
  77.             response.write "<form action='administration.asp' method='post'>"
  78.  
  79.                  Do while not rs.eof
  80.                   ' The database has an autonumber field set as
  81.                   ' the primary key, so we will use that field
  82.                   ' to specify which record we want to modify
  83.                   ID = rs("ID")
  84.                   Name = rs("Name")
  85.                   City = rs("City")
  86.                   Country = rs("Country")
  87.   %>
  88.   <tr>
  89.     <td width=15>
  90.     <input type="checkbox" name="ID" value="<%= ID %>">
  91.     </td>
  92.     
  93.     <td width=185>
  94.     <font face="arial">
  95.     <%= Name %></a>
  96.     </font>
  97.     </td>
  98.     <td width=200><font face="arial"><%= City %></font></td>
  99.     <td width=100><font face="arial"><%= Country %></font></td>
  100.   </tr>
  101.   <%
  102.                rs.MoveNext
  103.                  loop 
  104.   %>
  105.     <tr>
  106.     <td colspan=4 align="center">
  107.     <br><br>
  108.     <input type='hidden' name="UserID" value="<%= UserID %>">
  109.     <input type='hidden' name="Password" value="<%= Password %>">
  110.     <input type='hidden' name='Flag' value='2'>
  111.     <input type="submit" value="Delete Record">
  112.     </form>
  113.     </td>
  114.   </tr>
  115. <%
  116.           End If
  117.     Case 2
  118.         If IsEmpty(request.form("ID")) then
  119.             response.write "<font face='arial' size=3 color='red'>"
  120.             response.write "Oops! You have to check a "
  121.             response.write "box for this to work!"
  122.             response.write "<br>Please hit your Back"
  123.             response.write " button and try again."
  124.             response.end
  125.         End If
  126.         set rs = nothing
  127.         ID = request.form("ID")
  128.         UserID = request.form("UserID")
  129.         Password = request.form("Password")
  130.         set conn = server.createobject("adodb.connection")
  131.         ' AS ABOVE, change path to guestbook if needed or delete
  132.         ' the dsn-less connection and use a DSN
  133.         DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
  134.         DSNtemp=dsntemp & "DBQ=" & server.mappath("/guestbook.mdb")
  135.         conn.Open DSNtemp
  136.         For each record in request("ID")
  137.             sqlstmt = "DELETE * from Guestbook WHERE ID=" & record
  138.             Set RS = conn.execute(sqlstmt)
  139.         Next
  140.  
  141.     If err.number>0 then
  142.            response.write "VBScript Errors Occured:" & "<P>"
  143.         response.write "Error Number=" & err.number & "<P>"
  144.         response.write "Error Descr.=" & err.description & "<P>"
  145.         response.write "Help Context=" & err.helpcontext & "<P>" 
  146.         response.write "Help Path=" & err.helppath & "<P>"
  147.         response.write "Native Error=" & err.nativeerror & "<P>"
  148.         response.write "Source=" & err.source & "<P>"
  149.         response.write "SQLState=" & err.sqlstate & "<P>"
  150.        end if
  151.        IF conn.errors.count> 0 then
  152.         response.write "Database Errors Occured" & "<P>"
  153.         response.write SQLstmt & "<P>"
  154.            for counter= 0 to conn.errors.count
  155.             response.write "Error #" & conn.errors(counter).number & "<P>"
  156.             response.write "Error desc. -> " & conn.errors(counter).description & "<P>"
  157.            next
  158.        else
  159.             response.write "<font face='arial' size=4><b>"
  160.             response.write "The record has been deleted.</b></font>"
  161.             response.write "<form action='administration.asp' method='post'>"
  162.             response.write "<input type='hidden' name='flag' value='1'>"
  163.             response.write "<input type='hidden' name='UserID' value='" & UserID& "'>"
  164.             response.write "<input type='hidden' name='Password' value='" & Password & "'>"
  165.             response.write "<input type='submit' value='Back to Administration List'>"
  166.             response.write "</form>"
  167.            end if
  168. End Select
  169. set rs = nothing
  170. set conn = nothing
  171. %>
  172. </table>
  173. </center>
  174. </body>
  175. </html>