Code:
<!-- this is a 2X2 table with your select in the top left cell-->
<TABLE> <!--Starts a table -->
<TR><!--Starts a Row -->
<TD> <!--Starts a cell -->
<%
Response.Write "<select name=select>" & vbCrLf
Do While Not rs.EOF
Response.Write "<option value=" & rs(0) & ">" & rs(1) & "</option>" & vbCrLf
rs.MoveNext
Loop
Response.Write "</select></BR>" & vbCrLf
%>
</TD><!-- closes a cell ->
<TD> <!--Starts a cell -->
</TD><!-- closes a cell ->
</TR><!-- ends a row-->
<TR><!--Starts a Row -->
<TD> <!--Starts a cell -->
</TD><!-- closes a cell ->
<TD> <!--Starts a cell -->
</TD><!-- closes a cell ->
</TR>
</TABLE> <!--ends a table -->