INSERT DANS UNE BASE DE DONNEES

'création de lobjet de connection
Set oConn = Server.CreateObject("ADODB.connection")

'Chaine de connection
ChConn = "DSN=VotreDSN;UID=VotreUID;PWD=VotreUID;"

'Connection à la base de données
oConn.Open ChConn

'Ecriture de la requete pour la table Adhesion
Req = "INSERT INTO VotreTable (Champ1, Champ2,...) "
Req = Req & "VALUES (Valeur1, Valeur2,...)"
    
'Création du RecordSet
Set oRst = Server.CreateObject("ADODB.Recordset") 
 
'pour la surveillance d'erreur
on error resume next

'Ouverture du recorset et execution de la requete sql
oRst.Open Req,oConn 

'Fermeture et destruction du recordset
oRst.close
Set oRst = Nothing

'Affichage de l'erreur
If Err Then
       Response.write Err.description
   Else
        Response.write "Cet enregistrement a bien été ajouter"
End If

'J arrete toute surveillance d'erreur
on error goto 0