Exportar Historico Excel, liga gps

Sistemas/PopUpAddUsuario.aspx.vb

@@ -576,12 +576,18 @@ Partial Class Sistemas_PopUpAddUsuario
             Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")
         End If
         ObjUsuarios.Dispose()
-    End Sub
-
+    End Sub
+
 #Region "MANDAR CORREOS"
     Private Function EnviaCorreo(Liga As String, LigaActivar As String) As String
         Dim Retorno As String = ""
         Try
+            Dim URL As String = UrlSitio
+
+            If UsuarioActual.Empresa.CvePlataforma = 3 Then
+                URL = "https://gps.signalsgps.com/"
+            End If
+
             Dim Para = TxtEmail.Text.Trim
             Dim Asunto = ""
             If CveCliente > 0 Then
@@ -621,7 +627,7 @@ Partial Class Sistemas_PopUpAddUsuario
             SBBody.Append("<div Class='nota'>")
             SBBody.Append("Nota Favor de NO responder este correo. ")
             SBBody.Append("</div><br/><br/>")
-            SBBody.AppendFormat("<div class='logo'><img src='{0}Imagenes/LogoSinFondo.png' style='width:30px;'/>ADSistemas </div>", UrlSitio)
+            SBBody.AppendFormat("<div class='logo'><img src='{0}Imagenes/LogoSinFondo.png' style='width:30px;'/>ADSistemas </div>", URL)
             SBBody.Append("</div>")
             SBBody.Append("</div>")
             'Termino Cuerpo del correo