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