Husk variabel ved link

Hej allesammen,

Jeg har lavet et lille vindue (Profile) som man kan välje Open or Close på.
Hvordan får jeg "siden" til at huske om den er open eller close, uanset hvor jeg linker til.

Hvis Profile=Open og jeg välger Do?Event så viser den Profile som den er standard - lukket!

Hvordan laver jeg dette. Jeg troede noget i stil med en variabel, men den "glemmer" denne variabel når jeg välger Do?Event


<%
Profile        = Request.QueryString("Profile")
%>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("data/data.mdb")&";"
%>

<%If Request.QueryString("Profile") = "" Or Request.QueryString("Profile") = "Close" Then%>
<div class="MainM">
<table height="24" width="255" border="0" cellpadding="5" cellspacing="0" class="Border">
<tr>
  <td height="24" width="255" background="pictures/FrameMini.gif"><a href="index.asp?Profile=Open">Inloggad som</a></td>
</tr>
</table>
</div>
<%End if%>

<%If Request.QueryString("Profile") = "Open" Then%>
<div class="MainM">
<table height="175" width="255" border="0" cellpadding="5" cellspacing="0" class="Border">
<tr>
  <td height="25"  width="255" background="pictures/FrameMini.gif"><a href="index.asp?Profile=Close"><font class="Font11B">Din profil</font></a></td>
</tr>
<tr>
  <td height="200" width="255"><a href="index.asp?Profile=Close"></a></td>
</tr>
</table>
</div>
<%End if%>

<%If Request.QueryString("Do") = "" Then%>
<%
SQL = "SELECT * FROM DBEvent WHERE EventStatus = 0"
Set RecSet = Connect.Execute(SQL)
%>
<div class="MainT">
<table height="235" width="535" border="0" cellpadding="5" cellspacing="0" class="Border">
<tr>
  <td height="25"  width="535" colspan="2" background="pictures/FrameLarge.gif"><img src="pictures/Spacing.gif" border="0" height="10" width="40"><font class="Font11B">Kommande grabbträff!</font></div><div class="MainDate"><font class="Font11BBeige"><%=(DD)%>. <%=(MMM)%>.</font></div></td>
</tr>
<tr>
  <td height="210" width="200" rowspan="2">Bild</td>
  <td height="170" width="335"><font class="Font11B"><a href="index.asp?Do=EventNew"><%=RecSet("EventText1")%></font><br><hr><%=Left(RecSet("EventText2"),430)%>...</a></td>
</tr>
<tr>
  <td height="40" width="335" style="vertical-align: bottom"><hr><a href="index.asp?Do=EventNew"><img src="pictures/ButtonNext.png" border="0"></a></td>
</tr>
</table>
</div>
<%End if%>

<%If Request.QueryString("Do") = "EventNew" Then%>
<%
SQL = "SELECT * FROM DBEvent Where EventID = 2"
Set RecSet = Connect.Execute(SQL)
%>
<div class="MainT">
<table height="235" width="535" border="0" cellpadding="5" cellspacing="0" class="Border">
<tr>
  <td height="25"  width="535" colspan="2" background="pictures/FrameLarge.gif"><img src="pictures/Spacing.gif" border="0" height="10" width="40"><font class="Font11B"><%=RecSet("EventText1")%></font></div><div class="MainDate"><font class="Font11BBeige"><%=(DD)%>. <%=(MMM)%>.</font></div></td>
</tr>
<tr>
  <td height="210" width="535"><font class="Font11N"><%=RecSet("EventText2")%>...</td>
</tr>
</table>
</div>
<%End if%>