<% if Session("SuperAdmin") = false then Response.Redirect (""&path&"/index.asp") end if %> <% dim scodeM ,stform sSuperAdmin = false scodeAdmin = Request("CodeAdmin") SQL="Select * from Admin where CodeAdmin = " & scodeAdmin set rsQuery = conn.execute (SQL) if not rsQuery.eof then sSuperAdmin = rsQuery("SuperAdmin") end if if sSuperAdmin = true then Response.Redirect ("RechercheAdmin.asp?"&Request.Cookies ("liensAdmin")&"iPage="&Request.Cookies ("Current_PageAdmin")&"") else SQL = "Delete FROM Admin where CodeAdmin = " & sCodeAdmin set rsQuery = conn.execute (SQL) Response.Redirect ("RechercheAdmin.asp?"&Request.Cookies ("liensAdmin")&"iPage="&Request.Cookies ("Current_PageAdmin")&"") end if %>