Hvordan laves funktionen mest hensigtsmæssigt - SERVER_NAME?

Det er en gang imellem lidt svært at lave en sigende overskrift, når div. kriterier er sat op :/

Jeg er igang med at lave en menu med alle hovedområderne (subdomæerne). Det er meningen, at der skal være en eller anden form for effekt, når man befinder sig på et givent sub/domæne. Hvis man befinder sig på

www.MyDomain.dk

skal class (CSS) sættes til noget. Hvis man ikke befinder sig på den side, skal class sættes til noget andet.

Nu forsøger jeg mig med Select Case, men kan ikke lige finde en fornuftig måde at lave det på. Det foreløbige resultat:

<%
    Dim strMainArea, strMainArea1, strMainArea2, strMainArea3
    strMainArea = Request.ServerVariables("SERVER_NAME")
    strMainArea1 = "www.SubDomain1.MyDomain.dk"
    strMainArea2 = "www.SubDomain2.MyDomain.dk"
    strMainArea3 = "www.SubDomain3.MyDomain.dk"

    Select Case strMainArea
        Case MainArea1
            If strMainArea = strMainArea1 Then
                vClass = "bannermenuactive"
            Else
                vClass = "bannermenu"
            End If
        Case MainArea2
            If strMainArea = strMainArea2 Then
                vClass = "bannermenuactive"
            Else
                vClass = "bannermenu"
            End If
        Case MainArea3
            If strMainArea = strMainArea3 Then
                vClass = "bannermenuactive"
            Else
                vClass = "bannermenu"
            End If
    End Select
%>

<a href="...." class="<%=vClass%>">Link</a>

Men nu får linket ikke tilknyttet nogen class overhovedet. Ville det være mere hensigtsmæssigt med

If ..... Then
    .....
ElseIf
    .....
ElseIf
    .....
End If