Foros del Web » Programando para Internet » ASP Clásico »

Como Capturar El Elemento De Listbox En Asp

Estas en el tema de Como Capturar El Elemento De Listbox En Asp en el foro de ASP Clásico en Foros del Web. 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. ...
  #1 (permalink)  
Antiguo 06/07/2007, 17:09
 
Fecha de Ingreso: julio-2007
Mensajes: 1
Antigüedad: 16 años, 11 meses
Puntos: 0
Como Capturar El Elemento De Listbox En Asp

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)
%>&nbsp;
<%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%>
&nbsp;
<%RS.MoveNext
wend%>
</SELECT>
  #2 (permalink)  
Antiguo 07/07/2007, 02:18
Avatar de JavierB
Colaborador
 
Fecha de Ingreso: febrero-2002
Ubicación: Madrid
Mensajes: 25.052
Antigüedad: 22 años, 3 meses
Puntos: 772
Re: Como Capturar El Elemento De Listbox En Asp

Hola steveactive. Bienvenido al foro.

Para hacer preguntas es preferible utilizar el foro que mejor se adapte a tu duda, así podrán ayudarte más usuarios.

Muevo tu mensaje al foro de ASP desde Bienvenida a Foros del Web.

Saludos,
  #3 (permalink)  
Antiguo 09/07/2007, 09:59
Avatar de Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 4 meses
Puntos: 146
Re: Como Capturar El Elemento De Listbox En Asp

'queryStr2 = " SELECT RelEmpPc.IDPC FROM RelEmpPc WHERE RelEmpPc.IdEmpleado = " & <%=Request("list")%>

Saludos!
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:38.