Få disse to ting til at matche

Hej eksperter..

Jeg har disse to \"mode\'s\" :


<% if mode = \"reglektieplan\" then
        \'Tjecker om brugeren er logget ind
                        if session(\"brugernavn\") = \"Paul Sauer\" OR session(\"brugernavn\") = \"test\" then
        \'Hiver alle brugeren ud:
                        Set rs = Conn.Execute(\"select * from lektieplan order by fagnavn\")
                        %>
                       
                        <table border=\"0\" bordercolor=\"#000000\">
                            <tr>
                                <td bgcolor=\"#0033cc\" height=\"2\"><font face=\"verdana\" size=\"1\" color=\"#ffffff\">Fag</font></td>
                               
                            </tr>
                           
                            <% Do until rs.eof %>
                           
                            <tr>
                                <td bordercolor=\"#ffffff\"><font face=\"verdana\" size=\"1\"><a href=\"community.asp?mode=editlektieplan&fagnavn=<%=rs(\"fagId\")%>\"><%=rs(\"fagnavn\")%></a></font></td>
                               
                            </tr>
             
                            <%
                            rs.movenext
                            loop
                            rs.close
                            set rs = nothing
                            %>
                        </table>
<% else
        Response.Redirect(\"community.asp?mode=ikkelaerer\") %>
        <% end if %>
                <% end if %>






<% if mode = \"editlektieplan\" then
\'Tjecker om brugeren er logget ind
                        if session(\"brugernavn\") = \"Paul Sauer\" OR session(\"brugernavn\") = \"test\" then

      \'Henter brugerens profil
                        Set rs = Server.CreateObject(\"ADODB.Recordset\")
                        sql = \"select * from lektieplan where fagnavn = \'Matematik\'\"
                        rs.open sql, conn, 1, 3
                           
                            if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
                               
                                    \'Opdaterer felterner
                                    rs.update
                                    rs(\"faglektier\") = Server.HTMLEncode(Request(\"faglektier\"))
                                    rs.update
                               
                            end if
                        %>
                       
                        <form method=\"post\" action=\"community.asp?mode=reglektieplan\">
                    <table border=\"0\" bordercolor=\"#000000\">
                        <tr valign=\"top\">
                            <td bordercolor=\"#ffffff\"><b><font face=\"verdana\" size=\"1\">Lektier</b></font></td>
                            <td bordercolor=\"#ffffff\"><textarea cols=\"40\" rows=\"12\" name=\"faglektier\" ><%=rs(\"faglektier\")%></textarea></td></b></font></td>
                        </tr>
                       
                       
                       
                        <tr>
                            <td bordercolor=\"#ffffff\">&nbsp;</td>
                            <td bordercolor=\"#ffffff\"><input type=\"submit\" value=\"Opdater\" id=submit1 name=submit1></td>
                        </tr>
                           
                    </table>
                        </form> 


                <% else
        Response.Redirect(\"community.asp?mode=ikkelaerer\") %>
        <% end if %>
                <%
                rs.close
                set rs = nothing
                end if %>


Hvordan får jeg dem til at matche så jeg kan klikke på et fag i mode=reglektieplan og så redigere (update) det pågældende fag i mode=editlektieplan..??

Håber I forstår..

På forhånd tak..