Function to filter uncivilized characters in asp program
<%
Function cutbadchar(str)
badstr = uncivilized | characters | characters | columns | tables | formats
badword=split(badstr,|)
For i=0 to Ubound(badword)
If instr(str,badword(i)) > 0 then
str=Replace(str,badword(i),***)
End If
Next
cutbadchar=str
End Function
%>