%@ Language=VBScript %>
<%
if request("Contact_Name") <> "" then
Set pdmail=server.createobject("Persits.MailSender")
pdmail.Host="mail.enclavesatcrismark.com"
pdmail.From="contact@enclavesatcrismark.com"
pdmail.Username = "contact@enclavesatcrismark.com"
pdmail.Password = "password"
pdmail.AddAddress "sales@enclavesatcrismark.com"
pdmail.FromName=request("Contact_Name")
pdmail.Subject="Enclaves@Crismark Contact"
pdmail.Body="Name : " & request("Contact_Name") & "
Email Address : " & request("Contact_Email") & "
Comments : " & request("Contact_Comments") & "
Phone : " & request("Contact_Phone")
On Error Resume Next
pdmail.Send
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
End If
set pdmail=nothing
end if
%>