title=request("title")
title=replace(title,"chr(34)","""")

Function EChar(ParaStr)
ParaStr=trim(ParaStr)
ParaStr=replace(ParaStr,chr(39),"'")
ParaStr=replace(ParaStr,chr(34),""")
EChar=ParaStr
End function


Function DChar(ParaStr)
ParaStr=replace(ParaStr,"'",chr(39))
ParaStr=replace(ParaStr,""",chr(34))
DChar=ParaStr
End function