Ver Mensaje Individual
  #12 (permalink)  
Antiguo 22/05/2007, 09:12
Avatar de soorellana
soorellana
 
Fecha de Ingreso: mayo-2007
Mensajes: 9
Antigüedad: 17 años, 8 meses
Puntos: 0
Re: Recoger dato de lista desplegable

Te voy a hacer una pequeña demostración para veas lo facil que es.

1. Copia el siguiente cdigo, pégalo en un nuevo archivo y nómbralo formulario.html


Código:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Añadir Noticia</title>
</head>
<body>
	<div style="width:720px;text-align:center">
	<h1>Digita el texto de la noticia</h1>
		<form action="procesar.asp" id="frmAddNoticia" name="frmAddNoticia" enctype="application/x-www-form-urlencoded" method="post" >
		<fieldset>
		<p><textarea name="noticia" rows="8" cols="80" ></textarea></p>
		<p><select name="cate">
              <option value="comics">Comics</option> 
              <option value="conciertos">Conciertos</option>
              <option value="discos">Discos</option> 
              <option value="grupos">Grupos</option> 
              <option value="juegos">Juegos</option> 
              <option value="locales">Locales</option> 
              <option value="peliculas">Peliculas</option> 
              <option value="restaurantes">Restaurantes</option> 
              <option value="salaexposiciones">Salas de Exposiciones</option> 
              <option value="salasconciertos">Salas de Conciertos</option> 
              <option value="teatros">Teatros</option>
	      </select>
		  <input type="submit" name="submit" value="Guardar" />
		  <input type="hidden" name="variable1" value="12346" />
		  <input type="hidden" name="variable2" value="Ya ves que facil es" /></p>
		 </fieldset>
		 </form>		 
	</div>		 
</body>
</html>
2. Ahora copia el siguiente código y ponle como nombre procesar.asp

Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
	Dim noticia
	Dim cate
	Dim variable1
	Dim variable2
	if request.Form("noticia")<>"" then
		noticia = replace(trim(request.Form("noticia")),vbcrlf,"<br />")
	end if
	if request.Form("cate")<>"" then
		cate = trim(request.Form("cate"))
	end if	
	if request.Form("variable1")<>"" then
		variable1 = request.Form("variable1") 
	end if		
	if request.Form("variable2")<>"" then
		variable2 = request.Form("variable2") 
	end if					
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Procesar Formulario. ASP</title>
</head>
<body>
	<h1>La noticia es la siguiente</h1>
	<h2>Cuerpo</h2>
	<%=noticia%>
	<h2>Categoria</h2>
	<%=cate%>
	<h3>Variable Oculta 1</h3>
	<%=variable1%>
	<h3>Variable Oculta 2</h3>
	<%=variable2%>
	<p><a href="formulario.html">Volver</a></p>
</body>
</html>
Ahora copia ambos archivos en tu carpeta wwwroot del IIS y dirígete a:
localhost/formulario.html para que lo compruebes.

Saludos,

Sergio.