La copie de code est la suivante:
functiongfv (str)
gfv = request.form (str)
finition de fin
subexectuesql
DimContent: Content = GFV ("Content")
onerrorresumenext
Conn.begintrans
Conn.execute (contenu)
iFerr.Number <> 0THEN
err.Clear
Conn.rollback
Conn.Close: setConn = rien
CalliertBox ("Désolé! L'instruction SQL est incorrectement entrée!", 2)
autre
Conn.CommitTrans
Conn.Close: setConn = rien
CallalertBox ("Félicitations! L'exécution de l'instruction SQL est terminée!", 2)
endire
fin