Problem med Session

Hej

Jeg har lavet en side som skal hente kategorier og tilhørende emner fra en database.
Emnerne skal udskrives under kategorien i en iframe.
Kategorien bliver gemt som en session og siden i iframen skal så hente de emner som høre under den kategori.

Mit problem er bare at session ikke ændre værdi på siden i iframen, men kun på selve hovedsiden, og derfor får jeg udskrevet de samme emner under de forskellige kategorier.

Hovedside:
<%
                Set rs1 = Server.CreateObject("ADODB.Recordset")
                sql1 = "Select Distinct Kategori From T_VVC Where placering = 'højre' "
                rs1.Open sql1, Conn
               
                Do While Not rs1.EOF
                Session("kategori") = rs1("kategori")
                %>
                <tr>
                    <td height="20" background="webbilleder/lille_boks_top.gif" align="center"><font face="Verdana" size="1"><strong><%=rs1("kategori")%></strong></font></td>
                </tr>
                <tr>
                    <td height="14" background="webbilleder/lille_boks_top2.gif"></td>
                </tr>
                <tr>
                    <td width="142" background="webbilleder/lille_boks_bg.gif" align="left" valign="top">
                        <table border="0" cellpadding="0" cellspacing="0">
                            <tr>
                                <td align="center">
                                    <iframe name="links" frameborder="0" width="85%" src="links.asp" marginheight="0" scrolling="No"></iframe>
                                </td>
                            </tr>
                        </table>
                    </td>
                </tr>
                <tr>
                    <td height="16" background="webbilleder/lille_boks_bund.gif"></td>
                </tr>
                <tr>
                    <td>&nbsp;</td>
                </tr>
                <%
                rs1.MoveNext
                Loop
                %>

iframe:
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 = "Select Distinct Kategori From T_VVC Where placering = 'højre' "
rs1.Open sql1, Conn

Do While Not rs1.EOF
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2 = "Select * From T_VVC Where Kategori = '" & Session("Kategori") & "'"
rs2.Open sql2, Conn
Do While Not rs2.EOF
Response.Write "<font face='Verdana' Size='1'>" & rs2("Emne") & "</font><br>"
rs2.MoveNext
Loop
rs1.MoveNext
Loop
%>

Håber mit problem er til at forstå.

/Mickill