%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dim varSubmit, varMsg, varBody, MailToSend
varSubmit = request("Submit")
if varSubmit <> "" then
varMsg = "
Thank you. Your inquiry has been sent"
varBody = "Website Inquiry" & vbcrlf & vbcrlf _
& "Name: " & request("tbName") & vbcrlf _
& "Email: " & request("tbEmail") & vbcrlf _
& "Phone: " & request("tbPhone") & vbcrlf & vbcrlf _
& request("tbInquiry")
Set MailToSend = CreateObject("CDONTS.NewMail")
MailToSend.TO = "<" & "rralphch@bigpond.net.au" & ">"
MailToSend.From = request("tbEmail")
MailToSend.Subject = "Website Inquiry"
MailToSend.Body = varBody ' message to send
MailToSend.send
Set MailToSend=nothing
end if
%>
Chalmers Le Fevre
 |
|
 |
Contact Us
<% if varMsg <> "" then
response.write varMsg
else
%>
<% end if %>
|
CHALMERS LE FEVRE PTY. LTD.
1340A MALVERN ROAD,
MALVERN, 1344.
VICTORIA, AUSTRALIA
Telephone: 61 3 98 22 85 66
Facsimile: 61 3 98 22 86 55
Email: ralph@chalmerslefevre.com
|
|
 |
|
|
Copyright 2006 Chalmers Le Fevre
Home | Featured Works
| Contact |
|