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