This commit is contained in:
@@ -47,12 +47,47 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
|
||||
context.Response.Write(GettingCURP(context.Request("Curp").ToString(), context.Request("year").ToString().ToEntero()))
|
||||
Case "ValidaCURP"
|
||||
context.Response.Write(ValidaCURP(context.Request("Curp").ToString()))
|
||||
Case "sendMail"
|
||||
context.Response.Write(sendMail(context))
|
||||
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
ex.GuardaLog(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Function sendMail(context As HttpContext) As String
|
||||
Dim retorno As String = "true"
|
||||
Dim nombre As String = ""
|
||||
Dim correo As String = ""
|
||||
Dim sitio As String = ""
|
||||
Dim cuerpo As String = ""
|
||||
Dim obj = context.Request("Nombre")
|
||||
If Not IsNothing(obj) Then
|
||||
nombre = obj.ToString()
|
||||
End If
|
||||
obj = context.Request("Correo")
|
||||
If Not IsNothing(obj) Then
|
||||
correo = obj.ToString()
|
||||
End If
|
||||
obj = context.Request("Sitio")
|
||||
If Not IsNothing(obj) Then
|
||||
sitio = obj.ToString()
|
||||
End If
|
||||
obj = context.Request("Cuerpo")
|
||||
If Not IsNothing(obj) Then
|
||||
cuerpo = obj.ToString()
|
||||
End If
|
||||
Dim Body As String = String.Format("Nombre : {0}<br/>Nombre : {0}<br/>Correo : {1}<br/>Sitio : {2}<br/><br/>{3}", nombre, correo, sitio, cuerpo)
|
||||
Dim para As String = "rene.molina@adssistemas.mx,sig.buzon@gmail.com,julian@adssistemas.mx;paola@adssistemas.mx;"
|
||||
para = "caudillo.90d@gmail.com"
|
||||
Dim Mail As New ClsSisMail()
|
||||
If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "NotificaciónProspecto", Body) Then
|
||||
retorno = "true"
|
||||
Else
|
||||
retorno = "false"
|
||||
End If
|
||||
Return retorno
|
||||
End Function
|
||||
|
||||
Private Sub GetUser(ByVal context As HttpContext)
|
||||
Dim usuario As String = context.Request("usuario").ToString()
|
||||
|
||||
Reference in New Issue
Block a user