<%
'**********************************
'Función: Formatequerystr (STR)
'Argumentos: Str, declaración de SQL
'Autor: Alixi
'Fecha: 2007/7/13
'Descripción: Formato como cadena en SQL
'Ejemplo: <%= formatequerystr (str)%>
'**********************************
functionFormAtQuerystr (STR)
dimnstr
nstr = str
nstr = reemplazar (nstr, chr (0), "")
nstr = reemplazar (nstr, "'", "' '")
nstr = reemplazar (nstr, "[", "[[]")
nSTR = reemplazar (NSTR, "%", "[%]")
formatquerystr = nstr
Función final
%>