Drop Down not showing Selected Value on Update Page

[BrendaD]

I have code generated by UD4 (below).

The first batch of code works - when a selection is made that value shows up on the Update page.

The second batch of code - which seems identical - does not show the selected value on the Update page. It shows the initial value in the options list.

I have about ten drop down lists/menus on the page and only the one is not functioning as it should.

Any clues? Am I missing something blatantly obvious?

BATCH 1

<td >This Dispatch Card was Updated By:</td>
<td>
<select name=&quot;mnuUpdateBy&quot;>
<option>Please Select</option>
<%
While (NOT rsDispatch.EOF)
%>
<option value=&quot;<%=(rsDispatch.Fields.Item(&quot;Dispatch&quot.Value)%>&quot; <%if (CStr(rsDispatch.Fields.Item(&quot;Dispatch&quot.Value) = CStr(rsUpdateOpen.Fields.Item(&quot;mnuUpdateBy&quot.Value)) then Response.Write(&quot;SELECTED&quot : Response.Write(&quot;&quot%>><%=(rsDispatch.Fields.Item(&quot;Dispatch&quot.Value)%></option>
<%
rsDispatch.MoveNext()
Wend
If (rsDispatch.CursorType > 0) Then
rsDispatch.MoveFirst
Else
rsDispatch.Requery
End If
%>
</select>
</td>
</tr>
<tr>

BATCH 2

<td>Disposition of Dispatch:</td>
<td>
<select name=&quot;mnuEventType&quot;>
<option>Unknown</option>
<%
While (NOT rsEventType.EOF)
%>
<option value=&quot;<%=(rsEventType.Fields.Item(&quot;EventType&quot.Value)%>&quot; <%if (CStr(rsEventType.Fields.Item(&quot;EventType&quot.Value) = CStr(rsUpdateOpen.Fields.Item(&quot;mnuEventType&quot.Value)) then Response.Write(&quot;SELECTED&quot : Response.Write(&quot;&quot%>><%=(rsEventType.Fields.Item(&quot;EventType&quot.Value)%></option>
<%
rsEventType.MoveNext()
Wend
If (rsEventType.CursorType > 0) Then
rsEventType.MoveFirst
Else
rsEventType.Requery
End If
%>
</select>
</td>