Function decodeURI(szInput)
Set js = CreateObject("MSScriptControl.ScriptControl")
js.Language = "JScript"
decodeURI = js.Eval("decodeURI('" & szInput & "')")
End Function
Function attfn(http)
attfn = Replace(decodeURI(http.getResponseHeader("Content-Disposition")), "attachment;filename=", "")
End Function
