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