Quisiera saber como puedo resolver este problema.
intento capturar en una variable el elemento seleccionado en un List de ASP y mandarlo a otra consulta.
el List se llena desde una BD en Access.
mi codigo esta asi:
<%@ Language=VBScript %>
<!--#INCLUDE FILE="../../../../include/CN.inc" -->
<!--#INCLUDE FILE="../../../../include/TOP.inc" -->
<SCRIPT LANGUAGE="JavaScript">
'AQUI CAPTURO EL ITEM SELECCIONADO DE LA LISTA
function testSelect(form)
{
var multipleVar = form.list.options[form.list.selectedIndex].value
if(form.comments.value == "")
{
form.comments.value = multipleVar + '\n';
}
else if (form.comments.value != "")
{
var insertedMultipleVar = form.comments.value;
form.comments.value = insertedMultipleVar + ';' + multipleVar + '\n'
}
}
</SCRIPT>
<script language="JavaScript" type="text/javascript" src="/JS/richtext.js"></script>
<!--#INCLUDE FILE="../../../../include/Template.inc" -->
<TABLE id=TABLE1 style="WIDTH: 815px; HEIGHT: 527px" class="TablePrincipal" bgColor=white>
<TR>
<TD>
<!-- ---------------------------------------- -->
<FORM NAME="updateRTEs" ACTION="Enviar.asp?Chk=1" METHOD="POST">
<%
Set RS= Server.CreateObject("ADODB.Recordset")
set RS.ActiveConnection = cnnDB
Set RS2= Server.CreateObject("ADODB.Recordset")
set RS2.ActiveConnection = cnnDB
queryStr = "SELECT RelEmpPc.IDPC, CatEmpleado.IdEmpleado, CatEmpleado.NicName, Catequipos.Edo, Catequipos.NomPc " & _
"FROM Catequipos INNER JOIN (CatEmpleado INNER JOIN RelEmpPc ON CatEmpleado.IdEmpleado = RelEmpPc.IdEmpleado) ON Catequipos.IDPC = RelEmpPc.IDPC " & _
"WHERE (((Catequipos.Edo)='A')) " & _
"ORDER BY catequipos.Nompc"
RS.Open(queryStr)
'queryStr= "SELECT CatEmpleado.NicName, CatBaderGroup.[Ext-email], CatBaderGroup.Nombre, CatEmpleado.TipoEmpleado FROM CatBaderGroup INNER JOIN CatEmpleado ON CatBaderGroup.IDbadergroup = CatEmpleado.IDbadergroup WHERE (((CatBaderGroup.Nombre)=' México') AND ((CatEmpleado.TipoEmpleado)='C')) OR (((CatEmpleado.TipoEmpleado)='P')) ORDER BY CatEmpleado.NicName"
'Response.Write( queryStr2)
'Response.write(RS("IDPC")&"<BR>")
'AQUI ES DONDE QUIERO CAPTURAR EL VALOR DEL ITEM SELECIONADO EN LIST A MANDARLO EN ESTA CONSULTA
'queryStr2 = " SELECT RelEmpPc.IDPC FROM RelEmpPc WHERE (((RelEmpPc.IdEmpleado)= <%RS("¿?"))"
' RS.Open(queryStr2)
Response.write(RS("IDPC")&"<BR>")
Response.Write (Request.Form )
'AQUI ES DONDE LLENO LA LISTA CON LOS DATOS DE LA BD
<SELECT NAME="list" SIZE="10" onClick="testSelect(this.form)">
<%
while not (RS.EOF)
%>
<%User=RS("NicName")
if not user="" then
Email= RS("NicName")
'Email= Email + RS("Ext-email")
Email= Email + "@bader-leather.com.mx"
response.write"<OPTION VALUE='"& Email & "'> " &RS("nompc")& "</OPTION>"
'response.write(RS("NicName")&"<BR>")
end if%>
<%RS.MoveNext
wend%>
</SELECT>
