home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / Code / ch33 / InsertRec.ASP < prev    next >
Encoding:
Text File  |  1997-07-08  |  729 b   |  45 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2.  
  3. <HTML>
  4. <HEAD>
  5. <TITLE>ActiveX Data Object (ADO)</TITLE>
  6. </HEAD>
  7. <BODY BGCOLOR=#FFFFFF>
  8. <H3>ActiveX Data Object (ADO)</H3>
  9. <%
  10. Set Conn = Server.CreateObject("ADODB.Connection")
  11. Conn.Open "DSN=PlatVB5;SERVER=SoftCoyote;UID=sa;PWD=wlfhwlfh"
  12. %>
  13. <%
  14. Dim SQLState
  15. %>
  16. <%
  17. SQLState = "INSERT INTO MyTable (Fname, Lname) VALUES ('"
  18. %>
  19. <%
  20. SQLState = SQLState & Request.Form("fname")
  21. %>
  22. <%
  23. SQLState = SQLstate & "', '"
  24. %>
  25. <%
  26. SQLState = SQLState & Request.Form("lname")
  27. %>
  28. <%
  29. SQLState = SQLstate & "')"
  30. %>
  31. <%
  32. Response.Write SQLState
  33. %>
  34. <%
  35. Set RS = Conn.Execute(SQLState)
  36. %>
  37. <P>
  38. Your New Record Has Been Inserted Into The Database
  39. <%
  40. Conn.Close
  41. %>
  42. </TABLE>
  43. </BODY>
  44. </HTML>
  45.