fix newline invisible character from sql server in classic asp to fix json output

Function FixForHTML(tmpText1)
if ( not tmpText1 is nothing and tmpText1 <> "") then
    Dim tmpText2
    tmpText2 = tmpText1
    tmpText2 = Replace(tmpText2,Chr(13),"</p><p>" )
    tmpText2 = Replace(tmpText2,Chr(9),"&#xa0;&#xa0;&#xa0;&#xa0;")
tmpText2 = Replace(tmpText2,Chr(10),"&#xa0;&#xa0;&#xa0;&#xa0;")
    FixForHTML = tmpText2
else
FixForHTML = tmpText1
end if
End Function