<%
set rs=Server.CreateObject("adodb.Recordset")
connectme="dsn=miDB"
sqlstmt = "SELECT * from productos"
rs.open sqlstmt, connectme
If rs.eof then
response.write "<center>there are no"
response.end
Else
%>
<td valign="top" align="left" width="50%"><select name="habitaciones" class="text3" size="1">
<option>-Select Number-</option>
<% intX = 1
Do while not rs.eof
habitaciones=rs("habitaciones")
%>
<option value="<%= habitaciones %>"><%= habitaciones %>
<%
intX = intX + 1
rs.MoveNext
loop
End If
set rs=nothing
%>
ME DA ERROR DE SERVER
