Hola, amigo Keikos, aquí tienes el código funcionanado para CDonts:
<%@ Language=VBScript%><%
Option Explicit
Dim oCDO%>
<html>
<head>
<meta http-equiv="Content-Language" content="en">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Recomendar a un amigo</title>
<style>
body { font-size: 10px; font-family: Verdana; }
</style>
</head>
<body><center><%
If Request.Form("para") <> "" And Request.Form("suEmail") <> "" And Request.Form("Email") <> "" And Request.Form("de") <> "" Then
Set oCDO = Server.CreateObject("CDONTS.NewMail")
'oCDO.MailFormat = 0
'oCDO.BodyFormat = 0
oCDO.From = Request.Form("Email")
oCDO.To = Request.Form("suEmail")
oCDO.Subject = Request.Form("Para")
oCDO.Body ="Estimado/a " & Request.Form("Para") & ":" & vbCRLF + vbCRLF & "Su amigo/a " & Request.Form("de") & " le recomienda visitar nuestra página, su mensaje ha sido:" & vbCRLF + vbCRLF & Request.Form("mensaje") & vbCRLF + vbCRLF & Request.Form("de") & " le recomienda visitar : " & vbCRLF + vbCRLF & (Request.Form("url"))
oCDO.Send
Set oCDO = Nothing 'Liberar...
------------------> Continúa ;)
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>