- '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 = "UPDATE VotreTable SET Champ1 = Valeur1, Champ2 = Valeur2 "
- Req = Req & "WHERE Champ3 = Valeur3"
-
- 'Création du RecordSet
- Set oRst = Server.CreateObject("ADODB.Recordset")
-
- 'Surveillance des erreurs
- 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
-
- 'Dans le <body>
- if err then
- response.write err.description
- end if
-
- 'Fin de la gestion des erreurs
- on error goto 0
'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 = "UPDATE VotreTable SET Champ1 = Valeur1, Champ2 = Valeur2 "
Req = Req & "WHERE Champ3 = Valeur3"
'Création du RecordSet
Set oRst = Server.CreateObject("ADODB.Recordset")
'Surveillance des erreurs
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
'Dans le <body>
if err then
response.write err.description
end if
'Fin de la gestion des erreurs
on error goto 0