Кода -копия выглядит следующим образом:
functionGfv (str)
gfv = request.form (str)
конечная функция
Subexecutesql
DimContent: Content = GFV ("Content")
OnerRorResumenext
Conn.BeginTrans
conn.execute (content)
iferr.number <> 0then
err.clear
Conn.rollback
conn.close: setConn = ничего
Callalertbox («Извините! Странство SQL введено неправильно!», 2)
еще
conn.committrans
conn.close: setConn = ничего
Callalertbox («Поздравляю! Выполнение оператора SQL завершено!», 2)
эндиф
заканчивая