tienes un enredo con la lista....abres dos listas la cierras mal..
no creo que se problema de usar un while o un do while mientras cierres bien el bucle...
prueba con esto
Código:
< Select name = "COMBO1">
<%
While not Tabla.EOF
%>
<option value = "<%tabla("campo1")%>"><%tabla("campo2")%> </option>
<%
tabla.MoveNext
Wend
%>
</Selected>
:)