<%
'Response.Redirect "message.asp"
%>
<%
DealerSearchType = Request("DealerSearchType")
If IsNull(DealerSearchType) Or DealerSearchType = "" Then DealerSearchType = "none"
StateSelect = Request("StateSelect")
If IsNull(StateSelect) Or StateSelect = "" Then StateSelect = -1
CountrySelect = Request("CountrySelect")
If IsNull(CountrySelect) Or CountrySelect = "" Then CountrySelect = -1
ThisPage = "dealers.asp"
if CountrySelect <> -1 then
if CountrySelect = 119 then 'USA
DealerSearchType = "state"
else
DealerSearchType = "country"
end if
else
DealerSearchType = "none"
end if
If DealerSearchType <> "none" Then
If DealerSearchType = "state" And StateSelect <> -1 Then
sSproc = "usp_sel_DealerbyState"
DealerTypeNA = GetLookupID("North American")
'NEW:
ElseIf DealerSearchType = "country" And CountrySelect <> -1 Then
sSproc = "usp_sel_DealerbyCountry"
DealerTypeNA = GetLookupID("North American")
DealerTypeIntl = GetLookupID("International")
Else
sSProc = ""
End If
End If
If sSproc <> "" Then
'Set up the command object
Set cmdDealer = Server.CreateObject("ADODB.Command")
With cmdDealer
.ActiveConnection = cnSQL
.CommandType = adCmdStoredProc
.CommandText = sSproc
If DealerSearchType = "state" Then
.Parameters.Append .CreateParameter("@StateID", adInteger, adParamInput)
'NEW:
ElseIf DealerSearchType = "country" Then
.Parameters.Append .CreateParameter("@CountryID", adInteger, adParamInput)
ElseIf DealerSearchType = "N" Or DealerSearchType = "I" Then
.Parameters.Append .CreateParameter("@DealerType", adInteger, adParamInput)
'Else
' .Parameters.Append .CreateParameter("@SortOrder", adVarWChar, adParamInput, 50)
End If
If DealerSearchType = "state" Then
.Parameters("@StateID") = CInt(StateSelect)
ElseIf DealerSearchType = "country" Then
.Parameters("@CountryID") = CInt(CountrySelect)
ElseIf DealerSearchType = "N" Or DealerSearchType = "I" Then
.Parameters("@DealerType") = CInt(DealerType)
'Else
' .Parameters("@SortOrder") = " DealerType, State, City"
End If
End With
'Open a recordset
Set rsDealer = Server.CreateObject("ADODB.Recordset")
rsDealer.Open cmdDealer
End If
FormAreaLink = ""
FormAreaLink = Request("FormAreaLink")
response.write FormAreaLink
response.write dealersearchtype
If Not IsNull(FormAreaLink) And FormAreaLink <> "" Then
Response.write("")
End If
Sub BuildDealerListing
End Sub
%>
Invisible Patterns Dealer Locator
Search For An Approved Dealer Near You:
Search here for an approved dealer that will help you protect your vehicle with the Invisible Pattern that is custom fit for your vehicle.
To view pattern files for your vehicle,click
here.
Interested in becoming an approved dealer? Contact us:
Our North American Headquarters: 30 Commerce Road
P.O. Box 384
Rockland, MA 02370-0384
USA
Tel: 866-211-8273
Email: sales@invisiblepatterns.com
Our European Headquarters: Units 5-6 Faraday Close
Drayton Fields
Daventry, England
NN11 5RD
Tel: +44 (0) 1327 876555
Email: ventureshield@venturetape.co.uk
Our Australian Headquarters:
11B Production Drive
Campbellfield Victoria 3061 Australia
Tel: +61 (3) 9357 6025
Email: ventureshield@venturetape.com.au
<% 'If DealerSearchType <> "none" Then
If (DealerSearchType = "state" And StateSelect <> -1) Or (DealerSearchType = "country" And CountrySelect <> -1) Then
Response.Write "
"
If (DealerSearchType = "state" And "StateSelect" <> - 1) Or DealerSearchType <> "state" Then
If Not(rsDealer.BOF And rsDealer.EOF) Then
sNAHeader = "
North American Dealer List
" & vbCRLF
sNAHeader = sNAHeader & "
"
sIntlHeader = "
Dealers Outside North America
"
sCountryHeader = "
Dealers In " & CountryDesc & "
"
sFirstBlankRow = "
"
sBlankRow = "
"
sBlankCol = "
"
intRecordCount = 0
Alternate = True
While Not rsDealer.EOF
intRecordCount = intRecordCount + 1
DealerType = NullToString(rsDealer("DealerType"))
'response.write "DealerType " & DealerType
'response.write "DealerTypeNA " & DealerTypeNA
'response.write "DealerTypeIntl " & DealerIntl
'response.write "DealerSearchType " & DealerSearchType
DealerName = NullToString(rsDealer("DealerName"))
DealerExtraInfo = NullToString(rsDealer("DealerExtraInfo"))
Address1 = NullToString(rsDealer("Address1"))
Address2 = NullToString(rsDealer("Address2"))
City = NullToString(rsDealer("City"))
State = NullToString(rsDealer("State"))
'NEW:
If DealerSearchType <> "country" Then
State = NullToString(rsDealer("StateDesc"))
End If
Zip = NullToString(rsDealer("Zip"))
Line1 = rsDealer("Line1")
Line2 = rsDealer("Line2")
Line3 = rsDealer("Line3")
Line4 = rsDealer("Line4")
Country = rsDealer("Country")
Phone1 = NullToString(rsDealer("Phone1"))
Phone2 = rsDealer("Phone2")
CellPhone = rsDealer("Phone3")
Fax = NullToString(rsDealer("Fax"))
Website = NullToString(rsDealer("Website"))
Email = NullToString(rsDealer("Email"))
CertificationLevel = rsDealer("CertificationLevel")
If CertificationLevel > 0 Then
CertifiedInstallerImage = " "
Else
CertifiedInstallerImage = " "
End If
If rsDealer("LandRoverCert") = true Then
LandRoverImage = " "
else
LandRoverImage = ""
end if
''If DealerSearchType = "all" Then
If DealerSearchType = "all" Or DealerSearchType = "country" Then
'response.write "DealerType " & DealerType & " DealerTypeNA " & DealerTypeNA & " DealerTypeInt " & DealerTypeInt & " "
'NEW:
If DealerSearchType = "country" Then
If CountryHeader = False Then
Response.Write sCountryHeader ' & sFirstBlankRow
CountryHeader = True
FirstRow = True
End If
Else
If CInt(DealerType) = CInt(DealerTypeNA) Then
If NAHeader = False Then
Response.Write sNAHeader ' & sFirstBlankRow
NAHeader = True
FirstRow = True
End If
ElseIf CInt(DealerType) = CInt(DealerTypeIntl) Then
If IntlHeader = False Then
Response.Write sBlankRow & sIntlHeader & sFirstBlankRow
IntlHeader = True
FirstRow = True
End If
End If
End If
End If
'--Build the listings
'Build the string
sItem = ""
'Company Name
sItem = sItem & "" & DealerName & "" & " "
'Extra Company (Contact, additional name)
If DealerExtraInfo <> "" Then
sItem = sItem & DealerExtraInfo & " "
End If
'response.write "DT is " & DealerType & " and dtna is " & DealerTypeNA & "vbcrlf"
'MAF 11/19/2004 Only check for North American addresses if
'a North American dealer
If CInt(DealerType) = CInt(DealerTypeNA) Then
'Address 1
If Address1 <> "" Then
sItem = sItem & Address1 & " "
End If
'Address 2
If Address2 <> "" Then
sItem = sItem & Address2 & " "
End If
'City, State/Province, Zip
If City <> "" Then
sItem = sItem & City & ", "
End If
If State <> "" Then
sItem = sItem & State & " "
End If
If Zip <> "" Then
sItem = sItem & "," & Zip & " "
Else
sItem = sItem & " "
End If
Else 'An international dealer
'Line 1
If Line1 <> "" Then
sItem = sItem & Line1 & " "
End If
'Line 2
If Line2 <> "" Then
sItem = sItem & Line2 & " "
End If
'Line 3
If Line3 <> "" Then
sItem = sItem & Line3 & " "
End If
'Line 4
If Line4 <> "" Then
sItem = sItem & Line4 & " "
End If
End If
'Country:
If Country <> "" Then
sItem = sItem & Country & " "
End If
'Create a few breaks for phone #s
sItem = sItem & CertifiedInstallerImage & LandRoverImage & " "
'Phone 1
If Phone1 <> "" Then
sItem = sItem & "Phone: " & Phone1 & " "
End If
'Phone 2
If Phone2 <> "" Then
sItem = sItem & "Phone 2: " & Phone2 & " "
End If
'Phone 3
If CellPhone <> "" Then
sItem = sItem & "Cell Phone: " & CellPhone & " "
End If
'Fax
If Fax <> "" Then
sItem = sItem & "Fax: " & Fax & " "
End If
'Website
If Website <> "" Then
sItem = sItem & "Website: " & Website & " "
End If
'Email
If Email <> "" Then
sItem = sItem & "Email: " & Email & " "
End If
If Alternate = False Then
Response.Write vbCRLF & sBlankCol & vbCRLF
sItem = vbCRLF & "
" & sItem & "
" & vbCRLF
Response.Write sItem
Alternate = True
Else
If FirstRow = True Then
Response.Write vbCRLF & sFirstBlankRow & vbCRLF
FirstRow = False
Else
Response.Write vbCRLF & sBlankRow & vbCRLF
End If
sItem = "
" & sItem & "
" & vbCRLF
Response.Write sItem
Alternate = False
End If
rsDealer.MoveNext
Wend
Response.Write "
