<%
function escape_string(str)
str = replace(str,"'","''")
arrHTMLs = array("script","frame","alert","meta","embed","","/ >")
temp = lcase(str)
for i = 0 to ubound(arrHTMLs)
if instr(temp,arrHTMLs(i)) > 0 then
str = ""
exit for
end if
next
escape_string=str
end function
%>
<%
function escape_string(str)
str = replace(str,"'","''")
arrHTMLs = array("script","frame","alert","meta","embed","","/ >")
temp = lcase(str)
for i = 0 to ubound(arrHTMLs)
if instr(temp,arrHTMLs(i)) > 0 then
str = ""
exit for
end if
next
escape_string=str
end function
%>