Oye yo acabo de instalar el componente SMTP de windows 2000 server y me funcionó prueba a ver aqui te mando un ejemplo ASP para que pruebes:
cBody = Request.Form("Body")
cPara = = Request.Form("Amiguete")
Y ahora el ejemplo, en el que se muestra como enviar a un amigo, una copia y una copia oculta, lo común.
<%@ Language=VBScript%>
<html>
<head>
<title>Enviar a un amigo</title>
</head>
<body><%
Dim cBody, n
'For Each n In Request.Form
' cBody = "enviado desde asp" 'cBody & n & ": " & Request.Form(n) & chr(13)
'Next
cBody = "enviado desde asp 123"
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]"
'oCDO.Bcc = "
[email protected]"
'oCDO.MailFormat = 0
oCDO.Send
Set oCDO = Nothing 'Liberar...
'Mostramos mensaje de que seenvió con éxito.
Response.Write "¡Se envió Ok, qué fácil!!"
%>
</body>
</html>
espero te funcione