<td><select NAME="Pais" size="1" > <% Do While Not RP.Eof %> <option value="<%=rs("Pais")%>" ><%=PCase(RP("Nombre"))%></option> <% RP.MoveNext Loop %> </select></td> </label></th>