%@ LANGUAGE="VBSCRIPT" %>
Tycoon Percussion - Contact Us
<%
dim errMsg, success, frmSend, frmName, frmEmail, frmPhone, frmComment
const successMsg = " *** Thank you! Your comment has been sent. ***"
const EmailTo = "info@tycoonpercussion.com"
const EmailSubject = "Contact Us Notification From TycoonPercussion.com"
const EmailFormat = 0
const EmailBodyFormat = 0
const EmailImportance = 2
'initialize
success = false
errMsg = ""
'get form values
frmSend = Request.Form("send")
frmName = Trim(Request("name"))
frmEmail = Trim(Request("email"))
frmPhone = Trim(Request("phone"))
frmComment = Trim(Request("comment"))
'Response.Write("send = " & frmSend & " ")
'Response.Write("name = " & frmName & " ")
'Response.Write("email = " & frmEmail & " ")
'Response.Write("phone = " & frmPhone & " ")
'Response.Write("comment = " & frmComment & "
")
'Response.End()
'process form
if frmSend <> "" then
if (frmName = "") or (frmEmail = "") or (frmPhone = "") or (frmComment = "") then
errMsg = " *** Please enter all requested information. ***"
else
if send_email then
success = true
frmName = ""
frmEmail = ""
frmPhone = ""
frmComment = ""
else
errMsg = " *** Error sending. Please try again later. ***"
end if
end if
end if
function send_email ()
Set NewMail = Server.CreateObject("CDONTS.NewMail")
With NewMail
.MailFormat = EmailFormat
.BodyFormat = EmailBodyFormat
.Importance = EmailImportance
.From = frmEmail
.To = EmailTo
.Subject = EmailSubject
.Body = _
"" & _
"" & _
"Contact Us Email " & _
"" & _
"" & _
"" & _
"" & _
"" & _
"Name: " & _
"" & frmName & " " & _
" " & _
"" & _
"E-mail : " & _
"" & frmEmail & " " & _
" " & _
"" & _
"Phone: " & _
"" & frmPhone & " " & _
" " & _
"" & _
"Message: " & _
"" & frmComment & " " & _
" " & _
"
" & _
"" & _
""
.Send
End With
If Err Then
set NewMail = nothing
send_email = false
else
set NewMail = nothing
send_email = true
end If
end function
%>
Tycoon Percussion 4560 Eucalyptus Ave, Unit B Chino, CA 91710
Phone:
(909) 393-5555
Fax:
(909) 393-5500
Click map for details at MapQuest.com
Directions From LAX
Start out going EAST on WORLD WAY / CENTER WAY (0.1 miles)
Merge onto S SEPULVEDA BLVD / CA-1 S toward I-105 (0.7 miles)
Take the IMPERIAL HWY WEST / I-105 E ramp toward IMPERIAL TERMINAL (0.1 miles)
Merge onto I-105 E toward NORWALK (16.9 miles)
Merge onto I-605 N. (9.9 miles)
Merge onto CA-60 E toward POMONA (17.4 miles)
Merge onto CA-71 S via EXIT 29A toward CORONA (2.2 miles)
Take the GRAND AVE exit- EXIT 10- toward EDISON AVE. (0.2 miles)
Turn LEFT onto GRAND AVE. (0.6 miles)
Turn RIGHT onto PIPELINE AVE. (0.4 miles)
Turn LEFT onto EUCALYPTUS AVE. (0.5 miles)
End at 4560 Eucalyptus Ave, Chino, CA 91710