Buenas!! Gracias por tu ayuda Myakire, pero no he conseguido que me funcione. Te paso aquí el código que tengo para ver si me puedes hechar una mano.
El archivo seleccion.asp es el primero que abrimos tengo esto:
Código HTML:
<%
Dim val
val = request.QueryString("campo")
%>
<td class="input">
<div align="left">
Sección: </div>
</td>
<td class="input">
<div align="left">
<input type="TEXT" name="seccion" size=8 maxlength=8 value="<%=campo%>"> <a href="javascript:ayuda_productos()">ver</a></div>
</td> Verás que llama a ayuda_productos()->esto abré una ventana que es el archivo seccion.asp. En este archivo saco los datos de la Base de Datos, esto tengo:
Código HTML:
<!--#include file="conexionbd.asp"-->
<HTML>
<HEAD>
<SCRIPT LANGUAGE=JAVASCRIPT>
function select_taric() {
//if (document.formulario.codtaric.value)
for (i=0; rad = document.getElementsByName('codtaric')[i]; i++)
if (rad.checked)
//rad=rad.value;
alert(rad.value);
window.close();
}
</SCRIPT>
<TITLE>SECCIONES</TITLE>
</HEAD>
<BODY bgcolor="#FFFFFF" background="/img/bg2.gif" link="#B80011" vlink="#B80011" alink="#B80011" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form name=formulario method="get" action="seleccion.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="95%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td><input type=BUTTON value="Seleccionar" onClick="select_taric()" name="BUTTON">
<INPUT TYPE=BUTTON VALUE="<< Nivel anterior" Onclick="window.location.href='secciones.asp'"></td>
</tr>
<tr><td> </td></tr>
<% sqlc ="select * from SECCIONES ORDER BY SEC_COD" //hacemos la consulta de sacar datos
Set rsc = Server.CreateObject("ADODB.Recordset")
rsc.Open sqlc, my_conn, 3, 3
If not rsc.bof and not rsc.eof then
cuantos = cuantos +1
rsc.MoveFirst
do while not rsc.eof
response.Write( "<tr>")
//presento por pantalla hasta el final de fichero
response.Write("<td valign='top'><input type=radio name=codtaric value="&rsc("SEC_COD")&"><font face=arial size=2><b>"&rsc("SEC_NUM")&".- </b></font><font face=arial size=1><a HREF='subcapitulos.asp?cod="&rsc("SEC_COD")&"'>"& rsc("SEC_DES")&"</a></font></td>")
response.Write("</tr>")
//mueve al siguiente
rsc.MoveNext
cuantos = cuantos +1
loop
End If
%>
</table>
</td>
</tr>
</table>
</form>
</BODY>
</HTML> Entonces tengo que enviar de esté último(seccion.asp) en SEC_NUM (que lo saco de la BD dependiendo de radio elegido, es de tipo char), esté dato lo tengo que poner el el cuadro de texto de seleccion.asp.
Lo que tengo hecho no me funciona y he ido probando pero no consiguo que me funcione, puede que sea una tontería pero no consigo verlo
.
Gracias de nuevo.