Main Index ASP Index

ASP Add New Code <% Dim dcnDB 'As ADODB.Connection Dim rsQuery 'As ADODB.Recordset Dim datCurrent Dim datFuture %> <% 'Set dcnDB = Server.CreateObject("ADODB.Connection") 'dcnDB.ConnectionString = _ '"Provider=Microsoft.Jet.OLEDB.4.0;" _ '& "Data Source=d:\inetpub\sisna.com\alisonspantry\pantry.mdb" 'dcnDB.Open Set dcnDB = server.createobject("ADODB.Connection") dcnDB.open "Alisons" Set rsQuery = Server.CreateObject("ADODB.Recordset") rsQuery.Open "SELECT * FROM form", dcnDB, adOpenKeyset, adLockOptimistic Sometimes the above line doesn't work, so use this line below... rsQuery.Open "SELECT * FROM form", dcnDB, 2, 3 datCurrent = Date() datFuture = DateAdd("d", 0, datCurrent) 'on error resume next rsQuery.AddNew rsQuery("LastName") = request.form("txtLastName") rsQuery("FirstName") = request.form("txtFirstName") rsQuery("email") = request.form("txtemail") rsQuery("address") = request.form("txtaddress") rsQuery("city") = request.form("txtcity") rsQuery("state") = request.form("txtstate") rsQuery("zip") = request.form("txtzip") rsQuery("workPhone") = request.form("txtworkPhone") rsQuery("fax") = request.form("txtfax") rsQuery("yesno") = request.form("yesno") rsQuery("date") = datFuture rsQuery("UserName") = request.form("txtUserName") rsQuery("Password") = request.form("txtPassword") rsQuery.Update rsQuery.Close dcnDB.Close %> <center><font face="verdana","arial","helvetica" size="2" color="#"><b> Added</b></font></center>