Cita:
Iniciado por FiNo Fijate si este ejemplo te sirve:
Ventana principal
<form action="" method="post" name="form" id="form">
<input name="nombre_txt" type="text" id="nombre_txt">
<a href=# onClick=window.open('pop_up.asp','nom','scrollbars =yes,width=300,height=300')>Ventana Pop-up</a></form>
--------------------------------
Ventana pop_up
<% valor = "valor_a_pasar"%>
<a href="#" onclick="opener.document.form.nombre_txt.value='<% =valor%>';javascript
:window.close()">pasar valor</a>
Y ahi en valor, meteria el dato del select.
Mira ejecute tu codigo pero tengo una duda, en la pagina principal tengo es un boton para generar el pop up ya que de ahi viene un valor para el select, cuando abre el pop up le puse el codigo del pop up pero no hace la actualizacion ni cierra la pagina, se queda en el pop up y me cambia el valor del indice de la consulta, si prosigo no me cambia el valor en la ventana principal por lo tanto que mas me hara falta te envio la manera como hago llamado del pop up desde mi formulario principal
Esto va al pricipio de la pagina principal
<head>
<link rel="stylesheet" type="text/css" href="../default.css">
<script language="JavaScript" type="text/javascript">
<!--
var ancho=350
var alto=200
var x=100
var y=300
var tid=0
var url= "scaling.asp?id="
function inicio()
{
tid = Listas.Sub_Categoria.options[Listas.Sub_Categoria.selectedIndex].value;
url = url + tid;
ventana = window.open(url, "_blank", "resizable,height=200,width=350,top=x,left=y,scree nX=x,screenY=y");
tid = 0;
url = "scaling.asp?id=";
}
// -->
</script>
</head>
<Form name="Listas" method="post" action="details.asp">
<Select Name="Categorias" Size="1"
onChange="ComponerLista (document.forms.Listas.Categorias[selectedIndex].value);" <% = strTextDisable %>>
<%
Dim rstcategories, cuenta, categoria, cat
Set rstcategories = SQLQuery (cnnDB, "SELECT DISTINCT * FROM CATEGORIES ORDER BY cname asc")
cuenta = 1
sw = 1
While Not rstcategories.EOF
%>
<Option Value="<%=rstcategories("category_id")%>"
<% If cuenta = 1 Then %>
SELECTED
<% End If %>>
<% = rstcategories("cname") %></Option>
<%
rstcategories.MoveNext
cuenta = cuenta + 1
Wend
rstcategories.Close
sw = 1
%>
</select>
</td>
</tr>
<tr class="Body1">
<td>
<b><%=lang(cnnDB, "Subcat")%></b>
</td>
<td>
<Select Name="Sub_Categoria" Size="1">
</Select> <em>*</em>  
<input type="button" value="<%=lang(cnnDB, "subdef")%>" onClick="inicio()">  <em>*</em></p>
<SCRIPT LANGUAGE="Javascript">
<!--
function Tupla ( campo1, campo2 )
{
this.campo1 = campo1;
this.campo2 = campo2;
}
<%
'Vamos a crear nuestros arrays de productos desde ASP
'El primer if detecta un cambio en la categoría para
'crear un nuevo array en Javascript
Set rstcategories = SQLQuery (cnnDB,"SELECT DISTINCT * FROM sub_categories ORDER BY sCategory_id, subcat_id")
cuenta=0
cat="basura"
While Not rstcategories.EOF
If cat<>rstcategories("scategory_id") Then
' cambio de categoria, empiezo a contar en 0
cuenta = 0
cat = rstcategories("scategory_id")
' además tengo que crear un nuevo array para la categoría
%>
var opciones<%=cat%> = new Array();
<%
End If
%>
opciones<%=cat%>[<%=cuenta%>]=new Tupla("<%=rstcategories("sname")%>","<%=rstcategor ies("subcat_id")%>");
<%
cuenta = cuenta + 1
rstcategories.MoveNext
Wend
%>
<%
'Limpiamos objetos
rstcategories.close
%>
var contador;
function ComponerLista ( array ) {
// Compone la lista dependiente a partir
// del valor de la opcion escogida en la lista "padre"
BorrarLista();
array = eval("opciones" + array);
for (contador=0; contador<array.length; contador++)
{
// añade elementos nuestro combobox
var optionObj = new Option( array[contador].campo1, array[contador].campo2 );
Listas.Sub_Categoria.options[contador] = optionObj;
} // for
} // ComponerLista
function BorrarLista() {
Listas.Sub_Categoria.length=0;
}
//Inicializamos
ComponerLista (1);
-->
</SCRIPT>
