
El codigo q utilizo es el siguiente:
<%
'Recojemos los datos del formulario
tunombre=Request.Form("tunombre")
sunombre=Request.Form("sunombre")
'Especificamos el servidor SMPT del correo y creamos el objeto
strHost = "mail0.vendns.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.Port = 25
Mail.From = Request("tuemail")
Mail.FromName = "WebExperto.com"
Mail.AddAddress = Request("suemail")
'Asunto del mensaje
Mail.Subject = "Un amigo te recomienda WebExperto.com"
'Cuerpo del mensaje en HTML
Mail.IsHTML = True
Mail.Body = "
Hola! Tu amigo "&tunombre&" ("&tuemail&") recomienda que ingreses a un sitio que posee contenido de utilidad para webmasters.
Te esperamos!
"
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
%>
Agradezco su ayuda, ya q es urgente... de antemano muchas gracias!!!!