Implementando o JMail

Dim objMail
set objMail = Server.CreateObject("JMail.Message")
objMail.From = "remetente@dominio.com.br"
objMail.FromName = "Nome do Remetente"
objMail.AddRecipient "destinatario@dominio.com.br", "Nome do Destinatário"
objMail.Subject = "Assunto da mensagem"
objMail.Body = "Texto da Mensagem." & VbCrLf & "Mensagem de Teste."
If objMail.Send("envio.redehost.com.br") Then
   Response.write "E-mail enviado..."
Else
   Response.Write "Erro no envio de e-mail: " & objMail.log
End if
Set objMail = Nothing

Documentação do fabricante:

http://www.dimac.net/Products/w3JMail/start.htm