Sletning af oplysninger i databasen

Hejsa

Jeg har følgende kode til at slette en bruger i en database:

<%

Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("../Login/Login.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
   
sql = "DELETE * From Bruger Where Brugernavn = '" & Request.Form("Brugernavn") & "'"
    Set rs =  Con.Execute(Sql)

response.write "Brugeren er nu slettet"
%>

Det virker også fint nok. Det jeg bare gerne skal have lidt hjælp til er at få den til at checke for brugerens gruppenavn.

Jeg har lavet denne sql streng:

SQL = "SELECT Grupper.Gruppenavn, Bruger.Brugernavn FROM Bruger INNER JOIN Grupper ON Bruger.Gruppenavn = Grupper.GruppeId WHERE Brugernavn = '" & Request.Form("Brugernavn") & "'"

Det jeg så gerne vil have er at en eller anden lige gider smide koderne sammen.
Det der skal gøres er at følgende skal checkes:

Inden noget udføres skal der checkes om:
Session("auth_Gruppenavn") = Admin
Hvis den er det så skal følgende køres og ikke andet:

<%

Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("../Login/Login.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
   
sql = "DELETE * From Bruger Where Brugernavn = '" & Request.Form("Brugernavn") & "'"
    Set rs =  Con.Execute(Sql)

response.write "Brugeren er nu slettet"
%>

Er Session("auth_Gruppenavn") >< Admin så skal vi  hente gruppenavnet på ham vi ønsker at slette fra databasen:
SQL = "SELECT Grupper.Gruppenavn, Bruger.Brugernavn FROM Bruger INNER JOIN Grupper ON Bruger.Gruppenavn = Grupper.GruppeId WHERE Brugernavn = '" & Request.Form("Brugernavn") & "'"

Derefter skal hans gruppenavn sammenlignes med Session("auth_Gruppenavn"). Hvis disse 2 er ens så skal brugeres bare slettes vha:

<%

Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("../Login/Login.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
   
sql = "DELETE * From Bruger Where Brugernavn = '" & Request.Form("Brugernavn") & "'"
    Set rs =  Con.Execute(Sql)

response.write "Brugeren er nu slettet"
%>

Er Session("auth_Gruppenavn") derimod ikke lig med gruppenavnet på ham vi ønsker at slette så skal han få en besked om at han ikke har adgang til at slette denne brugere.

Håber der er til at forstå! Rækkefølgen af hvordan det hele skal komme er underordnet!