%@LANGUAGE="VBSCRIPT"%> <% Function SQLSAFE(unsafestring) dim safestring safestring = unsafestring safestring = replace( safestring, "'", "" ) safestring = replace( safestring, """", "" ) safestring = replace( safestring, ")", "" ) safestring = replace( safestring, "(", "" ) safestring = replace( safestring, ";", "" ) safestring = replace( safestring, "-", "" ) safestring = replace( safestring, "|", "" ) safestring = replace( safestring, "<", "" ) safestring = replace( safestring, ">", "" ) safestring = replace( safestring, "\n", "" ) safestring = replace( safestring, vbcrlf, "" ) safestring = replace( safestring, "%", "" ) safestring = replace( safestring, "-", "" ) safestring = replace( safestring, "@", "" ) safestring = replace( safestring, "$", "" ) safestring = replace( safestring, "DECLARE", "" ) SQLSAFE = safestring End Function %>