Contacting xlmediaptyltd...
<%
'Check to see if the form should be processed
'--------------------------------------------
if request.form("Submit") = "Send Now" then
'Retrieve values from form
'-------------------------
mailrecipient = "voicetracks@xlmedia.com.au"
sendermail = request.form("Email")
sendername = request.form("Name")
sendermessage = "I am interested in " & request.form("Message")
subject = "Contact from LeonDelaney.com"
'If the email is not valid then use Leon's email
'-----------------------------------------------
if instr(sendermail,"@") = 0 or instr(sendermail,".") = 0 then
sendermail = "voicetracks@xlmedia.com.au"
end if
'Create e-mail
'-------------
Set objCDOMail = CreateObject("CDONTS.NewMail")
objCDOMail.From = sendername & "<" & sendermail & ">"
objCDOMail.To = mailrecipient
objCDOMail.Subject = subject
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body = sendermessage
objCDOMail.Send
Set objCDOMail = Nothing
%>
Thank you for completing the contact form. You will be answered as soon as possible.
<% else %> <% end if %>