Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 AYUDA: etiqueta SELECT
 Foro Bloqueado  Tema Bloqueado


Autor Temas
MONINAMOON
Starting Member

Colombia
9 Posts
Mensajes - 16 Sep 2008 :  18:11:41  Ver Perfil  Enviar Email
Si alguien me puede dar una luz... Gracias

Es posible mostrar en la página original el valor de un select, una vez se haya enviado los datos del formulario a través del input????

Resulta que tengo un etiqueta select que toma los datos de Access, y de acuerdo con cada opción del select con un input tipo "submit" se habilitan formularios diferentes en la misma página, esto ya funciona, sin embargo, al accionar el input no se visualiza en el select la opción escogida... quedando en blanco aún cuando internamiente guarda el valor seleccionado...


DonGato
Moderator

España
263 Posts
Posted - 17 Sep 2008 :  00:30:10  Ver perfil  Enviar e-mail  Visit DonGato's Homepage
para hacer eso deberias montar la selec justo despues de cada formulario, de forma que fuera recogiendo los valores que has rellenado en dicho formulario y puedas ejecutar dicha seleccion.
Pon el codigo y lo revisamos, si quieres.

Inicio Pagina

Isladirectorio
Starting Member

Venezuela
14 Posts
Posted - 21 Sep 2008 :  16:05:37  Ver perfil  Enviar e-mail  Visit Isladirectorio's Homepage
Yo cargo en un arreglo los valores del SELECT. Cuando se crea el select un if compara el valor que viene en el post con el arreglo. si coincide lo marco como selected

CarlosInicio Pagina

MONINAMOON
Starting Member

Colombia
9 Posts
Posted - 24 Sep 2008 :  22:58:01  Ver perfil  Enviar e-mail
quote:

Si alguien me puede dar una luz... Gracias

Es posible mostrar en la página original el valor de un select, una vez se haya enviado los datos del formulario a través del input????

Resulta que tengo un etiqueta select que toma los datos de Access, y de acuerdo con cada opción del select con un input tipo "submit" se habilitan formularios diferentes en la misma página, esto ya funciona, sin embargo, al accionar el input no se visualiza en el select la opción escogida... quedando en blanco aún cuando internamiente guarda el valor seleccionado...


<form name="sample2" method="POST" "clientes_gestion.asp" onSubmit = "return valida_campos(this)">
<div align="center">
<table border="3" bordercolor="#C0C0C0" >
<tr>
<td height="21" colspan="2" style="background-color: #C0C0C0">
<p align="center"><b><font face="Verdana" size="2">INFORMACIÓN DE SOLICITUD</b></td>

</tr>

<tr>
<td bgcolor="#336699" align="center">
<p style="margin-top: 0; margin-bottom: 0">
<b><font face="Verdana" size="2" color="#FFFFFF">NRO. ID</font></b></td>

<td align="center" style="background-color: #C0C0C0">
<font face="Verdana" size="2"><%=RS("IDSOL")%></font></td>
</tr>

<tr>
<td bgcolor="#336699" align="center">
<b><font face="Verdana" size="2" color="#FFFFFF">FECHA SOLICITUD</font></b></td>

<td align="center" style="background-color: #C0C0C0">
<font face="Verdana" size="2"><%=RS("FECHAENVIO")%></font></td>
</tr>

<tr>
<td bgcolor="#336699" align="center">
<b><font face="Verdana" size="2" color="#FFFFFF">CENTRO DE SERVICIO</font></b></td>

<td align="center" style="background-color: #C0C0C0">
<font face="Verdana" size="2"><%=RS("DETALLE_CSC")%></font></td>
</tr>

<tr>
<td bgcolor="#336699" align="center">
<b><font face="Verdana" size="2" color="#FFFFFF">USUARIO SOLICITANTE</font></b></td>

<td align="center" style="background-color: #C0C0C0">
<font face="Verdana" size="2"><%=RS("NOMBRECOMPLETO")%></font></td>
</tr>

<tr>
<td bgcolor="#336699" align="center">
<b><font face="Verdana" size="2" color="#FFFFFF">NRO. CUENTA</font></b></td>

<td align="center" style="background-color: #C0C0C0">
<font face="Verdana" size="2"><%=RS("NROCUENTA")%></td>
</tr>

