<%
Dim DB
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + "STUDENTS.MDB")
Dim RS
Set RS = Server.CreateObject ("ADODB.Recordset")
RS.Open "Students", DB, adOpenStatic, adLockPessimistic
RS.AddNew
RS("FirstName") = Request.Form ("FirstName")
RS("LastName") = Request.Form ("LastName")
RS.Update
%>