<%@ Language=VBScript%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>Fernando Ortiz</title>
</head>
<body><%
Dim cBody, n
For Each n In Request.Form
cBody = cBody & n & ": " & Request.Form(n) & chr(13)
Next
Set oCDO = Server.CreateObject("CDONTS.NewMail")
'Asignamos las propiedades al objeto
oCDO.From = "
[email protected]"
oCDO.To = "
[email protected]"
oCDO.Subject = "Asunto del mensaje"
oCDO.Body = cBody
'oCDO.Cc = "
[email protected];
[email protected]& quot;
oCDO.Bcc = "
[email protected]"
'oCDO.MailFormat = 0
oCDO.Send
Set oCDO = Nothing 'Liberar...
Response.Write Replace(cBody, chr(13), "<br>") & "¡¡¡Vale...!!!"
%>
</body>
</html>
Bye, espero te sirva. ;)
<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>