home *** CD-ROM | disk | FTP | other *** search
/ Dynamic HTML Construction Kit / Dynamic HTML Construction Kit.iso / source_code / dhtmlunl / dhtml.exe / CD Content / Chap20 / dun20_2.txt < prev    next >
Encoding:
Text File  |  1997-12-18  |  800 b   |  27 lines
  1. <html><head><title>Submit Changes</title></head>
  2.  
  3. <body>
  4.  
  5. <%set conn = server.createobject("ADODB.connection")
  6.  
  7. conn.open "DSN=Cards"
  8.  
  9.  
  10.  
  11. set rs = Server.createobject("ADODB.recordset")
  12.  
  13. rs.open "Select * from Cards where CardID = " + request("CardID"), conn, 1, 2, 1
  14.  
  15.  
  16.  
  17. rs("Year") = request("Year")
  18.  
  19. rs("Issuer") = request("Issuer")
  20.  
  21. rs("SetName") = request("SetName")
  22.  
  23. rs("CardNumber") = request("CardNumber")
  24.  
  25. rs("Description") = request("Description")
  26.  
  27. rs("Grade") = request("Grade")
  28.  
  29. rs("Value") = request("Value")
  30.  
  31.  
  32.  
  33. on error resume next
  34.  
  35. rs.Update
  36.  
  37.  
  38.  
  39. if err then %>
  40.  
  41. <h2 align="center">An error occurred updating the database:</h2>
  42.  
  43. <h3 align="center"><%= err.description %></h3>
  44.  
  45. <% else %>
  46.  
  47. <h2 align="center">Updates successful!</h2>
  48.  
  49. <% end if %>
  50.  
  51. </body></html>
  52.  
  53.