Ashx/SIGWeb.ashx

@@ -49,12 +49,48 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                     context.Response.Write(ValidaCURP(context.Request("Curp").ToString()))
                 Case "sendMail"
                     context.Response.Write(sendMail(context))
+                Case "sendMailLPM"
+                    context.Response.Write(sendMail(context))
 
             End Select
         Catch ex As Exception
             ex.GuardaLog(ex.Message)
         End Try
     End Sub
+
+    Private Function sendMailLPM(context As HttpContext) As String
+        Dim retorno As String = "true"
+        Dim nombre As String = ""
+        Dim correo As String = ""
+        Dim asunto As String = ""
+        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()
+        End If
+        obj = context.Request("Correo")
+        If Not IsNothing(obj) Then
+            correo = obj.ToString()
+        End If
+        obj = context.Request("Asunto")
+        If Not IsNothing(obj) Then
+            asunto = obj.ToString()
+        End If
+        obj = context.Request("Cuerpo")
+        If Not IsNothing(obj) Then
+            cuerpo = obj.ToString().Replace("< ", "<")
+        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
+            retorno = "true"
+        Else
+            retorno = "false"
+        End If
+        Return retorno
+    End Function
     Private Function sendMail(context As HttpContext) As String
         Dim retorno As String = "true"
         Dim nombre As String = ""