' VB Script Document
Function jsMidB(str, p)
	jsMidB = MidB(str, p)
	if lenb(jsMidB) mod 2 <> 0 then jsMidB=jsMidB & chrb(0)
End Function

Function jsChr(ascii)
	jsChr = Chr(ascii)
End Function