AddNew Method Example (VBScript)

This example uses the AddNew method to create a new record with the specified name.

Use the following example in an Active Server Page (ASP). Use Find to locate the file Adovbs.inc and place it in the directory you plan to use. Cut and paste the following code to Notepad or another text editor, and save it as AddNewVBS.asp. You can view the result in any client browser.

To exercise the example, add a new record in the HTML form. Click Add New. See the Delete Method Example to remove unwanted records.

<!-- BeginAddNewVBS -->
<%@Language = VBScript %>
<%' use this meta tag instead of adovbs.inc%>
<!--METADATA TYPE="typelib" uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<HTML>
<HEAD>
   <TITLE>ADO AddNew Method (VBScript)</TITLE>
   <STYLE>
   <!--
   body {
      font-family: 'Verdana','Arial','Helvetica',sans-serif;
      BACKGROUND-COLOR:white;
      COLOR:black;
       }
   TH {
      background-color: #008080; 
      font-family: 'Arial Narrow','Arial',sans-serif; 
      font-size: xx-small;
      color: white;
      }
   TD { 
      text-align: center;
      background-color: #f7efde;
      font-family: 'Arial Narrow','Arial',sans-serif; 
      font-size: xx-small;
       }
   -->
   </STYLE>
</HEAD>
<BODY> 

<H1>ADO AddNew Method (VBScript)</H1>

<% ' to integrate/test this code replace the 
   ' Data Source value in the Connection string%>
<% 
   ' connection and recordset variables
   Dim Cnxn, strCnxn
   Dim rsCustomers, strSQLCustomers
   Dim fld, Err

   ' open connection
    Set Cnxn = Server.CreateObject("ADODB.Connection")
    strCnxn = "Provider=sqloledb;Data Source=MyServer;Initial Catalog=northwind;User Id=sa;Password=;"
    Cnxn.Open strCnxn
      
    ' create and open Recordset using object refs
   Set rsCustomers = Server.CreateObject("ADODB.Recordset")
   strSQLCustomers = "Customers"
   
   rsCustomers.ActiveConnection = Cnxn
   rsCustomers.CursorLocation = adUseClient
   rsCustomers.CursorType = adOpenKeyset
   rsCustomers.LockType = adLockOptimistic
   rsCustomers.Source = strSQLCustomers
   rsCustomers.Open

   'If this is first time page is open, Form collection
   'will be empty when data is entered. run AddNew method
   If Not IsEmpty(Request.Form) Then
      If Not Request.Form("CompanyName") = "" Then
         rsCustomers.AddNew
            rsCustomers("CustomerID") = Request.Form("CompanyID")
            rsCustomers("CompanyName") = Request.Form("CompanyName")
            rsCustomers("ContactName") = Request.Form("FirstName") & _
               " " & Request.Form("LastName")
            rsCustomers("Phone") = Request.Form("PhoneNumber")
            rsCustomers("City") = Request.Form("City")
            rsCustomers("Region") = Request.Form("State")
         rsCustomers.Update
          ' check for errors
         If Cnxn.Errors.Count > 0 Then
            For Each Err In Cnxn.Errors
               Response.Write("Error " & Err.SQLState & ": " & _
                  Err.Description & " | " & Err.NativeError)
            Next
         Cnxn.Errors.Clear
         rsCustomers.CancelUpdate
         End If
         'On Error GoTo 0
      rsCustomers.MoveFirst
      End If
   End If
%>

<TABLE COLSPAN="8" CELLPADDING=5 BORDER=1 ALIGN="center">
<!-- BEGIN column header row for Customer Table-->
   <TR>
      <TH>Customer ID</TH>
      <TH>Company Name</TH>
      <TH>Contact Name</TH>
      <TH>Phone Number</TH>
      <TH>City</TH>
      <TH>State/Province</TH>
      </TR>
      
   <% ' show the data
      Do Until rsCustomers.EOF
         Response.Write("<TR>")
         Response.Write("<TD>" & rsCustomers("CustomerID") & "</TD>")
         Response.Write("<TD>" & rsCustomers("CompanyName")& "</TD>")
         Response.Write("<TD>" & rsCustomers("ContactName") & "</TD>")
         Response.Write("<TD>" & rsCustomers("Phone") & "</TD>")
         Response.Write("<TD>" & rsCustomers("City") & "</TD>")
         Response.Write("<TD>" & rsCustomers("Region") & "</TD>")
         Response.Write("</TR>")
      rsCustomers.MoveNext 
      Loop 
   %>
</TABLE> 

<HR>

<!--
   Form to enter new record posts variables
   back to this page
-->
<FORM Method=post Action="AddNewVbs.asp" Name=Form>
   <TABLE>
      <TR>
         <TD>Company ID:</TD>
         <TD><INPUT Size="5" Name="CompanyID" maxLength=5  ></TD>
      </TR>
      <TR>
         <TD>Company Name:</TD>
         <TD><INPUT Size="50" Name="CompanyName" ></TD>
      </TR>
      <TR>
         <TD>Contact First Name:</TD>
         <TD><INPUT Size="50" Name="FirstName" ></TD>
      </TR>
      <TR>
         <TD>Contact Last Name:</TD>
         <TD><INPUT Size="50" Name="LastName" ></TD>
      </TR>
      <TR>
         <TD>Contact Phone:</TD>
         <TD><INPUT Size="50" Name="PhoneNumber" ></TD>
      </TR>
      <TR>
         <TD>City:</TD>
         <TD><INPUT Size="50" Name="City" ></TD>
      </TR>
      <TR>
         <TD>State / Province:</TD>
         <TD><INPUT Size="5" Name="State" ></TD>
      </TR>
      <TR>
         <TD Align="right"><INPUT Type="submit" Value="Add New"></TD>
         <TD Align="left"><INPUT Type="reset" Value="Reset Form"></TD>
      </TR>
   </TABLE>
</FORM>

<%
    ' show connection
   Response.Write(Cnxn)
%>

<SCRIPT Language = "VBScript">
Sub Form_OnSubmit
   MsgBox "Sending New Record to Server",,"ADO-ASP _Example"
End Sub
</SCRIPT>
</BODY>
</HTML>
<!-- EndAddNewVBS -->

AddNew Method Example (VBScript)

See Also