La copia del código es la siguiente:
functionGfv (STR)
GFV = request.form (STR)
Función final
subexecutsql
dimContent: content = gfv ("contenido")
onerrorResumEnext
Conn.Begintrans
conn.execute (contenido)
iferr.number <> 0then
Err.Clear
conn.rollback
conn.close: setconn = nada
CallalertBox ("¡Lo siento! La instrucción SQL se ingresa incorrectamente!", 2)
demás
Conn.Committrans
conn.close: setconn = nada
CallalertBox ("¡Felicitaciones! ¡La ejecución de la declaración SQL se completa!", 2)
endif
Endsub