<%@ Language=VBScript%>
<%option explicit%>
<%
dim is_error, result
dim name, email, company, phone, address
dim category, interest, purchaseMonth, purchaseYear, timbers, callMonth, callYear, bulletin, comments
is_error = ""
result = ""
name = request.form("realname")
email = request.form("email")
company = request.form("company")
phone = request.form("phone")
address = request.form("address")
category = request.form("category")
interest = request.form("interest")
purchaseMonth = request.form("purchaseMonth")
purchaseYear = request.form("purchaseYear")
timbers = request.form("timbers")
callMonth = request.form("callMonth")
callYear = request.form("callYear")
bulletin = request.form("bulletin")
comments = request.form("comments")
if request.serverVariables("REQUEST_METHOD") = "POST" then
is_error = errorCheck(name, email, company, phone, address)
if is_error = "" then
result = sendMail(name, email, company, phone, address, category, interest, purchaseMonth, purchaseYear, timbers, callMonth, callYear, bulletin, comments)
else
result = is_error
end if
end if
'------------------------------------------------------------------------------
function sendMail(e_name, e_email, e_company, e_phone, e_address, e_category, e_interest, e_purchaseMonth, e_purchaseYear, e_timbers, e_callMonth, e_callYear, e_bulletin, e_comments)
dim JMail, body
Set JMail = Server.CreateObject("JMail.Message")
body = "Name: " & e_name & VbCrLf &_
"Email: " & e_email & VbCrLf &_
"Company: " & e_company & VbCrLf &_
"Phone: " & e_phone & VbCrLf &_
"Address: " & e_address & VbCrLf &_
"Customer category: " & e_category & VbCrLf &_
"Area of interest: " & e_interest & VbCrLf &_
"Purchase will be decided: " & e_purchaseMonth & " " & e_purchaseYear & VbCrLf &_
"Interested in timbers: " & e_timbers & VbCrLf &_
"When to contact: " & e_CallMonth & " " & e_CallYear & VbCrLf &_
"Subscribe to bulletin: " & e_bulletin & VbCrLf &_
"Comments: " & VbCrLf & e_comments
JMail.Logging = False ' Let's see what the SMTP server said
JMail.From = e_email ' I sent it
JMail.FromName = e_name ' My Name
'JMail.AddRecipient "sales@ironwood.com.au" ' They're getting it
JMail.AddRecipient "socialphobia@optusnet.com.au" ' They're getting it
JMail.AddHeader "X-Originating-IP", Request.ServerVariables("REMOTE_ADDR") ' Who's using me?
JMail.AddHeader "X-Originating-URL", Request.ServerVariables("URL") ' From which page?
JMail.Priority = 1
JMail.Subject = "Contact Us details submitted via web"
JMail.ContentType = "text/plain" ' Defaults to text/plain if left out
JMail.Body = body
JMail.Send ("smtp-au.server-mail.com") ' This is where everything happens
JMail.Close ' Release the connection to the SMTP server
set JMail = nothing ' Release the memory used by the JMail component
sendMail = "Thank you. "&_
"
Your friend's details have been submitted and a member of our sales team will email them to ask if they would like to receive our monthly newsletter. A link to this month's newsletter has also been forwarded to them.
"&_
"
"
end function
'------------------------------------------------------------------------------
function errorCheck(f_name, f_email, f_company, f_phone, f_address)
dim output
output = ""
if f_name = "" then
output = output & "
Please supply your name
"
end if
if f_email = "" then
output = output & "
Please supply your email address
"
end if
if f_company = "" then
output = output & "
Please supply your company name
"
end if
if f_phone = "" then
output = output & "
Please supply your phone number
"
end if
if f_address = "" then
output = output & "
Please supply your address
"
end if
if output <> "" then
output = "
" & output & "
"
end if
errorCheck = output
end function
'------------------------------------------------------------------------------
%>
Ironwood Australia - contact us
