AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2021-11-30 11:20:17 -07:00
parent ba23b700fb
commit a33cd70581
3 changed files with 21 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Ashx/SIGWeb.ashx
View File

@@ -148,23 +148,23 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
If Not IsNothing(obj) Then
nombre = obj.ToString()
End If
obj = context.Request("Correo")
obj = context.Request("Correo").Trim()
If Not IsNothing(obj) Then
correo = obj.ToString()
End If
obj = context.Request("Asunto")
obj = context.Request("Asunto").Trim()
If Not IsNothing(obj) Then
asunto = obj.ToString()
End If
obj = context.Request("Cuerpo")
obj = context.Request("Cuerpo").Trim()
If Not IsNothing(obj) Then
cuerpo = obj.ToString().Replace("< ", "<")
cuerpo = obj.ToString().Replace("< ", "<").Trim()
End If
Dim Body As String = String.Format("Prospecto : {0}<br/>Correo : {1}<br/>Asunto : {2}<br/><br/>{3}", nombre, correo, asunto, cuerpo)
Dim para As String = "contacto@localizacionprecisa.com;caudillo.90d@gmail.com;"
'para = ""
Dim Mail As New ClsSisMail()
If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "NotificaciónProspecto", Body) Then
If (nombre.Length > 0 Or correo.Length > 0) AndAlso Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "Notificación prospecto", Body) Then
retorno = "true"
Else
retorno = "false"
@@ -180,25 +180,25 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim cuerpo As String = ""
Dim obj = context.Request("Nombre") 'Nombre=' + $('#Nombre').val() +'Correo=' + $('#Correo').val() +'Sitio=' + $('#Sitio').val() +'Cuerpo=' + $('#Cuerpo').val() +
If Not IsNothing(obj) Then
nombre = obj.ToString()
nombre = obj.ToString().Trim()
End If
obj = context.Request("Correo")
If Not IsNothing(obj) Then
correo = obj.ToString()
correo = obj.ToString().Trim()
End If
obj = context.Request("Phone")
If Not IsNothing(obj) Then
Phone = obj.ToString()
Phone = obj.ToString().Trim()
End If
obj = context.Request("Cuerpo")
If Not IsNothing(obj) Then
cuerpo = obj.ToString().Replace("< ", "<")
cuerpo = obj.ToString().Replace("< ", "<").Trim()
End If
Dim Body As String = String.Format("Solicitó : {0}<br/>Correo : {1}<br/>Telefono : {2}<br/><br/>{3}", nombre, correo, Phone, cuerpo)
Dim para As String = "paola@adssistemas.mx;caudillo.90d@gmail.com;"
'para = ""
Dim Mail As New ClsSisMail()
If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "NotificaciónProspecto", Body) Then
If (nombre.Length > 0 Or correo.Length > 0) AndAlso Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "Notificación contacto pagina", Body) Then
retorno = "true"
Else
retorno = "false"
@@ -214,25 +214,25 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim cuerpo As String = ""
Dim obj = context.Request("Nombre") 'Nombre=' + $('#Nombre').val() +'Correo=' + $('#Correo').val() +'Sitio=' + $('#Sitio').val() +'Cuerpo=' + $('#Cuerpo').val() +
If Not IsNothing(obj) Then
nombre = obj.ToString()
nombre = obj.ToString().Trim()
End If
obj = context.Request("Correo")
obj = context.Request("Correo").Trim()
If Not IsNothing(obj) Then
correo = obj.ToString()
End If
obj = context.Request("Sitio")
obj = context.Request("Sitio").Trim()
If Not IsNothing(obj) Then
sitio = obj.ToString()
End If
obj = context.Request("Cuerpo")
obj = context.Request("Cuerpo").Trim()
If Not IsNothing(obj) Then
cuerpo = obj.ToString().Replace("< ", "<")
cuerpo = obj.ToString().Replace("< ", "<").Trim()
End If
Dim Body As String = String.Format("Prospecto : {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;caudillo.90d@gmail.com;"
'para = ""
Dim Mail As New ClsSisMail()
If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "NotificaciónProspecto", Body) Then
If (nombre.Length > 0 Or correo.Length > 0) AndAlso Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "NotificaciónProspecto", Body) Then
retorno = "true"
Else
retorno = "false"