Para recomendar una pagina a un amigo

[pott]

Hola a todos! alguien me puede prestar un codigo o decirme donde encotrar algo para recomedar la página a un amigo.
He probado algunos pero no me funciona me da el siguiente error

Error Server.CreateObject

El codigo que utilizo es muy simple
<%
'Especificamos el servidor SMPT del correo y creamos el objeto
strHost = "smtp.midominio.com" 'debes especificar el servidor enviante no el entrante (pop)
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "Tu nombre"
Mail.FromName = "Nombre del que le enviaras el mail"
Mail.AddAddress "E-mail de el que le enviaras el mail"
Mail.Subject = "Asunto"
Mail.IsHTML = True
Mail.Body = "Cuerpo del mensaje..."
strErr = ""
bSuccess = False
On Error Resume Next ' por si hay errores
Mail.Send ' send message
If Err <> 0 Then ' si hay un error que de una descripcion
strErr = Err.Description
else
bSuccess = True
End If
%>

Que alguien me indique cual es mi fallo.