<% option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim rs dim ssql dim sPartner_Id dim sPartner_Logo dim FileControler dim TotalRecord dim return_page %> <% sPartner_Id = trim(Request.QueryString("partner_id")) sPartner_Logo = trim(Request.QueryString("partner_logo")) if len(sPartner_Logo) > 0 then ssql = "select partner_id from tbl_partner where partner_logo = '" & sPartner_Logo & "'" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 if not rs.EOF then TotalRecord = rs.RecordCount if TotalRecord = 1 then set FileControler = server.CreateObject("Scripting.FileSystemObject") if FileControler.FileExists(session("images_folder") & "/" & sPartner_Logo) = true then FileControler.DeleteFile session("images_folder") & "/" & sPartner_Logo end if set FileControler = nothing end if end if end if ssql = "delete from tbl_partner where partner_id = '" & sPartner_Id & "'" conn.execute ssql conn.Close set conn = nothing return_page = "" Response.Write return_page else Response.Redirect "../../index.asp" end if %>