<%
'***********************************
'Fungsi: formatQueryStr (str)
'Argumen: STR, pernyataan SQL
'Penulis: Alixi
'Tanggal: 2007/7/13
'Deskripsi: format seperti string di SQL
'Contoh: <%= formatQueryStr (str)%>
'***********************************
functionFormatQueryStr (str)
Dimnstr
nstr = str
nstr = ganti (nstr, chr (0), "")
nstr = ganti (nstr, "'", "' '")
nstr = ganti (nstr, "[", "[[]")
nstr = ganti (nstr, "%", "[%]")
formatQueryStr = nstr
fungsi endfungsi
%>