<OPTION VALUE="<% Response.Write CurrentHelpID %>" SELECTED>
<% Response.Write TheProblem %></OPTION>
<%
Do Until RSProblems.EOF
%>
  <OPTION VALUE="<% Response.Write RSProblems("HelpID") %>">
  <% Response.Write RSProblems("Problem") %></OPTION>
<%
  RSProblems.MoveNext
Loop
%>
