Sending Mail in ASP

Windows Server 2003 R2 Standard.

We have rehosted our web site to our Windows Server under the IIS. Most of
the files are asp. I have code that submits the contents of a form via
email. The following line of code fails:

Set Mail = Server.CreateObject("Persits.MailSender")

What can I use in my environment that would accomplish the same thing as
"Persits.MailSender"?

The code that fails is in context below:

<p align="center"><font face="Arial" size="2"><strong> </strong></font></p>
<%if request.form("name") <> "" then%>

<%
strBody = "--------------------------------------------------------" &
vbCrLf & _
"Feedback" & vbCrLf & _
"--------------------------------------------------------" & vbCrLf & _
"Name: " & Request.Form("Name") & vbCrLf & _
"Email: " & Request.Form("email") & vbCrLf & _
"Phone: " & Request.Form("Phone") & vbCrLf & _
"Message: " & Request.Form("message") & vbCrLf & _
" " & vbCrLf & _
" "

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.goodnewsjail.org"
Mail.From = "info@goodnewsjail.org"
Mail.FromName = "Website Feedback"
Mail.AddAddress "info@goodnewsjail.org"
Mail.Subject = "Feedback from Website"
Mail.Body = strBody
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Letter was not sent due to the following error: " &
Err.Description
End If
%>




--
Dr. Doug Pruiett
Good News Jail & Prison Ministry
www.goodnewsjail.org

My server has Exchange Server 2003 running on it. It also has Outlook 2003
installed.
--
Dr. Doug Pruiett
Good News Jail & Prison Ministry
www.goodnewsjail.org


"Chaplain Doug" wrote:

> Windows Server 2003 R2 Standard.
>
> We have rehosted our web site to our Windows Server under the IIS. Most of
> the files are asp. I have code that submits the contents of a form via
> email. The following line of code fails:
>
> Set Mail = Server.CreateObject("Persits.MailSender")
>
> What can I use in my environment that would accomplish the same thing as
> "Persits.MailSender"?
>
> The code that fails is in context below:
>
> <p align="center"><font face="Arial" size="2"><strong> </strong></font></p>
> <%if request.form("name") <> "" then%>
>
> <%
> strBody = "--------------------------------------------------------" &
> vbCrLf & _
> "Feedback" & vbCrLf & _
> "--------------------------------------------------------" & vbCrLf & _
> "Name: " & Request.Form("Name") & vbCrLf & _
> "Email: " & Request.Form("email") & vbCrLf & _
> "Phone: " & Request.Form("Phone") & vbCrLf & _
> "Message: " & Request.Form("message") & vbCrLf & _
> " " & vbCrLf & _
> " "
>
> Set Mail = Server.CreateObject("Persits.MailSender")
> Mail.Host = "mail.goodnewsjail.org"
> Mail.From = "info@goodnewsjail.org"
> Mail.FromName = "Website Feedback"
> Mail.AddAddress "info@goodnewsjail.org"
> Mail.Subject = "Feedback from Website"
> Mail.Body = strBody
> On Error Resume Next
> Mail.Send
> If Err <> 0 Then
> Response.Write "Letter was not sent due to the following error: " &
> Err.Description
> End If
> %>
>
>
>
>
> --
> Dr. Doug Pruiett
> Good News Jail & Prison Ministry
> www.goodnewsjail.org