| |
|
| |
Call Danny or our friendly staff: |
| |
Mobile: 0438 810 081 |
| |
Phone: 02 9715 7008 |
| |
Fax: 02 9715 7008 |
| |
Or simply email us using the form! |
| |
|
| |
|
| | |
| |
|
|
| |
<%
if request.form("func") = "Send Message" then
name = trim(request.form("name"))
email = trim(request.form("email"))
message = trim(request.form("message"))
msg = "New Age Web Enquiry " & chr(10) & chr(10)
msg = msg & "Name : " & name & chr(10)
msg = msg & "Email : " & email & chr(10)
msg = msg & "Message : " & message & chr(10)
Set objMail = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields
With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.newageinteriors.com.au"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "accounts@newageinteriors.com.au"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "center"
.Update
End With
With objMail
Set .Configuration = objConf
.From = email
.To = "accounts@newageinteriors.com.au"
.Subject = "Web Form: "
.TextBody = msg
End With
Err.Clear
objMail.Send
Set objFields = Nothing
Set objConf = Nothing
Set objMail = Nothing
end if
%>
| |
|
|
|
|
| |
|
Contact us today, we shall be happy to assist you with your query. |
|
|
|
|
|
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
|
| |
|