<% Dim adoCon 'Holds the Database Connection Object Dim rsAddComments 'Holds the recordset for the new record to be added Dim strSQL 'Holds the SQL query to query the database 'Set adoCon = Server.CreateObject("ADODB.Connection") 'adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("blog.mdb") Set rsAddComments = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM rencontres;" rsAddComments.CursorType = 2 rsAddComments.LockType = 3 rsAddComments.Open strSQL, MM_conndw_STRING rsAddComments.AddNew rsAddComments.Fields("pseudo") = Request.Form("pseudo") rsAddComments.Fields("prenom") = Request.Form("prenom") rsAddComments.Fields("sexe") = Request.Form("sexe") rsAddComments.Fields("ville") = Request.Form("ville") rsAddComments.Fields("pays") = Request.Form("pays") rsAddComments.Fields("profession") = Request.Form("profession") rsAddComments.Fields("statut") = Request.Form("statut") rsAddComments.Fields("age") = Request.Form("age") rsAddComments.Fields("taille") = Request.Form("taille") rsAddComments.Fields("poids") = Request.Form("poids") rsAddComments.Fields("cheveux") = Request.Form("cheveux") rsAddComments.Fields("fumeur") = Request.Form("fumeur") rsAddComments.Fields("enfants") = Request.Form("enfants") rsAddComments.Fields("email") = Request.Form("email") rsAddComments.Fields("presentation") = Request.Form("presentation") rsAddComments.Fields("annonce") = Request.Form("annonce") rsAddComments.Update rsAddComments.Close Set rsAddComments = Nothing Set adoCon = Nothing Response.Redirect "rencontres_merci.asp" %>