03/04/2013, 11:49
|
| | | Fecha de Ingreso: mayo-2001 Ubicación: Monterrey, N.L.; México
Mensajes: 558
Antigüedad: 23 años, 5 meses Puntos: 0 | |
| Respuesta: verificar registro y luego enviar formulario
De manera rápida, podrias intentar lo siguiente: CEDULA.ASP Cita: <body>
<p>Ingresa numero de cedula</p>
<form method="POST" name="Cedula" action=" valida_cedula.asp">
<p><input type="text" name="T1" size="20"></p>
<p><input type="submit" value="Validar" name="B1"></p>
</form>
</body> VALIDA.CEDULA.ASP Cita: <%
//Confirmamos que el campo "cedula" tengo algo escrito, sí no, lo regresamos a la misma página
IF request.form("Cedula") = "" then
response.redirect "Cedula.asp"
%>
<%
// En caso contrario, validamos en la Base de Datos (En este ejemplo es access) sí existe o no el registro
Else
Dim cedula_ingresada
cedula_ingresada=replace(request.form("cedula"),"' ","")
Path=Server.MapPath("DB\MI_BD_ACCESS.accdb")
Set ConexionBD = Server.CreateObject("ADODB.Connection")
ConexionBD.Open "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=" & Path
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM Tabla_En_BD WHERE NumCedula_En_BD='"&cedula_ingresada&"'
rs.Open sql, ConexionBD
if not rs.eof then
//Sí el dato existe, le puedes crear una sesion (puedes quitar esas lineas) y lo mandas a cualquier pagina que quieras. Con la sesion, puedes "jugar" en las páginas subsecuentes.
session("autorizacion")=1
response.redirect "Cualquier_Pagina.asp"
end if
// De no existir la cedula, lo mandas a algun formulario de registro de datos
ELSE
response.redirect "Registrar-Cedula.asp"
end if
end if
%>
Espero te sirva este ejemplo sencillo
Saludos
__________________ Luis Gerardo Soto Bonilla
[email protected]
Monterrey, Nuevo León
México
|