25/03/2009, 15:30
|
| | | Fecha de Ingreso: enero-2009
Mensajes: 112
Antigüedad: 15 años, 3 meses Puntos: 0 | |
| Respuesta: redireccionar a pagina segun una variable
vale aqui te lo envio y nuevamente gracias por la ayuda!!!!!!
---------
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
'Para los redireccionamientos
Response.Buffer=True
Dim oConn, rs, SQL, usuario, password
'Recogemos el formulario
nombre=(Request.Form("usuario"))
password=(Request.Form("Password"))
'Si no lo ha enviado, es decir no hay nada en estas variables
'le presentamos el formulario
if nombre="" then
Response.Write("campos en blanco.")
else
'Validamos su identidad
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open (application("DBConn"))
SQL="SELECT usuario, Password FROM " & _
"Usuarios WHERE (usuario='"&nombre&"' AND Password='"&password&"');"
'Ejecutamos consulta
set rs=oConn.Execute(SQL)
if rs.EOF then
%>
Response.Write("NO existe usuario")
response.end
<%
else
Response.Write("SI existe usuario")
response.end
%>
<script language="javascript">window.parent.location.repla ce ('index.htm');</script>
</BODY>
</HTML> |