<% option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim ssql dim sMember_Email dim return_page %> <% sMember_Email = trim(Request.QueryString("member_email")) ssql = "delete from tbl_member where member_email = '" & sMember_Email & "'" conn.execute ssql conn.Close set conn = nothing return_page = "" Response.Write return_page else Response.Redirect "../../index.asp" end if %>