Foros del Web » Programando para Internet » ASP Clásico »

Doble CDONT (sucesivos)

Estas en el tema de Doble CDONT (sucesivos) en el foro de ASP Clásico en Foros del Web. Tengo configurado un codigo para envio de mail (cdont) en una pagina, este me envia a mi correo datos recogidos en un form (son el ...
  #1 (permalink)  
Antiguo 20/11/2003, 00:35
Avatar de Eutheola  
Fecha de Ingreso: enero-2002
Mensajes: 70
Antigüedad: 23 años, 4 meses
Puntos: 0
De acuerdo Doble CDONT (sucesivos) OK

Tengo configurado un codigo para envio de mail (cdont) en una pagina, este me envia a mi correo datos recogidos en un form (son el nombre y correos del clasico recomienda a un amigo), estos datos son almacenados en unas variables, antes del envio. Deseo pasar los datos que llegan a la pag.asp y que tiene el cdont a otra pagina con cdont tambien (y que es la que realmente recomienda mi pagina, porque la primera me envia los correos que ha escrito el visitante), la idea es que yo sepa a que correos el visitante esta recomendado mi pagina. Todo de manera transparente para el visitante.

El paso de variables la hago del form al cdont mediante Request.Form, no uso BD ya que mi servidor no ne ha dejado trabajarlas..pero hay seguimos en la lucha..

Sera que alguien ya ha pasado por esto??

Gracias
__________________
"Nuestro conocimiento es necesariamente finito, mientras que nuestra ignorancia es necesariamente infinita."

Popper, Karl Raimund



Última edición por Eutheola; 25/11/2003 a las 09:04
  #2 (permalink)  
Antiguo 20/11/2003, 08:21
Avatar de lexus  
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 23 años, 4 meses
Puntos: 4
hola,
no es necesario que uses 2 cdonts para darte cuenta de quien recomienda la pagina
solo tienes que hacer una copia oculta o una copia carbonica en el cdonts

este es un ejemplo..

Código:
<%
Response.Buffer = True
Dim strBody 
Dim objCDOMail 	
Dim emailamigo 
Dim copiacarbonica	
Dim copiaoculta
Dim dequien	

emailamigo = request.form("[email protected]")
copiacarbonica = "[email protected]"
copiaoculta = "[email protected]"

dequien = Request.Form("email")

strBody = strBody & "<b>aqui tu mensaje</b>"


Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = Request.Form("nombre") & "<" & dequien & ">"
objCDOMail.To = emailamigo
objCDOMail.Cc = copiacarbonica
objCDOMail.Bcc = copiaoculta
objCDOMail.Subject = "Correo enviado desde el sitio web"
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body = strBody
objCDOMail.Importance = 2 
objCDOMail.Send
Set objCDOMail = Nothing
%>
espero te sirva
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com
  #3 (permalink)  
Antiguo 21/11/2003, 11:01
Avatar de Eutheola  
Fecha de Ingreso: enero-2002
Mensajes: 70
Antigüedad: 23 años, 4 meses
Puntos: 0
Gracias lexus, es una opción solo que cuando me llega la copia o no me llegan los correos ingresados por el usuario, o si me llegan le llegan a todos los usuarios dejando al descubierto la direccion de los otros recomendados exponiendoles al spam.

Existe una posibilidad de que un submit ejecute dos paginas asp, una con cdont y unas variables y otras asp con otras variables?
__________________
"Nuestro conocimiento es necesariamente finito, mientras que nuestra ignorancia es necesariamente infinita."

Popper, Karl Raimund


  #4 (permalink)  
Antiguo 21/11/2003, 11:07
Avatar de lexus  
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 23 años, 4 meses
Puntos: 4
puedes colocar solo una pagina asp y en el submit le mandas un parametro a esa pagina, por ejemplo

correo.asp?numero=1

entonces agrupas lo que quieres con cdonts en un if

if request("numero") = 1 then
'aqui colocas tu cdonts
end if

aqui otras variables

es una idea no mas..
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com
  #5 (permalink)  
Antiguo 21/11/2003, 11:11
Avatar de Eutheola  
Fecha de Ingreso: enero-2002
Mensajes: 70
Antigüedad: 23 años, 4 meses
Puntos: 0
Ok lo intentare nuevamente gracias lexus
__________________
"Nuestro conocimiento es necesariamente finito, mientras que nuestra ignorancia es necesariamente infinita."

Popper, Karl Raimund


  #6 (permalink)  
Antiguo 22/11/2003, 19:38
Avatar de Eutheola  
Fecha de Ingreso: enero-2002
Mensajes: 70
Antigüedad: 23 años, 4 meses
Puntos: 0

Ok Lexus te agradezco funciono muy bien, para los que le pueda servir aca esta el codigo:
Código PHP:
    <% If Envio 1 Then
    Dim objCDO
Set objCDO 
Server.CreateObject("CDONTS.NewMail")
objCDO.From Stremailremite
objCDO
.Bcc Correo recomedados
objCDO
.Subject "Boletin No 4"
objCDO.Body =  Saludo
objCDO
.BodyFormat 1
objCDO
.MailFormat 1
objCDO
.Send

End 
if


Set objCDO Server.CreateObject("CDONTS.NewMail")
objCDO.From = [email]Correo@mio.com[/email]
objCDO.To "[email protected]"
objCDO.Subject "Recomendados"
objCDO.Body =  "Mensaje del Boletin"
objCDO.BodyFormat 1
objCDO
.MailFormat 1
objCDO
.Send
Response
.Redirect "../index.html"      %> 

__________________
"Nuestro conocimiento es necesariamente finito, mientras que nuestra ignorancia es necesariamente infinita."

Popper, Karl Raimund


Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 06:49.