Brincarse Pagina Login

[mrprogman]

ya los vi..gracias por tu respuesta, pero no es precisamente lo que busco, yo estoy utilizando variables de session..este es mi codigo..el problema es que si meten la direccion de la pagina 2..entra sin problemas..saludos


Session("usuario") = TextBox1.Text
Session("permiso") = TextBox2.Text
Dim conexion As String = ("Data Source=192.168.10.20;Initial Catalog=sistemas;Persist Security Info=True;User ID=sa;Password=stm01")
Dim usuario As String
Dim clave As String
'Dim permiso As String
'Server.Transfer("default.aspx")
Dim aceptado As Boolean = False
usuario = Me.TextBox1.Text.Trim()
clave = Me.TextBox2.Text.Trim()
' permiso = Me.TextBox3.Text.Trim()

Dim myConn As New SqlConnection(conexion)
Dim consulta As New SqlCommand("select * from usuarios WHERE usuario ='" & usuario & "' AND clave ='" & clave & "' ", myConn)

myConn.Open()
Dim leerbd As SqlDataReader = consulta.ExecuteReader()
If leerbd.Read <> False Then
aceptado = True
Else
aceptado = False
End If
If aceptado = True Then

Server.Transfer("Default.aspx")

Else
Label3.Text = "Acceso Denegado"
End If
myConn.Close()