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 = "Data Source=NUWAPKEFILEDEV\SHAREPOINT;Initial Catalog=Login;User ID=sa;Password=Pf1z3rsa"

connection.Open()

Dim queryString As String = "INSERT INTO Rechazos" & _

"(Nombre, Fecha, Hora) Values('" & usu.Text & "', '" & TextBox1.Text & "', '" & TextBox2.Text & "')"

Dim command As SqlCommand = New SqlCommand(queryString, connection)

Dim recordsAffected As Int32 = command.ExecuteNonQuery()

connection.Close()

End If

Dim correo As New System.Net.Mail.MailMessage()

correo.From = New System.Net.Mail.MailAddress("walter.moreno@aspenpharmalatam.com")

correo.To.Add("walter.moreno@pfizer.com")

correo.Subject = usu.Text & " Usuario no Autorizado"

correo.Body = "El Usuario " & usu.Text & " intento registrarse de forma fallida al Sistema de Comedor el día " & TextBox1.Text & " a las " & TextBox2.Text

correo.IsBodyHtml = True

correo.Priority = System.Net.Mail.MailPriority.Normal

Dim smtp As New System.Net.Mail.SmtpClient

smtp.Host = "ndhsmtp.amer.pfizer.com"

smtp.Port = 25 ' 464 si la cuenta es de Gmail

smtp.EnableSsl = False ' True si la cuenta es de Gmail

Try

smtp.Send(correo)

Catch ex As Exception

Response.Write(ex)

End Try

End If

End Sub

Protected

...