15/07/2008, 09:36
|
| | | Fecha de Ingreso: mayo-2008
Mensajes: 41
Antigüedad: 17 años, 5 meses Puntos: 0 | |
 enviar dato de un formelario a otro
Le vengo nuevamente a pedirle ayuda pues tengo un problemita resulta que le estoy viendo el asunto de seguridad de mi programa pero necesito que conservar los datos de Rut y del nombre para enviarlo al otro formulario mí problema es que no alcanza a llega y se queda en la barra de dirección que puedo hacer para que el formulario prueba recia os datos ingresa en identificación.
Donde recibe la dirección los datos es analisis.asp
<html>
<head>
<title>Buscar.asp</title>
</head>
<body>
<%
nombre=request.form("nombre")
rut=request.form("rut")
calidad=request.form("calidad")
Dim conectar,RS
Set conectar=Server.CreateObject("adodb.connection")
Set RS=Server.CreateObject("adodb.recordset")
Dim sql
Rango=Request("Tipo")
conectar.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\PAGINA\cobranza.md b"
'conectar.open "cobranza_sql"
sql="Select * From I_usuario Where UCase([nombre])='" & UCase(Request("nombre")) & "' and UCase([rut])='" & UCase(Request("rut")) & "'"
if (calidad = "administrador") then
response.redirect "claveadministrador.asp"
else
response.redirect "prueba.asp?nombre=" & nombre & "&rut=" & rut
end if
RS.Open sql, conectar
If RS.BOF And RS.EOF Then
response.redirect "identificacion.asp"
End If
%>
</body>
</html>
Y lo debería recibir prueba.asp
<html>
<head>
<title>pagina inicial.asp</title>
</head>
<body>
<%
nombres=request.form("nombre")
response.Write(nombres)
ruts=request.form("rut")
response.Write(ruts)
%>
</body>
</html> |