ya lo encontre:
<%
Function Correo(From,FromName,Address,AddressName,Subject,B ody)
Dim Mail
On Error Resume Next
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.tuhost.com"
Mail.From = From
Mail.FromName = FromName
Mail.AddAddress Address
Mail.Subject = Subject
Mail.Body = Body
Mail.IsHTML = True
Mail.Send
If Err <> 0 Then
Correo = Err.Description
Else
Correo = ""
End If
End Function
%>
aqui esta la funcion, es en persist pero para cdonts solo hay que cambiar un par de componentes
