I'm sure someone has a more economical way of doing this, but this should work.
<%@ Language=VBScript %>
<%Option Explicit%>
<%
dim str,x,h1,tmp,ending
str = "Hello myst rin gis[]Thi[]s."
Response.Write "<b>orig str is</b> " & str & "<hr>"
str =...