<OPTION VALUE="<% Response.Write CurrentFAQID %>" SELECTED>
<% Response.Write TheQuestion %></OPTION>
<%
Do Until RSQuestions.EOF
%>
  <OPTION VALUE="<% Response.Write RSQuestions("FAQID") %>">
  <% Response.Write RSQuestions("Question") %></OPTION>
<%
  RSQuestions.MoveNext
Loop
%>
