home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / Code / ch39 / savereg.asp < prev    next >
Encoding:
Text File  |  1997-07-14  |  1.2 KB  |  47 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <html>
  3. <head>
  4. <title>Save Registration Form</title>
  5. </head>
  6. <%
  7.  
  8.  
  9. Set conn = Server.CreateObject("ADODB.Connection")
  10.  
  11.  
  12. Conn.Open "DSN=LocalTraining"
  13.  
  14.  
  15. Set cmdTemp = Server.CreateObject("ADODB.Command")
  16.  
  17. Set RSSave = Server.CreateObject("ADODB.Recordset")
  18.  
  19.  
  20. cmdTemp.CommandText = "SELECT registration.* FROM registration"
  21.  
  22. cmdTemp.CommandType = 1
  23.  
  24.  
  25. Set cmdTemp.ActiveConnection = Conn
  26.  
  27.  
  28. RSSave.Open cmdTemp, , 1, 3
  29.  
  30.  
  31. %>
  32. <body bgcolor="#FFFFFF">
  33.  
  34. <%    
  35.  
  36.  
  37.  
  38.     RSSave.AddNew
  39.  
  40.     RSSave("Course_Name") = Request.Form("Course_Name")
  41.  
  42.     RSSave("Course_Date") = Request.Form("Course_Date")
  43.  
  44.     RSSave("Name") = Request.Form("Name")
  45.  
  46.     RSSave("Organization") = Request.Form("Organization")
  47.  
  48.     RSSave("Position") = Request.Form("Position")
  49.  
  50.     RSSave("Address") = Request.Form("Address")
  51.  
  52.     RSSave("City") = Request.Form("City")
  53.  
  54.      RSSave("Postal Code") = Request.Form("Postal Code")
  55.  
  56.     RSSave("Email") = Request.Form("Email")
  57.  
  58.     RSSave("Phone") = Request.Form("Phone")
  59.  
  60.     RSSave("Fax") = Request.Form("Fax")
  61.  
  62.     RSSave("TimeRegistered")=Now()
  63.  
  64.     RSSave.Update
  65.  
  66.  
  67.  
  68. %>
  69. <h1>Registration Saved Successfully...</h1>
  70.  
  71. <h3>Click here to return to the <a href="default.asp">Training Page</a></h3>
  72. </body>
  73. </html>