Adding A Record

Code Only

<% Option Explicit
Dim myConn

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};Dbq=" & server.mappath("/ASP101/DB/UsingDatabases.mdb") & ";"

myConn.Open %>
<!--#include virtual="adovbs.inc"--> <%
Dim myRS
Set myRS = Server.CreateObject("ADODB.Recordset")
myRS.Open "Employees", myConn, , adLockOptimistic, adCmdTable
%>
<form method="post" action="adding-record1.asp">
<table width="345">
<tr>
<td width="117">
First Name </td>
<td width="216">
<input type="text" name="FirstName"/>
</td>
</tr>
<tr>
<td>
Last Name
</td>
<td>
<input type="text" name="LastName"/>
</td>
</tr>
<tr>
<td>
Title
</td>
<td>
<input type="text" name="Title"/>
</td>
</tr>
<tr>
<td>
</td>
<td>

<div align="right">
<input type="submit" name="submit" value="submit" />
</div></td></tr></table>
</form>
<%

if (Request.Form("submit") ="submit") Then

myRS.AddNew

myRS("FirstName") = Request.Form("FirstName")
myRS("LastName") = Request.Form("LastName")
myRs("Title") = Request.Form("Title")

myRS.Update

Response.Write("Thank You <br /> You Have Enterd ")
Response.Write myRS("FirstName")
Response.Write(" For First Name<br/> You Have Enterd ")
Response.Write myRS("LastName")
Response.Write(" For Last Name<br/> You Have Enterd ")
Response.Write myRs("Title")
Response.Write(" For Title<br/> ")

End If

myRS.Close
Set myRS = Nothing

myConn.Close
Set myConn = Nothing
%>