используйте эту функцию ниже, чтобы выставить все символы один за другим, чтобы увидеть их ASCII,
Sub ExposeAllChars(yourInput)
Dim lLoop,sNew,iChr,dim curChar,length_of_your_input
length_of_your_input = Len(yourInput)
For lLoop = 1 To length_of_your_input
curChar = Mid(yourInput, lLoop, 1)
iChr = Asc(curChar)
Response.write "<li>char:[" & curChar & "] = ascii value:[" & iChr & "]"
Next
End sub
тогда вы можете справиться с проблемой, зная, какой ascii char является нарушителем спокойствия ...
тогда вы можете использовать htmlcharset, чтобы правильно написать этот специальный символ