<% '[& '[& '[&Juhan Lozano '[&Octubre 26 2003 '[&Icono Multimedia Ltda '[&Migracion SE4 '[&1.0.0.0 '[& Dim stAntetitulo Dim stTitulo Dim stAutor Dim stSumario Dim numArticulo Dim RSURL Dim txtURL Dim txtDetalle Dim ElIdArticulo Dim RSTemp Dim IdSubtema Dim stEmail Dim stNombres Dim stEmpresa Dim stIdUsuario Dim stComentario Dim mensaje Dim codusuario Dim codreferido dim numCodEmpresa dim validarUsuariosEnvio validarUsuariosEnvio = false '''''''''''''''''''' Function URLDoc() Dim strProtocol Dim strDomain Dim strPath Dim strQueryString Dim strFullUrl If lcase(Request.ServerVariables("HTTPS")) = "on" Then strProtocol = "https" Else strProtocol = "http" End If strDomain= Request.ServerVariables("SERVER_NAME") strPath= Request.ServerVariables("SCRIPT_NAME") strQueryString= Request.ServerVariables("QUERY_STRING") strFullUrl = strProtocol & "://" & strDomain & strPath If Len(strQueryString) > 0 Then strFullUrl = strFullUrl & "?" & strQueryString End If If Session("URLOriginal") = "" Then Session("URLOriginal") = Replace(Replace(Replace(Replace(Request.QueryString("URL"),"L=1&","?"),"?IdArticulo="&Request.QueryString("IdArticulo") ,""),strPath,""),strQueryString,"") & "/gh4/" End If IF Request.QueryString("L") = "1" Then URLDoc = Replace(Replace(Replace(Request.QueryString("URL"),"?IdArticulo="&Request.QueryString("IdArticulo") ,""),strPath,""),strQueryString,"") Else URLDoc = Replace(Replace(Replace(Request.QueryString("URL"),"?IdArticulo="&Request.QueryString("IdArticulo") ,""),strPath,""),strQueryString,"") & "/gh4/" End IF End Function '''''''''''''''''''' Response.Write " <% Server.execute("Include/menu.asp") %> <% Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write("
" & VbCrLf) stAntetitulo = "" stTitulo = "" stAutor = "" stSumario = "" 'Herson alvarado 14 octubre Funcion para enviar correos amigos articulo Function fnMensajeArticulo (stNombres,stCargo,stComentario,stAntetitulo,stTitulo,stAutor,stSumario,TxtURL) stComentario = replace(Request("Comentario"), chr(13) , "
") mensaje = Texto("TXT_ArticuloInteresante_URL") mensaje = replace (mensaje, "[[nombre]]", stNombres) mensaje = replace (mensaje, "[[cargo]]", stCargo) mensaje = replace (mensaje, "[[comentario]]", stComentario) mensaje = replace (mensaje, "[[antetitulo]]", stAntetitulo) mensaje = replace (mensaje, "[[titulo]]", stTitulo) mensaje = replace (mensaje, "[[autor]]", stAutor) mensaje = replace (mensaje, "[[sumario]]", stSumario) 'Se adiciona vista previa en 1 para que el usuario pueda ver el articulo sin loguin mensaje = replace (mensaje, "[[url]]", URLOriginal & TxtURL & "?VistaPrevia=1") mensaje = replace (mensaje, "[[nombres]]", Request("Nombres")) Response.Write "" Response.Write "" if stNombres <> "" then 'Cambiar el valor de la validacion para indicar que se selecciono un usuario H.A validarUsuariosEnvio = true end if 'Insertar en referidos Cadena_SQL = "select count(*) from referidos where email='"&stEmail&"'" If session("IdUsuario")<>"" Then Cadena_SQL = Cadena_SQL & " and codusuario="&session("IdUsuario") Set rs = conn.execute(Cadena_SQL) If rs(0) = 0 Then if Session("IdUsuario") <> "" then Cadena_SQL = "INSERT INTO Referidos (Nombres,Email,Cargo,Empresa,CodWebsite,Codusuario,CodArticulo,fecha,comentario) VALUES ('" & stNombres & "','" & stEmail & "','"&stCargo&"','" & stEmpresa & "',1,"&Session("IdUsuario")&","&id_articulonew&",getdate(),'"&stComentario&"')" 'response.write Cadena_SQL Set RS = Conn.Execute(Cadena_SQL) End If End If ' Enviar mail if (id_articulonew <> "") AND (Not IsNull(id_articulonew)) then response.write "" Call prEnviarMailHTML (Application("MailEnvios"), "Gestionhumana.com", "Material interesante...", Mensaje, stEmail, stNombres) else Response.Write "NO HAS SELECCIONADO UN ARTÍCULO INTERESANTE !!! NO SE ENVIO CORREO " End if Response.write("
" & stNombres & " (" & stEmail & ")
") End Function if (id_articulonew <> "") AND (Not IsNull(id_articulonew)) then numArticulo = id_articulonew Cadena_SQL = "SELECT URL FROM ObjetoSE WHERE Id_ObjetoSE=" & numArticulo & "" Set RSURL = Conn.Execute(Cadena_SQL) If not RSURL.EOF then TxtURL=RSURL("URL") TXTdetalle="http://www.gestionhumana.com"&TxtURL End if ElIdArticulo = id_articulonew Cadena_SQL = "SELECT OC.Texto FROM ObjetoSEContenido OC WHERE OC.CodObjetoSE=" & ElIdArticulo & " AND OC.Grupo='PAGINA' AND Elemento='AntetituloTitulo' ORDER BY OC.Orden" 'response.write("1:"&Cadena_SQL) Set RStemp = Conn.Execute(Cadena_SQL) if not RStemp.EOF then stAntetitulo = RStemp("Texto") end if if not RStemp.EOF then RStemp.MoveNext stTitulo = RStemp("Texto") end if Cadena_SQL = "SELECT OC.Texto, CodContenidoLargo FROM ObjetoSEContenido OC WHERE OC.CodObjetoSE=" & ElIdArticulo & " AND OC.Grupo='PAGINA' AND Elemento='Sumario' ORDER BY OC.Orden" 'response.write("2:"&Cadena_SQL) Set RStemp = Conn.Execute(Cadena_SQL) if not RStemp.EOF then if isnull(RStemp("Texto")) then Cadena_SQL = "Select * from ContenidoLargo where Id_ContenidoLargo=" & RStemp("CodContenidoLargo") Set RStemp = Conn.Execute(Cadena_SQL) if not RStemp.EOF then stSumario = RStemp("ContenidoLargo") else stSumario = "" end if else stSumario = RStemp("Texto") end if end if Cadena_SQL = "SELECT OC.Texto FROM ObjetoSEContenido OC WHERE OC.CodObjetoSE=" & ElIdArticulo & " AND OC.Grupo='PAGINA' AND Elemento='Autor' ORDER BY OC.Orden" 'response.write("3:"&Cadena_SQL) Set RStemp = Conn.Execute(Cadena_SQL) if not RStemp.EOF then stAutor = RStemp("Texto") end if Cadena_SQL = "SELECT CodSubTema FROM ObjetoSESubtema WHERE CodObjetoSE=" & ElIdArticulo 'response.write("4:"&Cadena_SQL) Set RS = Conn.Execute(Cadena_SQL) if Not RS.EOF then IdSubtema = RS("CodSubTema") else IdSubtema = "" end if elseif Request("URL")<>"" then Cadena_SQL = "Select ID_ObjetoSE from ObjetoSE where URL='" & request("URL") & "'" Set RStemp = Conn.Execute(Cadena_SQL) if not RStemp.EOF then ElIdArticulo = RStemp("ID_ObjetoSE") else ElIdArticulo = "" end if else ElIdArticulo = "" end if if request("Accion")="Mandar" then mensaje = "" Response.write("
Su mensaje fue enviado a

") 'Hacer el envio por referido CodReferido = split(request("Codreferido"),",") For i=0 to UBound(CodReferido) Cadena_SQL = "select nombres, email, cargo, empresa from Referidos Where id_referido="& CodReferido(i) 'Response.write Cadena_SQL Set RSAux = Conn.Execute(Cadena_SQL) If not RSAux.EOF Then stNombres = RSAux("nombres") stEmail = RSAux("email") stCargo = RSAux("cargo") stEmpresa = RSAux("empresa") Call fnMensajeArticulo(stNombres,stCargo,stComentario,stAntetitulo,stTitulo,stAutor,stSumario,TxtURL) End If Next 'Hacer el envio por codigo de usuario CodUsuario = split(request("Codusuario"),",") For i=0 to UBound(CodUsuario) Cadena_SQL = "SELECT NomSuscriptor as Nombre,Cargo.Cargo,S.Email,Apellido.Apellido " &_ "FROM Suscriptor S INNER JOIN " &_ " (SELECT Valor as Cargo,CodSuscriptor FROM SuscriptorAdicionalContenido WHERE CodSuscriptorAdicional=3) as Cargo ON Cargo.CodSuscriptor=S.ID_Suscriptor " &_ " INNER JOIN " &_ " (SELECT Valor as Apellido,CodSuscriptor FROM SuscriptorAdicionalContenido WHERE CodSuscriptorAdicional=8) as Apellido ON Apellido.CodSuscriptor=S.ID_Suscriptor " &_ " WHERE S.ID_Suscriptor=" & CodUsuario(i) 'Response.write Cadena_SQL Set RSAux = Conn.Execute(Cadena_SQL) If not RSAux.EOF Then stNombres = RSAux("nombre")&" "&RSAux("apellido") stEmail = RSAux("email") stEmpresa = "" stCargo = RSAux("cargo") End If Call fnMensajeArticulo(stNombres,stCargo,stComentario,stAntetitulo,stTitulo,stAutor,stSumario,TxtURL) Next 'Enviar mensaje a los otros colegas validando los casos que sean necesarios for i=1 to 3 if Len(Request("NombreUsuario" & i)) > 0 and Request("NombreUsuario" & i) <> "Nombre de su amigo" and Len(Request("EmailUsuario" & i)) > 0 and Request("EmailUsuario" & i) <> "suamigo@servidor.com" Then stNombres = Request("NombreUsuario" & i) stEmail = Request("EmailUsuario" & i) stEmpresa = Request("CargoUsuario" & i) stCargo = Request("EmpresaUsuario" & i) Call fnMensajeArticulo(stNombres,stCargo,stComentario,stAntetitulo,stTitulo,stAutor,stSumario,TxtURL) End if next if validarUsuariosEnvio = false then %> <% end if else %>
Escriba los datos para que <%= Application("website") %> remita el mensaje:
") response.write(" ") response.write("" & VbCrLf) response.write(" ") response.write(" ") response.write("" & VbCrLf) 'response.write(" " & VbCrLf) response.write("" & VbCrLf) %>
En <%=Application("website")%> encontré un artículo interesante:
 
<% if ElIdArticulo<>"" then if (stAntetitulo <> "") AND (stAntetitulo <> " ") then response.write("" & stAntetitulo & "
") end if response.write("" & stTitulo & "
") if (stAutor <> "") AND (stAutor <> " ") then response.write("Por: " & stAutor & "
") end if response.write(stSumario) response.write("

Más detalles en www." & Application("website") & "" & Chr(13) & Chr(10)) else response.write("

Más detalles en www." & Application("website") & "" & Chr(13) & Chr(10)) end if %>


Para :
<% 'On Error Resume Next 'Cadena_SQL = "select nombre, apellido, email, cargo, id_usuario from usuarios where TipoIdentificacionEmpresa=" & Session("TipoIdentificacion") & " AND CodEmpresa=" & Session("Identificacion") & " and id_usuario <>" & session("Idusuario")& " and fechavencimiento >= getdate()" Cadena_SQL = "SELECT NomSuscriptor as Nombre,Cargo.Cargo,S.Email,Apellido.Apellido,S.Id_Suscriptor as id_usuario" &_ " FROM Suscriptor S INNER JOIN " &_ " (SELECT Valor as Cargo,CodSuscriptor FROM SuscriptorAdicionalContenido WHERE CodSuscriptorAdicional=3) as Cargo ON Cargo.CodSuscriptor=S.ID_Suscriptor " &_ " INNER JOIN " &_ " (SELECT Valor as Apellido,CodSuscriptor FROM SuscriptorAdicionalContenido WHERE CodSuscriptorAdicional=8) as Apellido ON Apellido.CodSuscriptor=S.ID_Suscriptor " &_ " WHERE S.CodEmpresa=" & numCodEmpresa 'response.write "" Set RSAux = Conn.Execute(Cadena_SQL) If Err.Number = 0 Then If Not RSAux.EOF then Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Do While not RSAux.EOF Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) RSAux.MoveNext loop End If End If On Error Resume Next Cadena_SQL = "select id_referido, nombres, email, cargo, empresa from referidos where codusuario =" & session("Idusuario")&" and empresa > ''" Set RSAux = Conn.Execute(Cadena_SQL) If Err.Number = 0 Then If Not RSAux.EOF then Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Do While not RSAux.EOF Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) Response.write(" " & VbCrLf) RSAux.MoveNext loop End If End If %>
 
Compañeros de trabajo:
Enviar NombreEmailCargo
"&RSAux("Nombre")&" "&RSAux("Apellido")&""&RSAux("Email")&""&RSAux("Cargo")&"
 
Otros colegas:
EnviarNombreEmailCargoEmpresa
"&RSAux("Nombres")&""&RSAux("Email")&""&RSAux("Cargo")&""&RSAux("Empresa")&"
Envía a otros colegas este articulo:
Nombre Email Cargo Empresa
<% stEmail = "" On Error Resume Next 'Cadena_SQL = "Select id_usuario, Nombre,apellido, Email from Usuarios Where TipoIdentificacionEmpresa=" & Session("TipoIdentificacion") & " AND CodEmpresa=" & Session("Identificacion") & " AND TipoIdentificacion=" & Session("Usuario") Cadena_SQL = "SELECT NomSuscriptor as Nombre,Cargo.Cargo,S.Email,Apellido.Apellido,S.Id_Suscriptor as id_usuario " &_ "FROM Suscriptor S INNER JOIN " &_ " (SELECT Valor as Cargo,CodSuscriptor FROM SuscriptorAdicionalContenido WHERE CodSuscriptorAdicional=3) as Cargo ON Cargo.CodSuscriptor=S.ID_Suscriptor " &_ " INNER JOIN " &_ " (SELECT Valor as Apellido,CodSuscriptor FROM SuscriptorAdicionalContenido WHERE CodSuscriptorAdicional=8) as Apellido ON Apellido.CodSuscriptor=S.ID_Suscriptor " &_ " WHERE S.ID_Suscriptor=" & Session("IdUsuario") 'Response.write Cadena_SQL Set RSAux = Conn.Execute(Cadena_SQL) If Err.Number = 0 Then If Not RSAux.EOF then stEmail = RSAux("email") stNombres = RSAux("nombre") & " " &RSAux("apellido") stIdUsuario = RSAux("id_usuario") End If End If response.write("
 
Comentario:
 
Remite:
Email :" & stEmail) response.write("
>
<%end if%>
<% Response.write("
" & VbCrLf) If instr(lcase(PaisSeleccionado),".asp")>0 then Server.execute("Include/Pata" & PaisSeleccionado) else Server.execute("Include/Pata" & PaisSeleccionado & ".asp") End if %>