Una complicada me parece

[aleman]

Ok amigos el tema es asi tengo un select de donde hago un inner join y muestro una lista de paises


Hago el select de esa manera con la opcion multiple

<SELECT name=campo5 class=tahoma id=select1 multiple>

Bueno ahora viene un usario selecciona varios países y yo guardo un registro con el id de pais y un id de un mail que le corresponde , bien o sea un registro de este tipo
idmail=5, idpais=10

Ahora un usuario quiere modificar esos países y lo que necesito es consultar la base de datos que tengo el id de mail y el id de pais y dejar los campos del select seleccionados yo lo he hecho varias veces con un solo campo pero no con varios bien lo que intento es lo siguiente

<%
set rspais=server.createobject("adodb.recordset&q uot;)
sql="SELECT DISTINCT country.country_id, country.name" & _
" FROM country INNER JOIN " & _
" user_information ON " & _
" country.country_id = user_information.country_id INNER JOIN" & _
" user_mailing ON" & _
" user_information.user_id = user_mailing.user_id" & _
" ORDER BY country.name"
rspais.open sql,conexion,1,2
%>
<SELECT name=campo5 class=tahoma id=select1 multiple>


<% sql="select * from Email_Country where IdConfigEmail= " & cint(Request("id")) & " order by country_id "
set rsCountryEmail=server.createobject("adodb.rec ordset")
rsCountryEmail.open sql,conexion,1,2 %>

<%
do while not RSpais.EOF
if not rsCountryEmail.eof then
%>
<OPTION value="<%=rspais.Fields(0)%>"<% if request("id") > 0 then%><%if rspais(0)=rsCountryEmail("country_id") then %>selected<%end if%><%end if%>><%=rspais.Fields(1)%></OPTION>
<%
else
%>
<OPTION value="<%=rspais.Fields(0)%>" ><%=rspais.Fields(1)%></OPTION>
<%
end if

rsCountry

[aleman]

rsCountryEmail.MoveNext
rspais.MoveNext
loop
%>
</SELECT>
<%
rspais.close
set rspais=nothing
%>

Ok como verán lo que hago es ir moviendo las dos bases registro por registros en forma ordenada si bien en una ordena por el pais en la otra ordena por el id pero en la base se encuentran ordenadas por las mismas cosas y voy comparando y dejando seleccionado el campo pero resulta que no lo hace , no hace esto , y no deja seleccionada nada , no se si se comprende espero que si , gracias amigos no se que seria de mi sin este foro

[aleman]

Ok acabo de detectar un error este paso lo deberia hacer asido while not RSpais.EOF
if not rsCountryEmail.eof then
%>
<OPTION value="<%=rspais.Fields(0)%>"<% if request("id") > 0 then%><%if rspais(0)=rsCountryEmail("country_id") then %>selected<%end if%><%end if%>><%=rspais.Fields(1)%></OPTION>
<%
rsCountryEmail.MoveNext
else
%>
<OPTION value="<%=rspais.Fields(0)%>" ><%=rspais.Fields(1)%></OPTION>
<%
end if


rspais.MoveNext
loop

Gracias, disculpas.

[aleman]

Mal esto esta mal , porque una vez que corri el registro ya lo perdi esto esta mal, disculpas lo pensare de vuelta y consultare nuevamente

[aleman]

ok amigos lo pude solucionar y funciono solo muevo un registro de la tabla Email_Country cuando encuentro una igualdad, disculpas y gracias por los que leen esto esta es la solucion


%>
<OPTION value="<%=rspais.Fields(0)%>"<% if request("id") > 0 then%><%if rspais(0)=rsCountryEmail("country_id") then %>selected <%rsCountryEmail.MoveNext%><%end if%><%end if%>><%=rspais.Fields(1)%></OPTION>
<%