<%@ Language=VBScript %>
<%
' change to address of your own SMTP server
strHost = "ns1.z-net.co.uk"
If (Request.Form("Send") <> "") Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.IsHTML = True 'Whack it into HTML mode
'** Either set the Mail properties to a hard value
'** e.g. Mail.Form="Mail@Denisons.Com", or take the value from a Form variable as follows:-
Mail.From = Request.Form("FromAddress") ' From address
Mail.FromName = Request.Form("FromName") ' optional
Mail.AddAddress "propsales@denisons.com"
' message Subject
Mail.subject = Request.Form("Subject")
'Assemble message body comprising :-
' Address; PhoneNo; Property; Age; Bed; Garden; Type; Parking; Condition; Comments
MsgStr="Property Request Form "
MsgStr=MsgStr & "Address: " & Request.Form("Address") & "
END OF MESSAGE"
Mail.body = MsgStr
'** The Contact Form Requires the following fields. You can add to these as you wish.
'**
'** FromAddress
'** FromName
'** ToAddress
'** ToName
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
response.redirect "thankyou.htm"
End If
End If
%>
Contact Us :: Denisons.com
