prueba esto y cuentanos
Código:
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
response.write "To:" strTo & "<br>"
response.write "subject:" strSubject & "<br>"
objCDOMail.From = "Formulario Página Web"
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
contenido="Nombre y apellido: "&strBody & _
"Motivo: "&strBody2& _
"E-mail: "&strBody3& _
"Mensaje: "& _
" "&strBody4
objCDOMail.Body = contenido
On Error Resume Next
objCDOMail.Send
if err.number<>0 then
response.write err.description
response.end
else
response.write "OK"
end
Set objCDOMail = Nothing
ademas recuerda tener enlace a un servidor de correos y cerciorate que el server donde esta tu web sea servidor (nt o w2000 server)