function delfile(path) dim fso response.write(server.mappath(path)) response.end set fso=server.CreateObject("scripting.filesystemobject") if fso.fileexists(server.mappath(path)) then fso.deletefile(server.MapPath(path)) end if fso.close end function