recomendar a un amigo

[keldorn]

Puedes probar a poner esto:

'recoges los datos del formulario

tumail=request.form("tumail")
sumail=request.form("sumail")
tunombre=request.form("tunombre")
sunombre=request.form("sunombre")
asunto=tunombre + " te recomienda www.------.com"
desa=request.form("asunto")


Dim sDestintatario, sAsunto, sCuerpo
Dim oMail 'el objeto CDO

sAsunto=asunto

'Creamos el cuerpo con varias líneas para facilitar la lectura
sCuerpo = desa

sDestinatario=sumail

'Creamos la conexion
set oMail=Server.CreateObject("CDONTS.NewMail&quo t;)

'Establecemos las propiedades del objeto
oMail.From = tumail
oMail.To = sumail
oMail.Subject = asunto
oMail.Body = desa

' Enviamos el email
oMail.Send

Solo tendrias que cambiar los campos conforme a ti te convenga.
Un saludo. ;)