A cópia do código é a seguinte:
functionGFV (STR)
gfv = request.form (str)
Função final
Subexecutesql
DimContent: Content = GFV ("Content")
OnErrorReSumenext
Conn.Begintrans
Conn.Execute (Conteúdo)
iferr.number <> 0then
err.clear
Conn.Rollback
Conn.Close: setConn = nada
CallalertBox ("Desculpe! Declaração SQL é inserida incorretamente!", 2)
outro
Conn.Committrans
Conn.Close: setConn = nada
CallalertBox ("Parabéns! A execução da declaração SQL está concluída!", 2)
endif
endsub