<% dim topic, salutation, inquiry, fname, lname, fnamecolor, lnamecolor, rnamecolor, vmodelcolor, vyearcolor, notifycolor, daycolor, evecolor, mobilecolor
dim email, hcode, hprefix, hsuffix, wcode, wprefix, wsuffux, street1, street2, city, province, comments, mobile
dim vyear, vmodel, vvin, vmileage, vname, vlocation, try, emailcolor, emailcheck, daynum, evenum
dim ryear, rmodel, rvin, rname, rmileage, rlocation, check1, check2, cheek3
dim check, str
dim vmilecolor, rmilecolor
check="t"
str=""
'assign the contents of the elements of the forms to variables
if request("drpTitle") = null then
salutation=null
else
salutation=request("drpTitle")
end if
if request("hdnInquiry") = null then
inquiry=""
else
inquiry= request("hdninquiry")
end if
if request("txtFirstName")= null then
fname=""
else
fname=request("txtFirstName")
end if
if request("txtLastName")= null then
lname=""
else
lname=request("txtLastName")
end if
if request("txtEmailAddress")= null then
email=""
else
email=request("txtEmailAddress")
end if
if request("txtHAreaCode")= null then
hcode=""
else
hcode=request("txtHAreaCode")
end if
if request("txtHPrefix")= null then
hprefix=""
else
hprefix=request("txtHPrefix")
end if
if request("txtHSuffix")= null then
hsuffix=""
else
hsuffix=request("txtHSuffix")
end if
if request("txtWAreaCode")= null then
wcode=""
else
wcode=request("txtWAreaCode")
end if
if request("txtWPrefix")= null then
wprefix=""
else
wprefix=request("txtWPrefix")
end if
if request("txtWSuffix")= null then
wsuffix=""
else
wsuffix=request("txtWSuffix")
end if
if request("txtStreetAddress")= null then
street1=""
else
street1=request("txtStreetAddress")
end if
if request("txtStreetAddress2")= null then
street2=""
else
street2=request("txtStreetAddress2")
end if
if request("txtCity")= null then
city=""
else
city=request("txtCity")
end if
if request("txtZip")= null then
province=""
else
province=request("txtZip")
end if
if request("txtComments")= null then
comments=""
else
comments=request("txtComments")
end if
if request("txtMobile")= null then
mobile=""
else
mobile=request("txtMobile")
end if
if request("hdnTopic")= null then
topic="0"
else
topic=request("hdnTopic")
end if
if request("hdnVehicleYear")= null then
vyear=""
else
vyear=request("hdnVehicleYear")
end if
if request("hdnVehicleModel")= null then
vmodel=""
else
vmodel=request("hdnVehicleModel")
end if
if request("hdnVehicleVIN")= null then
vvin=""
else
vvin=request("hdnVehicleVIN")
end if
if request("hdnVehicleMileage")= null then
vmileage=""
else
vmileage=request("hdnVehicleMileage")
end if
if request("hdnVehicleRetailerName")= null then
vname=""
else
vname=request("hdnVehicleRetailerName")
end if
if request("hdnVehicleLocation")= null then
vlocation=""
else
vvlocation=request("hdnVehicleLocation")
end if
if request("hdnRetailerYear")= null then
ryear=""
else
ryear=request("hdnRetailerYear")
end if
if request("hdnRetailerModel")= null then
rmodel=""
else
rmodel=request("hdnRetailerModel")
end if
if request("hdnRetailerVIN")= null then
rvin=""
else
rvin=request("hdnRetailerVIN")
end if
if request("hdnRetailerRetailerName")= null then
rname=""
else
rname=request("hdnRetailerRetailerName")
end if
if request("hdnRetailerMileage")= null then
rmileage=""
else
rmileage=request("hdnRetailerMileage")
end if
if request("hdnRetailerLocation")= null then
rlocation=""
else
rlocation=request("hdnRetailerLocation")
end if
daynum = hcode + hprefix + hsuffix
evenum= wcode + wprefix + wsuffix
'assigns the class for each element
notifycolor="onerror"
fnamecolor="InformationText"
lnamecolor="InformationText"
rnamecolor="InformationText"
vyearcolor="InformationText"
vmodelcolor="InformationText"
emailcolor="InformationText"
daycolor="InformationText"
evecolor="InformationText"
mobilecolor="InformationText"
vmilecolor = "InformationText"
rmilecolor="InformationText"
'if any of the required fields is missing
if topic="1" or topic="4" then
if fname="" then
fnamecolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
end if
if lname="" then
lnamecolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
end if
end if
if topic="2" then
if rname="" then
rnamecolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
end if
if fname="" then
fnamecolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
end if
if lname="" then
lnamecolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
end if
end if
if topic="3" then
if vyear="" then
vyearcolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
end if
if vmodel="" then
vmodelcolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
end if
if fname="" then
fnamecolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
end if
if lname="" then
lnamecolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
end if
end if
if topic = "1" or topic="2" or topic="3" or topic="4" then
dim number
number= "0123456789"
'checks for the validity of email
if email <> "" and (Instr(email, "@") <= 1 or Instr(email, ".") <= 1 or Instr(email, "@") > Instr(email, ".") or Instr(email, ".") = Instr(email, "@")+1 ) then
emailcolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
end if
'checks for validity of day number
if (len(daynum) > 0 and len(daynum) < 10) then
daycolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
else
check="t"
for i = 1 to 10
if instr(number, mid(daynum, i, 1)) < 1 then
check="f"
end if
if check="f" then exit for
next
if check="f" then
daycolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
end if
end if
'checks for validity of evening number
if (len(evenum) > 0 and len(evenum) < 10) then
evecolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
else
check="t"
for j = 1 to 10
if instr(number, mid(evenum, j, 1)) < 1 then
check="f"
end if
if check="f" then exit for
next
if check="f" then
evecolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
end if
end if
'checks for validity of mobile number
if (len(mobile) > 0 and len(mobile) < 11) then
mobilecolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
else
check="t"
for k = 1 to 11
if instr(number, mid(mobile, k, 1)) < 1 then
check="f"
end if
if check="f" then exit for
next
if check="f" then
mobilecolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
end if
end if
end if
'checks for validity of retailer mileage
if topic="2" then
if (len(rmileage) > 0) then
check="t"
for k = 1 to len(rmileage)
if instr(number, mid(rmileage, k, 1)) < 1 then
check="f"
end if
if check="f" then exit for
next
if check="f" then
rmilecolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
end if
end if
end if
'checks for validity of vehicle mileage
if topic="3" then
if (len(vmileage) > 0) then
check="t"
for k = 1 to len(vmileage)
if instr(number, mid(vmileage, k, 1)) < 1 then
check="f"
end if
if check="f" then exit for
next
if check="f" then
vmilecolor=notifycolor
if str="" then
str = "Please enter values for italicized fields labeled in red"
end if
end if
end if
end if
' end if
%>
Nissan.com.ph was designed with your needs in mind.
Chances are that the answer to your specific question can be found on this
site.
For general questions about Nissan, Nissan vehicles and
Nissan dealers:
Nissan
Customer Relations
Nissan Motor
Philippines, Inc.
Nissan Technopark, Brgy. Pulong Sta.
Cruz, Sta. Rosa, Laguna
049-541-2201 to 19
8:00 am to 4:00 pm
Monday through Saturday
Email us at info@nissan.com.ph
We ask that you provide us with some additional information about your inquiry
so that we can get back to you with a quick and helpful response. You can
expect a response from us within a business day. Select a topic from the
drop-down menu below that best matches your question. If you do not see a topic
that matches your question, select "Other" . Required fields are marked by an *. Additional fields
may be required depending on your selection.
Street Address
Address Line 1
Address Line 2
City
Province
Comments
Choose your area from the map to find a Nissan dealer nearest you.
If you have reviewed the appropriate Frequently Asked
Questions section of NissanDriven.com and you do not see a topic in the menu
which best describes the nature of your question/comment, this is the right
selection. Please provide us with a brief description of your question in the
"Comments" field below. Please offer as much specific information as possible.
This will help us quickly provide you with a helpful answer.
If you have reviewed the appropriate Frequently Asked
Questions section of NissanDriven.com and you do not see a topic in the menu
which best describes the nature of your question/comment, this is the right
selection. Please provide us with a brief description of your question in the
"Comments" field below. Please offer as much specific information as possible.
This will help us quickly provide you with a helpful answer.