<%
Function FormatStr(jnkcV)
Dim jnkcTmp,jnkcRegExp
jnkcTmp = jnkcV & ""
Set jnkcRegExp = new RegExp
jnkcRegExp.IgnoreCase = True
jnkcRegExp.Global = True
jnkcRegExp.Pattern = """([^""]*)"""
jnkcTmp = jnkcRegExp.Replace(jnkcTmp,"“$1”")
Set jnkcRegExp = Nothing
FormatStr = jnkcTmp
End Function

response.write FormatStr("dfsdf""sdf33asdfasd""sdfasdfas""sdf44asdfas""sdfsa")
%>