database og script problem!

Hej

Jeg er ved at lave et script der gør så man kan lave en menu og rette den via mit admin script.. mit problem er, at den sletter min nye data når jeg retter i det.. Altså hvis der står hh og jeg vil ændre det og skriver hhh så sletter det bare det, uden at rette det..

Her er mit script:

<%
Response.Buffer = True
SET rs = Server.CreateObject(\"ADODB.Connection\")
rs.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database/database.mdb\")

If request(\"Mode\") = \"logaf\" Then
session.Abandon
Response.Redirect(\"admin.asp\")
end if

If Session(\"password-session\") = \"\" Then
Response.Redirect(\"admin.asp\")
end if


Sql = \"Select * FROM login WHERE username = \'\" & session(\"password-session\") & \"\'\"
set rs = rs.Execute(SQL)

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"/database/database.mdb\")
%>
<% mode = request(\"mode\") %>
<% if mode = \"\" then %>
<%
SQL = \"SELECT * FROM menu\"
set rs = Conn.execute(SQL)
if rs.EOF then
%>

<a href=\"ret.asp?mode=logaf\">logaf</a>
Intet i db\'en
<%
else
%>
<a href=\"ret.asp?mode=logaf\">logaf</a>
<table>
<tr>
<td>id:</td>

<td>link:</td>
</tr>
<%
Do Until rs.EOF
%>
<tr>
<td valign=\"top\"><a href=\"?mode=ret&id=<%=rs(\"id\")%>\"><%=rs(\"id\")%></td>
<td valign=\"top\"><%=rs(\"link\")%></td>
</tr>
<%
rs.MoveNext
Loop
end if
%>
<% end if %>
<% if mode = \"ret\" then %>
<form method=\"POST\" action=\"?mode=ret2&id=<%=Request.QueryString(\"id\")%>\">
<%
SQL = \"Select * From menu where id=\"& Request.QueryString(\"id\")
set rs = Conn.execute(SQL)
%>
id: <%=rs(\"id\")%><br><br>


link:<br>
<textarea name=tekst rows=15 cols=60><%=rs(\"link\")%></textarea><br><br>
<input type=\"submit\" value=\"Send\" name=\"B1\">
</form>


<% end if %>
<% if mode = \"ret2\" then %>
<%
Set rs = Server.CreateObject(\"ADODB.RecordSet\")

strSQL = \"Select * From menu where id=\" & Request.QueryString(\"id\")
rs.Open strSQL, Conn, 1, 3

rs(\"link\") = Request.form(\"link\")
rs.Update
%>
Rettet
<% end if %>
</html>
<form method=\"post\" action=\"admin2.asp\">
<input type=\"submit\" value=\"Tilbage til Admin\">
</form>