<% option explicit Response.Buffer = true if session("administrator_id") <> "" then dim conn dim ssql dim sStorename dim FileControler dim strPath dim return_page %> <% sStorename = trim(Request.QueryString("storename")) ssql = "delete from tbl_store where store_name = '" & sStorename & "'" conn.execute ssql conn.Close set conn = nothing strPath = server.MapPath("../../../member/" & sStorename) set FileControler = server.CreateObject("Scripting.FileSystemObject") if FileControler.FolderExists(strPath) = true then FileControler.DeleteFolder strPath, true end if set FileControler = nothing return_page = "" Response.Write return_page else Response.Redirect "../../index.asp" end if %>