% ' Name=Request.Form("fName") ' Company=Request.Form("fName2") ' Email=Request.Form("fName3") ' Subject=Request.Form("fName4") ' Message=Request.Form("Message") ' set con=server.CreateObject ("adodb.connection") ' set rs= server.CreateObject ("adodb.recordset") ' connString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 'Server.mapPath("..\Database\siriDB.mdb") ' con.open connString ' rs.Open "select * from ContactUs",con ,2,3 ' '-- ' rs.AddNew ' rs("Name")=Name ' rs("Company")=Company ' rs("Email")=eMail ' rs("Subject")=Subject ' rs("Message")=Message ' '-- ' rs.Update ' set rs=nothing ' set con=nothing %>