การคัดลอกรหัสมีดังนี้:
functiongfv (str)
gfv = request.form (str)
endfunction
subexecutesql
DimContent: content = gfv ("เนื้อหา")
onerrorresumenext
conn.begintrans
conn.execute (เนื้อหา)
iferr.number <> 0 แล้ว
err.lear
conn.rollback
conn.close: setConn = ไม่มีอะไร
callalertbox ("ขออภัย! คำสั่ง SQL ถูกป้อนไม่ถูกต้อง!", 2)
อื่น
Conn.CommitTrans
conn.close: setConn = ไม่มีอะไร
callalertbox ("ขอแสดงความยินดี! การดำเนินการของคำสั่ง SQL เสร็จสมบูรณ์!", 2)
endif
enddub