Coding Cookbook/JavaScript Encode

Encode special characters in a string, so that it can be displayed using JavaScript

VBScript solution

function JSEncode (sInput)
  JSEncode = sInput
  JSEncode = Replace (JSEncode, chr(0), "")
  JSEncode = Replace (JSEncode, "'", "\'")
  JSEncode = Replace (JSEncode, """", "\""")
  JSEncode = Replace (JSEncode, "&", "\x26")
  end function