Die Codekopie lautet wie folgt:
functionGFV (STR)
gfv = request.form (str)
Endfunktion
subexecutesql
DimContent: content = gfv ("Inhalt")
onErrorresumeNext
Conn.Begintrans
conn.execute (Inhalt)
Ifr.number <> 0Then
err.clear
Conn.Rollback
conn.close: setConn = nichts
Callalertbox ("Entschuldigung! SQL -Anweisung wird falsch eingegeben!", 2)
anders
Conn.Committrans
conn.close: setConn = nichts
Callalertbox ("Herzlichen Glückwunsch! Die Ausführung der SQL -Erklärung ist abgeschlossen!", 2)
Endif
Ende