<%
'*******************************
'Fonction: FormatQueyStr (STR)
'Arguments: STR, instruction SQL
'Auteur: Alixi
'Date: 2007/7/13
'Description: Format comme une chaîne dans SQL
'Exemple: <% = formatQueystr (str)%>
'*******************************
functionformatquerytr (str)
dimnstr
nstr = str
nstr = remplacer (nstr, chr (0), "")
nstr = remplacer (nstr, "'", "' '")
nstr = remplacer (nstr, "[", "[[]")
nstr = remplacer (nstr, "%", "[%]")
FormatQueryStr = NSTR
finition de fin
%>