Ver Mensaje Individual
  #3 (permalink)  
Antiguo 09/07/2002, 17:28
jpalbox
 
Fecha de Ingreso: abril-2002
Mensajes: 432
Antigüedad: 23 años, 1 mes
Puntos: 0
Re: Exprtos en asp. Como soluciono esto??

sigue sin funcionar.

yo estoy dentro de la pagina

http://www10.brinkster.com/kronosalbox/kronos.asp?titulo=Este%20gimnasio%20...%20&con tenido=opinar.asp

que esta compuesta por tres frames que he combinado en la pagina kronos asp como he puesto antes, resulta que si intento mandar un nombre de usuario y contraseña desde la pagina que ocupa el contenido el redirect se ejecuta en ese contenido generandome otro encabezado, otro pie, otro contenido, dentro del contenido de la pagina anterior y yo lo q quiero ese otro encabezado, contenido y pie sustituyan al anterior no se si me expliq a aqui pongo el codigo de la pagina de comprobacion a la q se dirige cuando introduzco el ussuario y contraseña.
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "kronos.asp?titulo=Acceso usuarios&contenido=usuario.htm"
Else
'Guardamos los datos del Form en variables.
usuario = Request.Form("usuario")
password = Request.Form("password")
'Conectamos a nuestra BD.
Set con = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\jpalbox\db\usuarios.mdb&quot ;))
'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
sql = "SELECT * FROM Personal WHERE usuario='"&usuario&"' and nsocio <>''"
rs.Open sql, con
'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
'ERROR USUARIO
If rs.EOF = True then
Response.Redirect "kronos.asp?titulo=Acceso usuarios&contenido=err04.htm"
Else
'USUARIO CORRECTO Y CONTRASEÑA OK
If rs.Fields("password") = password then
Session ("krus")=usuario
Session ("paso")=password
Session.Timeout=1
response.redirect "kronos.asp?titulo=ERROR&contenido=kronos .asp?titulo=Area Usuarios&contenido=marcos.htm"
'ERROR contraseña
Else
Response.Redirect "err04.htm"
'Limpiamos y cerramos.
con.Close
Set con = Nothing

End If
End If
End if