<tr>
<td bgcolor="#336699" align="center">
<b><font face="Verdana" size="2" color="#FFFFFF">CICLO</font></b></td>

<td align="center" style="background-color: #C0C0C0">
<font face="Verdana" size="2"><%=RS("CICLO")%></font></td>
</tr>

<tr>
<td bgcolor="#336699" align="center">
<b><font face="Verdana" size="2" color="#FFFFFF">NRO. TURNO</font></b></td>

<td align="center" style="background-color: #C0C0C0">
<font face="Verdana" size="2"><%=RS("NROTURNO")%></td>
</tr>

<tr>
<td bgcolor="#336699" align="center">
<b><font face="Verdana" size="2" color="#FFFFFF">CLASIFICACIÓN</font></b></td>

<td align="center" style="background-color: #C0C0C0">
<font face="Verdana" size="2"><%=RS("DETCLASIF")%></td>
</tr>

<tr>
<td bgcolor="#336699" align="center">
<b><font face="Verdana" size="2" color="#FFFFFF">SOPORTE</font></b></td>

<td align="center" style="background-color: #C0C0C0">
<font face="Verdana" size="2"><%=RS("DETSOPORTE")%></td>
</tr>

<tr>
<td bgcolor="#336699" align="center">
<b><font face="Verdana" size="2" color="#FFFFFF">OBSERVACIONES - SOLICITUD</font></b></td>

<td align="center" style="background-color: #C0C0C0" width="300">
<font face="Verdana" size="2"><%=RS("DETSOLICITUD")%></td>
</tr>
</table>
</div>
</form>


<form name="sample1" method="POST" "clientes_gestion.asp" onSubmit = "return valida_campos(this)">
<div align="center">

<p style="margin-top: 1px; margin-bottom: 1px">&nbsp;</p>
<table border="3" bordercolor="#C0C0C0" >
<tr>
<td height="21" colspan="2" style="background-color: #C0C0C0">
<p align="center"><font face="Verdana" size="2"><b>INFORMACIÓN DE GESTIÓN</b></td>

</tr>
<tr>
<td bgcolor="#336699" align="center">
<b><font face="Verdana" size="2" color="#FFFFFF">RESPUESTA</font> </b> </td>

<td align="center" style="background-color: #C0C0C0">
<select size="1" name="respuesta" style="font-family: Verdana" tabindex="1" style="background-color: #F0F0F0">
<%

set conexion=Server.CreateObject("ADODB.connection")
'conexion.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\intranet\interpub\www\comercial\ajustes\DBPRUEBA\refacturaciones_csc\base_datos\REFACTURACIONES.mdb"
conexion.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\intranet\interpub\www\comercial\ajustes\DBPRUEBA\refacturaciones_csc\base_datos\REFACTURACIONES5.mdb"
sql = "SELECT * FROM ESTADOS"
Set RS = conexion.Execute (sql)
Response.write "<option value= >"&""&" </option>"
DO WHILE NOT RS.EOF
Response.write "<option value='"& RS("CODESTADO")& "'>" & RS("DETESTADO")& " </option>"
RS.moveNEXT
LOOP
session("RESPUESTA") = Request.Form("respuesta")
'Response.write "<option value='"& RS("CODESTADO")& "' selected>" & RS("DETESTADO")& " </option>"
conexion.close

%>
</select>
<input type="submit" value="Continuar" name="B1" tabindex="2" >
</td>
</tr>
</table>
</div>
</form>

<%IF NOT request.form="" THEN

IF session("RESPUESTA") = "RES001" THEN%>
<form name="sample3" method="POST" "clientes_gestion.asp">
<div align="center">
<table border="3" bordercolor="#C0C0C0" >

<tr>
<td bgcolor="#336699" align="center">
<b><font face="Verdana" size="2" color="#FFFFFF">OBSERVACIONES - GESTIÓN</font></b><p style="margin-top: 0; margin-bottom: 0">
<b><font face="Verdana" size="2" color="#FFFFFF">(Máximo 255 Caracteres)</font></b></p>
<p style="margin-top: 0; margin-bottom: 0">
<input size="3" name="CONTADOR1" readonly="READONLY" disable="DISABLED" style="background-color: #F0F0F0; "></td>

