Tema: ayuda
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 06/07/2007, 15:05
stephen64_14
 
Fecha de Ingreso: julio-2007
Ubicación: barranquilla, colombia
Mensajes: 16
Antigüedad: 17 años, 10 meses
Puntos: 0
Re: ayuda

consultar.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>CONSULTA PACIENTE</title>
</head>

<body>

<center>
<form name="consulta" action="opcion_consulta.asp" method="post">
INGRESE DATOS: <select name='opcion'>

<option value='0'></option>
<option value='1'>IDENTIFICACION</option>
<option value='2'>NOMBRES</option>
<option value='3'>APELLIDO</option>
</select>
<input type='text' name='buscar'>
<input type='Submit' name='consulta' value='Consultar'>


</form>
</center>
</body>
</html>


opcion_consulta.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title></title>
</head>

<body>
<%
opcion = request.Form("opcion")

if opcion = 0 then
response.Write("¡¡DEBE INGRESAR UNA OPCION PARA INICIAR LA BUSQUEDA!!")
end if

if opcion = 1 then
response.Redirect("mostrar_consulta_id.asp")
end if

%>
</body>
</html>

mostrar_consulta_id.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="/conexion.asp" -->
<%

'buscar = request.Form("buscar")
response.Write(buscar)




%>
<html>
<head>
<title></title>
</head>

<body>

</body>
</html>


quiero q en mostrar_consulta_id.asp me muestre lo q digite en la caja de texto...