<% Option Explicit %>
NewUser1.asp
<%
Dim Connection, UserRecordSet, Query
Set Connection = Server.CreateObject ("ADODB.Connection")
Connection.Open "Security"
Set UserRecordSet = Server.CreateObject ("ADODB.Recordset")
Connection.BeginTrans
Query = "SELECT * FROM USERS"
UserRecordSet.Open Query, Connection, adOpenStatic, adLockOptimistic
UserRecordSet.AddNew
UserRecordSet ("Name") = "Paul"
UserRecordSet ("No")= 5
UserRecordSet ("Password") = "Dr. Theory"
UserRecordSet.Update
Connection.CommitTrans
UserRecordSet.Close
Connection.Close
%>
Add User Results! - Added Paul - Dr. Theory - 5 - NewUser1.asp
Dr. Thomas E. Hicks
Trinity University
The Database Is Now Updated! You Have Successfully Added Paul!