<td align="center" style="background-color: #C0C0C0">
<textarea rows="6" name="OBS_GESTION" cols="55" style="background-color: #F0F0F0" tabindex="2" WRAP="physical" maxlength="255" onkeyup="ismaxlength(this)" onkeypress="reVisar1()"></textarea> </td>
</tr>

<tr>
<td bgcolor="#336699" align="center">
<b><font face="Verdana" size="2" color="#FFFFFF">RETROALIMENTACIÓN</font> </b> </td>

<td align="center" style="background-color: #C0C0C0">
<select size="1" name="retroalimenta" style="font-family: Verdana" tabindex="1" style="background-color: #F0F0F0">
<%set conexion=Server.CreateObject("ADODB.connection")
'conexion.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\intranet\interpub\www\comercial\ajustes\DBPRUEBA\refacturaciones_csc\base_datos\REFACTURACIONES.mdb"
conexion.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\intranet\interpub\www\comercial\ajustes\DBPRUEBA\refacturaciones_csc\base_datos\REFACTURACIONES5.mdb"
sql = "SELECT * FROM RETROALIMENTACION"
Set RS = conexion.Execute (sql)
Response.write "<option value= >"&""&" </option>"
DO WHILE NOT RS.EOF
Response.write "<option value='"& RS("CODRETROALIM")& "'>" & RS("DETRETROALIM")& " </option>"
RS.moveNEXT
LOOP
conexion.close
%>
</select></td>
</tr>

<tr>
<td bgcolor="#336699" align="center">
<p style="margin-top: 1px; margin-bottom: 1px">
<b><font face="Verdana" size="2" color="#FFFFFF">NRO. REFACTURACIÓN</font></b></td>

<td align="center" style="background-color: #C0C0C0">
<p style="margin-top: 1px; margin-bottom: 1px">
<font face="Verdana" size="2">
<input type="text" name="NROAJUSTE" size="8" tabindex="1" maxlength="8" onkeypress="return isNumber(this)"></font></td>
</tr>

<tr>
<td bgcolor="#336699" align="center">
<p style="margin-top: 1px; margin-bottom: 1px">
<b><font face="Verdana" size="2" color="#FFFFFF">VALOR REFACTURACIÓN</font></b></td>

<td align="center" style="background-color: #C0C0C0">
<p style="margin-top: 1px; margin-bottom: 1px">
<font face="Verdana" size="2">
<input type="text" name="VALORAJUSTE" size="5" tabindex="2" maxlength="5" onkeypress="return isNumber(this)"></font></td>
</tr>
</table>


<p style="margin-top: 1px; margin-bottom: 1px">&nbsp;</p>
<p style="margin-top: 1px; margin-bottom: 1px">


<input type="submit" value="Enviar" name="B1" tabindex="3">
<input type="reset" value="Cancelar" name="B2" tabindex="4">
<input name="confirma_gestion" type="hidden" value="na" size="1">


</div>
</form>


<%ELSE
IF session("RESPUESTA") = "RES002" THEN%>
<form name="sample4" method="POST" "clientes_gestion.asp" >
<div align="center">
<table border="3" bordercolor="#C0C0C0" >

<tr>
<td bgcolor="#336699" align="center">
<b><font face="Verdana" size="2" color="#FFFFFF">OBSERVACIONES - GESTIÓN</font></b><p style="margin-top: 0; margin-bottom: 0">
<b><font face="Verdana" size="2" color="#FFFFFF">(Máximo 255 Caracteres)</font></b></p>
<p style="margin-top: 0; margin-bottom: 0">
<input size="3" name="CONTADOR1" readonly="READONLY" disable="DISABLED" style="background-color: #F0F0F0; "></td>

<td align="center" style="background-color: #C0C0C0">
<textarea rows="6" name="OBS_GESTION" cols="55" style="background-color: #F0F0F0" tabindex="2" WRAP="physical" maxlength="255" onkeyup="ismaxlength(this)" onkeypress="reVisar1()"></textarea> </td>
</tr>

<tr>
<td bgcolor="#336699" align="center">
<b><font face="Verdana" size="2" color="#FFFFFF">RETROALIMENTACIÓN</font> </b> </td>

