<% dim mstr istr = "sk«ajsoiethnrttjlgjl;gjr9klb;s;ifgjfigjf«;" Function cleanse (mstr) len_mstr = len(mstr) for x = 1 to len_mstr ch = mid(mstr, x, 1) if (asc(ch) > 127 ) Then ostr = ostr & " " else ostr = ostr & ch Next cleanse = ostr End function Response.write istr & "
" & cleanse(istr) %> Untitled Document