<%
Option Explicit
Dim ConnectString
ConnectString = "DSN=EmpsDatabase;User Id=Admin;Password=;"
set Session("RSEmps") = Server.CreateObject("ADODB.Recordset")
Session("RSEmps").CursorType = 1
Session("RSEmps").LockType = 2
Session("RSEmps").Open "tblEmps", ConnectString, , , 2
Session("RSEmps").AddNew
Session("RSEmps")("FirstName") = "Lila"
Session("RSEmps")("LastName") = "Lopez"
Session("RSEmps")("DepartmentID") = 1
Session("RSEmps").Update
%>