<td align="center" style="background-color: #C0C0C0">
<select size="1" name="retroalimenta" style="font-family: Verdana" tabindex="1" style="background-color: #F0F0F0">
<%set conexion=Server.CreateObject("ADODB.connection")
'conexion.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\intranet\interpub\www\comercial\ajustes\DBPRUEBA\refacturaciones_csc\base_datos\REFACTURACIONES.mdb"
conexion.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\intranet\interpub\www\comercial\ajustes\DBPRUEBA\refacturaciones_csc\base_datos\REFACTURACIONES5.mdb"
sql = "SELECT * FROM RETROALIMENTACION"
Set RS = conexion.Execute (sql)
Response.write "<option value= >"&""&" </option>"
DO WHILE NOT RS.EOF
Response.write "<option value='"& RS("CODRETROALIM")& "'>" & RS("DETRETROALIM")& " </option>"
RS.moveNEXT
LOOP
conexion.close
%>
</select></td>
</tr>

<tr>
<td bgcolor="#336699" align="center">
<p style="margin-top: 0; margin-bottom: 0">
<b><font face="Verdana" size="2" color="#FFFFFF">MOTIVO DEVOLUCIÓN</font></b></td>

<td align="center" style="background-color: #C0C0C0">
<font face="Verdana" size="2">
<select size="1" name="motivodev" style="font-family: Verdana" tabindex="1" style="background-color: #F0F0F0">
<%set conexion=Server.CreateObject("ADODB.connection")
'conexion.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\intranet\interpub\www\comercial\ajustes\DBPRUEBA\refacturaciones_csc\base_datos\REFACTURACIONES.mdb"
conexion.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\intranet\interpub\www\comercial\ajustes\DBPRUEBA\refacturaciones_csc\base_datos\REFACTURACIONES5.mdb"
sql = "SELECT * FROM MOTIVODEV"
Set RS = conexion.Execute (sql)
Response.write "<option value= >"&""&" </option>"
DO WHILE NOT RS.EOF
Response.write "<option value='"& RS("CODDEV")& "'>" & RS("MOTIVODEV")& " </option>"
RS.moveNEXT
LOOP
conexion.close
%>
</select></font></td>
</tr>
</table>

<p style="margin-top: 1px; margin-bottom: 1px">&nbsp;</p>
<p style="margin-top: 1px; margin-bottom: 1px">

<input type="submit" value="Enviar" name="B1" tabindex="3">
<input type="reset" value="Cancelar" name="B2" tabindex="4">
<input name="confirma_gestion" type="hidden" value="na" size="1">
<%END IF%>
<%END IF%>
<%END IF%>
</div>
</form>



Inicio Pagina

Isladirectorio
Starting Member

Venezuela
14 Posts
Posted - 25 Sep 2008 :  02:01:14  Ver perfil  Enviar e-mail  Visit Isladirectorio's Homepage
No entendi del todo el codigo, pero aqui trataré de ilustrarte cómo lo hago yo.
<select size="1" name="retroalimenta" style="font-family: Verdana" tabindex="1" style="background-color: #F0F0F0">
<%
'*******************************************
Dim tuVar
tuVar=Request.Form("nombre_del_select")
'*******************************************
set conexion=Server.CreateObject("ADODB.connection")
'conexion.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\intranet\interpub\www\comercial\ajustes\DBPRUEBA\refacturaciones_csc\base_datos\REFACTURACIONES.mdb"
conexion.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\intranet\interpub\www\comercial\ajustes\DBPRUEBA\refacturaciones_csc\base_datos\REFACTURACIONES5.mdb"
sql = "SELECT * FROM RETROALIMENTACION"
Set RS = conexion.Execute (sql)
Response.write "<option value= >"&""&" </option>"
DO WHILE NOT RS.EOF
'*****************************
if Trim(tuVar)=Trim(RS("EL_CAMPO_ORIGEN_DEL SELECT")) then
'****************************
Response.write "<option selected value='"& RS("CODRETROALIM")& "'>" & RS("DETRETROALIM")& " </option>"
else
Response.write "<option value='"& RS("CODRETROALIM")& "'>" & RS("DETRETROALIM")& " </option>"
end if
RS.moveNEXT
LOOP
conexion.close
%>
</select></td>
</tr>
Debes corregir algunas Disabled
Atte Carlos

CarlosInicio Pagina

MONINAMOON
Starting Member

Colombia
9 Posts
Posted - 30 Sep 2008 :  22:43:58  Ver perfil  Enviar e-mail
Carlos, mil y mil gracias.
Efectivamente eso era lo que necesitaba...

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar