Ver Mensaje Individual
  #4 (permalink)  
Antiguo 10/10/2006, 06:44
GaRcY
 
Fecha de Ingreso: octubre-2003
Ubicación: Pucela
Mensajes: 182
Antigüedad: 21 años, 5 meses
Puntos: 0
He hecho esto que me dices y no funciona, te dejo lo que ejecuto en el global.asax (esto lo ejecuto en el session_start):

Dim mensaje, usuario, n_usuario As String
Dim Resultado, id, rol As Integer
Dim Tkt As FormsAuthenticationTicket
Dim fecha_ultima_v As DateTime
ConF = New OdbcConnection(ConfigurationSettings.AppSettings(" CConexionF"))
If Not IsDBNull(HttpContext.Current.User) Then
If HttpContext.Current.User.Identity.AuthenticationTy pe = "Forms" Then
Tkt = FormsAuthentication.Decrypt(Request.Cookies(FormsA uthentication.FormsCookieName).Value)
n_usuario = Tkt.Name
sql = "SELECT id_usuario,nombre,id_rol,fecha_ultima_v FROM usuarios WHERE n_usuario=?"
Cmd = New OdbcCommand(sql, ConF)
Cmd.Parameters.Add(New OdbcParameter("@N_usuario", OdbcType.VarChar, 30)).Value = n_usuario
Try
da = New OdbcDataAdapter(Cmd)
da.Fill(ds, "usuario")
Catch ex As Exception
Response.Write(ex)
End Try
'Si los datos de la cookie concuerdan con el numero de usuario de la base,
'le valido, si no, le borro la cookie.
Resultado = ds.Tables("usuario").Rows.Count
If Resultado = 0 Then
ds.Tables("usuario").Rows.Clear()
'Response.Redirect("cerrarSesion.aspx")
Else
id = ds.Tables("usuario").Rows(0)("id_usuario")
usuario = ds.Tables("usuario").Rows(0)("nombre")
rol = ds.Tables("usuario").Rows(0)("id_rol")
fecha_ultima_v = ds.Tables("usuario").Rows(0)("fecha_ultima_v")
ds.Tables("usuario").Rows.Clear()
Actualiza_Ultima_Visita()
Session("id") = id
Session("login") = usuario
Session("rol") = rol
Session("UltimaV") = fecha_ultima_v
End If
End If
End If

Mi problema esque no me recuerda al usuario.
__________________
El pasado ya ha pasado y el futuro todavía no ha pasado, es decir, vive el presente.