If og else

Hejsa

Jeg har lige en lille kode jeg skal have ændret. Her er min kode som den er lige nu:

<%

  Dim sSeed
  Dim sValidBrugernavn
  Dim sValidPassword
  Dim sValidHash
  Dim sBrugernavn
  Dim sPassword
  Dim sHash
  Dim sGruppenavn
  Dim sInitial
  Dim sFornavn
  Dim sEfternavn
  Dim str

Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("Login.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
   
SQL = "SELECT Grupper.Gruppenavn, Bruger.Brugernavn, Bruger.Brugerkode, Bruger.Initial, Bruger.Fornavn, Bruger.Efternavn FROM Bruger INNER JOIN Grupper ON Bruger.Gruppenavn = Grupper.GruppeId WHERE Brugernavn='" & request("brugernavn") & "'"
rs.Open SQL, Conn

if rs.EOF = true then
  str = "Brugernavnet eller Adgangskoden er forkert!"
else
  sValidBrugernavn = rs("Brugernavn")
  sValidPassword = rs("Brugerkode")
  sGruppenavn = rs("Gruppenavn")
  sInitial = rs("Initial")
  sFornavn = rs("Fornavn")
  sEfternavn = rs("Efternavn")

  sSeed = Session("auth_seed")
  sValidHash = MD5(sSeed & sValidPassword)
 
  sBrugernavn = Request.Form("brugernavn")
  sPassword = Request.Form("password")
  sHash = Request.Form("hash")
 
  If sSeed = "" Then
      str = "Din session er lukket. Du har enten venter for langtid eller også understøtter din browser ikke cookies."
  ElseIf sBrugernavn = "" Then
      str = "Brugernavnet eller Adgangskoden er forkert!"
  ElseIf LCase(sBrugernavn) <> LCase(sValidBrugernavn) Then
      str = "Brugernavnet eller Adgangskoden er forkert!"
  ElseIf sHash = "" And sPassword <> "" Then
      If sPassword <> sValidPassword Then
        str = "Brugernavnet eller Adgangskoden er forkert!"
      Else
        Session("auth_granted") = "true"
        Session("auth_Brugernavn") = sBrugernavn
        Session("auth_Gruppenavn") = sGruppenavn
        Session("auth_Initial") = sInitial
        Session("auth_Fornavn") = sFornavn
        Session("auth_Efternavn") = sEfternavn
   
    Response.Write "<script>top.document.location.href=""../intern/index.asp""</script>"

      end if
  ElseIf sHash <> "" Then
      If sHash <> sValidHash Then
        str = "Adgangskoden er ikke rigtig."
      Else
        Session("auth_granted") = "true"
        Session("auth_Brugernavn") = sBrugernavn
        Session("auth_Gruppenavn") = sGruppenavn
        Session("auth_Initial") = sInitial
        Session("auth_Fornavn") = sFornavn
        Session("auth_Efternavn") = sEfternavn

    Response.Write "<script>top.document.location.href=""../intern/index.asp""</script>"

      end if
  else
      str = "Der er sket en fejl. Prøv venligst igen. Hvis dette fortsætter så kontakt venligst webmaster@havneparken1vejle.dk"
  End If
End if

%>


Er der nogle der kan hjælpe mig med at få skrevet følgende ind i koden:

Hvis sGruppenavn er lig med en af følgende:
Arangementudvalg
Personalenyt
Fredagcafé
Kokken

Så skal den skrive de tilsvarende af følgende:
Session("auth_granted_a") = "true"
Session("auth_granted_p") = "true"
Session("auth_granted_f") = "true"
Session("auth_granted_k") = "true"

Sammen med følgende smørre:
Session("auth_granted") = "true"
Session("auth_Brugernavn") = sBrugernavn
Session("auth_Gruppenavn") = sGruppenavn
Session("auth_Initial") = sInitial
Session("auth_Fornavn") = sFornavn
Session("auth_Efternavn") = sEfternavn

Someone plz. help me :-D