Hvorfor bliver feltværdien ikke clearet, når ny søgning foretages

Hej
Er der en der kan hjælpe med følgende ?...
Hvorfor bliver feltværdien ikke clearet, når ny søgning foretages, jeg er nødt til at lukke IE 5.0 ned, før jeg for lov at finde et nyt navn i databasen
ellers virker nedenstående fint nok ved første søgning.

Mvh //Michael 


<HTML>
<HEAD>
<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html;charset=windows-1252\">
<TITLE>Testname</TITLE>
</HEAD>
<BODY>
<%
If IsObject(Session(\"database_conn\")) Then
  Set conn = Session(\"database_conn\")
Else
    Set conn = Server.CreateObject(\"ADODB.Connection\")
    conn.open \"database\",\"\",\"\"
    Set Session(\"database_conn\") = conn
End If
%>
<%
If IsObject(Session(\"testname_rs\")) Then
    Set rs = Session(\"testname_rs\")
Else
    sql = \"SELECT personer.Fornavn, personer.Efternavn FROM personer  WHERE ((personer.Fornavn)= \'\" & Request.QueryString(\"Test\") & \"\')\"
    Set rs = Server.CreateObject(\"ADODB.Recordset\")
    rs.Open sql, conn, 3, 3
    If rs.eof Then
        rs.AddNew
    End If
    Set Session(\"testname_rs\") = rs
End If
%>
<TBODY>
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>
<TR VALIGN=TOP>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE=\"Tahoma\" COLOR=#000000><%=Server.HTMLEncode(rs.Fields(\"Fornavn\").Value)%></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE=\"Tahoma\" COLOR=#000000><%=Server.HTMLEncode(rs.Fields(\"Efternavn\").Value)%><BR></FONT></TD>
</TR>
<%
rs.MoveNext
loop%>
</TBODY>
<TFOOT></TFOOT>
</TABLE>
</BODY>
</HTML>