Salinan kode adalah sebagai berikut:
functionGFV (str)
gfv = request.form (str)
fungsi endfungsi
subexecutesql
Dimcontent: Content = GFV ("Content")
OnerrorresumeNext
Conn.Begintrans
Conn.Execute (konten)
iferr.number <> 0then
err.clear
Conn.rollback
Conn.Close: setConn = tidak ada
Callalertbox ("Maaf! Pernyataan SQL dimasukkan secara tidak benar!", 2)
kalau tidak
Conn.Committrans
Conn.Close: setConn = tidak ada
callalertbox ("Selamat! Eksekusi pernyataan SQL selesai!", 2)
endif
endsub