home *** CD-ROM | disk | FTP | other *** search
- <%@ LANGUAGE="VBSCRIPT" %>
- <html>
- <head>
- <title>Save Registration Form</title>
- </head>
- <body bgcolor="#FFFFFF">
- <%
-
- Set Conn = Server.CreateObject("ADODB.Connection")
-
- If Request.Form("Submit") = "Delete" Then
-
- 'Delete the Record
-
- SQL = "Delete * From Course Where Course.ID = " & Request.Form("Course_ID")
-
- Conn.Execute SQL
-
- Response.Write "<h1>Record Deleted</h1>"
-
- Else
-
- SQL = "Select * From Course Where Course.ID = " & Request.Form("Course_ID")
-
- Set RSCourse = Conn.Execute(SQL)
-
- RSCourse("Category") = Request.Form("Category")
- RSCourse("Title") = Request.Form("Title")
- RSCourse("Number") = Request.Form("Title")
- RSCourse("Description") = Request.Form("Description")
- RSCourse("Audience") = Request.Form("Audience")
- RSCourse("Prerequisites") = Request.Form("Prerequisites")
- RSCourse("Cost") = Request.Form("Cost")
- RSCourse("Duration") = Request.Form("Duration")
- RSCourse.Update
-
- RSCourse.Close
-
- Response.Write "<h1>Record Saved</h1>"
-
- %>
- </body>
- </html>