<% ' Path long de la base de données dbPath = Server.MapPath("mabase.mdb") ' Création de l'objet permettant la connexion Set Conn = Server.CreateObject("ADODB.Connection") ' Connexion Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" _ & " DBQ=" & dbPath URL = request.ServerVariables("SCRIPT_NAME") ' Si le champ "email" n'est pas vide if Request.form("email") <> "" then ' on ajoute la fiche SQL="SELECT * FROM [MA_TABLE]" Set RS = server.createobject("ADODB.Recordset") RS.Open SQL,Conn , 3, 3 RS.addnew RS("NOM")=Request.form("nom") RS("EMAIL")=Request.form("email") RS.update ' et on prépare le message à afficher message="Fiche " & Request.form("nom") _ & " - " & Request.form("email") & " ajoutée !" end if %> <HTML><HEAD><TITLE>Exemple</TITLE> <script language="JavaScript"><!-- function verif(email) { // Email valide ? var arobase = email.indexOf("@") var point = email.lastIndexOf(".") if((arobase < 3)||(point + 2 > email.length) ||(point < arobase+3)) return false return true } function test(nom,mail) { // Vérifie le formulaire if(nom.value=="") { alert('Nom requis !') nom.focus();return false } if(!verif(mail.value)) { alert('Email invalide !') mail.focus();return false } return true // envoie les champs } //--></script> </HEAD> <center> <% =message %> <form method="post" action="<%=URL%>" onSubmit="return test(this.nom,this.email)"> <table>----, Nom