Adding database record using VBScript: Return to List

' Code below adds record to database using recordset
' NOTE: We'll assume connection object already created

  <%
  
Dim strSQL
  
Dim RS
  
strSQL = "Select * from Orders"
  
Set RS = Server.CreateObject("ADODB.Recordset")
  
RS.Open strSQL, conn, adOpenKeyset, adLockOptimistic
  
RS.AddNew
  
RS.Fields("CustomerID") = "ALFKI"
  
RS.Fields("OrderDate") = Date
  
RS.Update
  
OrderID = RS.Fields("OrderID")
  
Response.write "Order " & OrderID & " added successfully."
  
RS.Close
  
Set RS= Nothing
  
%>