Problemet med sammenligning af tal

Hej!

Ja, det lyder ret simpelt, men jeg kan bare ikke få det til at virke.
Jeg er ved at lave en side hvor musikere kan have en booking kalender. Når de er logget ind skal de - naturligvis - have nogle faciliter.
En musiker kan godt være med i flere bands, og skal derfor have mulighed for at skifte imellem de bands.
Som det ses når man er logget ind, så er der mulighed for at vælge band. Det eller de IKKE aktive bands skal være grå det evt. aktive skal være sort. Er der nogen der kan forklare hvorfor den skifter rundt som det selv har lyst til når man navigere rundt i menu punkterne???? Jeg fatter det ikke.
URL: http://dev.godmusik.com/index.asp
Brugernavn: demo
Pass: demologin

Koden som danne mulighederne for at vælge menu ser ud som følger:
<%
    IF Request.Querystring("admin_bandid") <> "" THEN
    admin_bandid = Replace(Request.Querystring("admin_bandid"), "'", "")
        sql = "SELECT id FROM band WHERE id = " & admin_bandid & " AND adminid = " & session("log_id")
        SET rs = Conn.Execute(Sql)
        IF NOT rs.EOF THEN session("log_band_id_admin") = rs("id")
    END IF

    IF Request.Querystring("norm_bandid") <> "" THEN
    norm_bandid = Replace(Request.Querystring("norm_bandid"), "'", "")
        sql = "SELECT id FROM bruger_band WHERE id = " & norm_bandid & " AND brugerid = " & session("log_id") & " AND bruger_accepteret = '1'"
        SET rs = Conn.Execute(Sql)
        IF NOT rs.EOF THEN session("log_band_id") = rs("id")
    END IF

    IF session("log_band_id") = "" THEN session("log_band_id") = 0
    IF session("log_band_id_admin") = "" THEN session("log_band_id_admin") = 0

    Response.Write ("<br><br><div id=""menu_main_titel_text"">Band</div>" & vbCrLf)
    db_id = ""
    sql = "SELECT * FROM band WHERE adminid = " & session("log_id")
    SET rs = Conn.Execute(sql)
    IF NOT rs.EOF THEN
        Response.Write ("Vælg hvilket band du vil administrerer:<br>" & vbCrLf)
        DO UNTIL rs.EOF
        db_id = rs("id")
            Response.Write ("<li>" & db_id & " <a href=""" & link & "&admin_bandid=" & db_id & """")
            IF session("log_band_id_admin") <> db_id THEN Response.Write (" class=""graa""")
            Response.Write (">" & rs("bandnavn") & "</a></li>" & vbCrLf)
        rs.MoveNext
        LOOP
        Response.Write ("<br><br>" & vbCrLf)
    END IF
    SET rs = Nothing

    Response.Write session("log_band_id_admin") & "<br><br>" & session("log_band_id") & "<br><br>"

    db_id = ""
    sql = "SELECT * FROM bruger_band WHERE brugerid = " & session("log_id") & " AND bruger_accepteret = '1'"
    SET rs = Conn.Execute(sql)
    IF NOT rs.EOF THEN
        Response.Write ("Vælg hvilket band du vil se kalender mv. for:<br>" & vbCrLf)
        DO UNTIL rs.EOF
            db_id = rs("id")
            sql_band = "SELECT bandnavn FROM band WHERE id = " & rs("bandid")
            SET rs_band = Conn.Execute(sql_band)
                Response.Write ("<li>" & db_id & " <a href=""" & link & "&norm_bandid=" & db_id & """")
                IF CInt(session("log_band_id")) <> CInt(db_id) THEN Response.Write (" class=""graa""")
                Response.Write (">" & rs_band("bandnavn") & "</a></li>" & vbCrLf)
        rs.MoveNext
        LOOP
    END IF
    SET rs = Nothing
%>