home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / Code / ch39 / SaveCourse.asp < prev    next >
Encoding:
Text File  |  1997-07-14  |  1018 b   |  42 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <html>
  3. <head>
  4. <title>Save Registration Form</title>
  5. </head>
  6. <body bgcolor="#FFFFFF">
  7. <%
  8.  
  9. Set Conn = Server.CreateObject("ADODB.Connection")
  10.  
  11. If Request.Form("Submit") = "Delete" Then
  12.  
  13.     'Delete the Record
  14.  
  15.     SQL = "Delete * From Course Where Course.ID = " & Request.Form("Course_ID")
  16.  
  17.     Conn.Execute SQL
  18.     
  19.     Response.Write "<h1>Record Deleted</h1>"
  20.  
  21. Else
  22.  
  23.     SQL = "Select * From Course Where Course.ID = " & Request.Form("Course_ID")
  24.  
  25.     Set RSCourse = Conn.Execute(SQL)
  26.     
  27.     RSCourse("Category") = Request.Form("Category")
  28.     RSCourse("Title") = Request.Form("Title")
  29.     RSCourse("Number") = Request.Form("Title")
  30.     RSCourse("Description") = Request.Form("Description")
  31.     RSCourse("Audience") = Request.Form("Audience")
  32.     RSCourse("Prerequisites") = Request.Form("Prerequisites")
  33.     RSCourse("Cost") = Request.Form("Cost")
  34.     RSCourse("Duration") = Request.Form("Duration")
  35.     RSCourse.Update
  36.     
  37.     RSCourse.Close
  38.  
  39.     Response.Write "<h1>Record Saved</h1>"
  40.  
  41. %>
  42. </body>
  43. </html>