Delete record from Dynamic List box

[TNGgroup]

Hi,

I have a dynamic list box with all my records. Whan selecting a value in
this box I want to be able to delete the value. but no matter what my
selection is, He always deleting the first record. ??

This is my code:

<form action="<%=MM_e ditAction%>" method="POST" name="form_remo ve"
class="content" d="form_remove" >
<p>Remove an account
<select name="select_de lete" size="1" class="content" id="select_dele te">
<% While (NOT reco_itcontacts .EOF) %>
<option value="<%=(reco _itcontacts.Fie lds.Item("conta ct_id").Value)% >">
<%=(reco_itcont acts.Fields.Ite m("contact_item ").Value)%> </option>
<% reco_itcontacts .MoveNext()
Wend
If (reco_itcontact s.CursorType > 0) Then
reco_itcontacts .MoveFirst
Else
reco_itcontacts .Requery
End If
%>
</select>
</p>

<p>
<input name="Remove" type="submit" class="content" id="Remove"
value="Delete Contact">
</p>

<input type="hidden" name="MM_delete " value="form_rem ove">
<input type="hidden" name="MM_record Id" value="<%=
reco_itcontacts .Fields.Item("c ontact_name").V alue %>">
<input type="hidden" name="MM_record Id" value="<%=
reco_itcontacts .Fields.Item("c ontact_id").Val ue %>">
</form>