LOGIN INGRESO

Imports System.Collections.Generic

Imports System.Linq

Imports System.Web

Imports System.Web.UI

Imports System.Web.UI.WebControls

Imports System.Net.Mail

Imports System.Net

Imports System.Data

Imports System.Data.SqlClient

Partial Class _Default

Inherits System.Web.UI.Page

Dim connection As New SqlConnection

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Label3.Text = DateTime.Now.ToLongDateString()

Msg.Text = " "

usu.Focus()

End Sub

Protected Sub usu_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles usu.TextChanged

Dim numero As Integer

Dim dvSql As DataView = DirectCast(SqlDataSource1.Select(DataSourceSelectArguments.Empty), DataView)

If usu.Text = "AdminTol" Then

Response.Redirect("Reportes.aspx")

ElseIf usu.Text = "AdmonToluca" Then

Response.Redirect("Baja.aspx")

Else

If dvSql.Count > 0 Then

numero = 1

Else

usu.Focus()

Timer1.Enabled = True

Msg.Visible = True

Msg.Text = "ACCESO DENEGADO, Favor de Contactar al Administrador"

End If

If numero = 1 Then

Session("usuario") = dvSql(0).Item(0)

Response.Redirect("Pagina2.aspx")

Else

TextBox1.Text = DateTime.Now.ToLongDateString()

TextBox2.Text = TimeString

connection.ConnectionString

...