Session og ID?

Hej med jer.
Jeg har et spørgsmål, som handler om at man trykker på en knap i en menu.(KategoriID=2), hvor den så skal få en dropdown til at vise det som passer til KategoriID=2.
Men når jeg så vælger noget i dropdownboksen, ja så går den altid tilbage til KategoriID=1. Den skulle gerne blive på KategoriID=2 indtil man trykker på en ny knap ude i menuen.
Kan man ikke bruge en Session Variable til dette? og hvordan skal man skrive det, så man overfører den Session fra menuen til ens Recordset.
--------------------------------
<%
Dim rsType__MMColParam
rsType__MMColParam = "1"
If (Session("KategoriID") <> "") Then
  rsType__MMColParam = Session("KategoriID")
End If
%>
<%
Dim rsType
Dim rsType_numRows

Set rsType = Server.CreateObject("ADODB.Recordset")
rsType.ActiveConnection = MM_Kitchnkool1_STRING
rsType.Source = "SELECT * FROM QRYVarervaelg WHERE KategoriID = " + Replace(rsType__MMColParam, "'", "''") + ""
rsType.CursorType = 0
rsType.CursorLocation = 2
rsType.LockType = 1
rsType.Open()

rsType_numRows = 0
%>
------------------------------
Her er formen
------------------------------
<form action="/aspsider/vareroversigt.asp" method="get" name="varervaelg" id="varervaelg">
                            <select name="varerv" class="varervaelger" id="varerv" title="" onChange="java script:document.varervaelg.submit(this.form)">
                              <option value="0">Vælg varer</option>
                              <%
While (NOT rsType.EOF)
%>
                              <option value="<%=(rsType.Fields.Item("TypeID").Value)%>">
                              <% if Cstr(rsType.Fields.Item("TypeID").Value) = Cstr(rsVarerv) then

Response.write " SELECTED "
End if %>
                              <%=(rsType.Fields.Item("Type").Value)%></option>
                              <%
  rsType.MoveNext()
Wend
If (rsType.CursorType > 0) Then
  rsType.MoveFirst
Else
  rsType.Requery
End If
%>
                            </select>
                            <%
' *** Set A Session Variable To Pre-Defined Value - UltraSessions_101
Session("KategoriID") = ("2")
%>
                            <br />
                            <br />
                            <span class="varerdetajle"><%=(rsType.Fields.Item("Kategori").Value)%>&nbsp; <img src="/gfx/pil.jpg" width="10" height="10" />&nbsp;
                            <% If Not rsVarer.EOF Or Not rsVarer.BOF Then %>
                            <%=(rsVarer.Fields.Item("Type").Value)%>&nbsp;<img src="/gfx/pil_ned.jpg" width="10" height="10" />
                            <% End If ' end Not rsVarer.EOF Or NOT rsVarer.BOF %>
                            </span>
                          </form>
---------------------------
Er lidt forvirret over dette her???