Prueba esto.... de seguro te funciona.... es para CDOsys
<%
'Declaramos las variables a usar
Dim Nombre, Comentarios, OBJ_EMAIL
'Obtenemos los valores del formulario
Nombre = Request.Form("Nombre")
Comentarios = Request.Form("Comentarios")
'Creación del objeto
Set OBJ_EMAIL = Server.CreateObject("CDO.Message")
OBJ_EMAIL.From = "
[email protected]" 'No hace falta especificar un email valido
OBJ_EMAIL.To = "
[email protected]"
OBJ_EMAIL.Subject = "Aqui el titulo del email"
OBJ_EMAIL.TextBody = Nombre & ":" & Comentarios ' Cuerpo del mensaje
OBJ_EMAIL.Send()'Envia el mail
'Cierra el Objeto
Set OBJ_EMAIL = Nothing
Response.Write "Gracias por su comentario"
%>