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