Set fso = Server.CreateObject("Scripting.FileSystemObject")
  Set fout = fso.Createtextfile(server.mappath("..\eshop\view\"&rs("bname")),true)
 fout.writeline okfile
fout.close


FiLePaTh = Server.MapPath("....\commerce\view\")&"\"&tempfname
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filepath)
If img<>"" then FiLePaTh = Server.MapPath("\upload\member\")&"\"&img : fso.DeleteFile(FilePath)
Set fso = nothing