<script language="VBScript">

Dim objRS, aConnectionString, DBObj 

aConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Documents and Settings\Administrator.VFI\My Documents\MyRequest.mdb" 
Set DBObj=Server.CreateObject("ADODB.Connection")
DBObj.ConnectionString = aConnectionString
DBObj.Open
SQLQuery = "INSERT * FROM MyRequest1"
Set objRS=DBObj.Execute(SQLQuery)

objRS.AddNew
objRS.Fields("Requestor") = Request.Form("Requestor")
objRS.Fields("Department") = Request.Form("Department")
objRS.Fields("Date") = Request.Form("Date")
objRS.Fields("Deadline") = Request.Form("Deadline")
objRS.Fields("Status") = Request.Form("Status")
objRS.Fields("Particulars") = Request.Form("Particulars")
objRS.Fields("Comments") = Request.Form("Comments")
objRS.Update
objRS.Close
Set objRS = nothing
objConn.Close
Set objConn = nothing
</SCRIPT>