Behold valg i select box, selvom side reloades

Jeg vil gerne have min Select box beholder det valgte option, selvom siden bliver reloadet, kan man ikke det??

Se her: fauerflora dot dk slash Afauerflora slash fauerflora

<table width="160" border="0" cellspacing="0" cellpadding="0" align="left">
<form action="default.asp" method="post" target="_self">
<tr>
<td colspan="2" class="rubrik" align="left" valign="top">Find planten<br><br></td>
</tr>
<tr>
<td align="left" valign="middle" class="norm">Blomst<br><br></td>
<td align="right" valign="top" class="norm">
<select name="LnavnSelect" style="width:100px" class="formR"><br><br>
<option value="0">Alle</option>
<!--#include virtual= "DBConn" -->                   
<%
strSQL = "Select * From BlomstTabel Order by blomst"
Set rs = Conn.Execute(strSQL)

Do
  ' latinsk navn
  strVisLnavn = "<option value='" & rs("blomst") & "'>" & rs("blomst") & "</option>"

  ' Liste med links til latinsk navn
  Response.Write strVisLnavn

  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing

%>
</select></td>
</tr>
<tr><td align="left" valign="middle" class="norm">Navn<br><br>
</td>
<td align="right" valign="top" class="norm">
<select name="DKnavnSelect" style="width:100px" class="formR">
<option value="0">Alle</option>

<!--#include virtual= "DBConn" -->   
<%
strSQL = "Select DISTINCT DKnavnID From FFtabel Order by DKnavnID"
Set rs = Conn.Execute(strSQL)

Do
  ' Dansk navn
  strVisDKnavn = "<option value='" & rs("DKnavnID") & "'>" & rs("DKnavnID") & "</option>"

  ' Liste med links
  Response.Write strVisDKnavn

  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing

%>
</select>
</td>
</tr>
<tr>
<td align="left" valign="middle" class="norm">H&oslash;jde<br><br></td>
<td align="right" valign="top" class="norm">
<select name="cmSelect" style="width:80px" class="formR">
<option value="0">Alle</option>

<!--#include virtual= "DBConn" -->   
<%
strSQL = "Select * From CmTabel Order by IDcm"
Set rs = Conn.Execute(strSQL)

Do
  ' Cm
  strVisCm = "<option value='" & rs("cm") & "'>" & rs("cm") & "</option>"

  ' Liste med links til cm
  Response.Write strVisCm

  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing

%>
</select> cm</td>
</tr>
<tr>
<td align="left" valign="middle" class="norm">Farve<br><br></td>
<td align="right" valign="top" class="norm">
<select name="FarveSelect"  style="width:100px" class="formR">
<option value="0">Alle</option>

<!--#include virtual= "DBConn" -->   
<%
strSQL = "Select * From FarveTabel Order by FarveID"
Set rs = Conn.Execute(strSQL)

Do
  ' Farve
  strVisFarve = "<option value='" & rs("FarveID") & "'>" & rs("FarveID") & "</option>"

  ' Liste med links
  Response.Write strVisFarve

  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing

%>
</select>
</td>
</tr>
<tr>
<td align="right" valign="top" class="norm"></td>
<td align="right" valign="top" class="norm"><input type="submit" value="S&oslash;g" id="submit"></td>
</tr>
</form>
</td></tr>
</table>

Mvh fauer