<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim internationalDealers Dim internationalDealers_cmd Dim internationalDealers_numRows Set internationalDealers_cmd = Server.CreateObject ("ADODB.Command") internationalDealers_cmd.ActiveConnection = MM_barko_STRING internationalDealers_cmd.CommandText = "SELECT * FROM dbo.dealers WHERE Country <> 'USA' ORDER BY Country, DealerName ASC" internationalDealers_cmd.Prepared = true Set internationalDealers = internationalDealers_cmd.Execute internationalDealers_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 internationalDealers_numRows = internationalDealers_numRows + Repeat1__numRows %> Barko Hydraulics Locate a Dealer: International Dealer - Argentina, Australia, Canada, Chile, Russia and Venezuela.
   DEALER LOCATOR : INTERNATIONAL
<% While ((Repeat1__numRows <> 0) AND (NOT internationalDealers.EOF)) %> <% If internationalDealers.Fields.Item("Country").Value <> "" AND internationalDealers.Fields.Item("Country").Value <> "Canada " Then %>

<%=(internationalDealers.Fields.Item("Country").Value)%>

<% End If %>

<% If internationalDealers.Fields.Item("Forestry").Value <> "" Then %> Forestry Dealer:  <% ElseIf internationalDealers.Fields.Item("ConstInd").Value <> "" Then %> Construction/Industrial Dealer:  <% ElseIf internationalDealers.Fields.Item("Scrap").Value <> "" Then %> Scrap Dealer:  <% End If %>
<%=(internationalDealers.Fields.Item("DealerName").Value)%> <% If internationalDealers.Fields.Item("StreetAddress").Value <> "" Then %>
<%=(internationalDealers.Fields.Item("StreetAddress").Value)%> <% End If %> <% If internationalDealers.Fields.Item("City").Value <> "" Then %>
<%=(internationalDealers.Fields.Item("City").Value)%><% End If %><% If internationalDealers.Fields.Item("State").Value <> "" Then %>, <%=(internationalDealers.Fields.Item("State").Value)%><% End If %><% If internationalDealers.Fields.Item("Country").Value <> "" Then %>, <%=(internationalDealers.Fields.Item("Country").Value)%><% End If %><% If internationalDealers.Fields.Item("Zip").Value <> "" Then %> <%=(internationalDealers.Fields.Item("Zip").Value)%><% End If %> <% If internationalDealers.Fields.Item("Phone").Value <> "" Then %>
Phone: <%=(internationalDealers.Fields.Item("Phone").Value)%> <% End If %> <% If internationalDealers.Fields.Item("Fax").Value <> "" Then %>
Fax: <%=(internationalDealers.Fields.Item("Fax").Value)%> <% End If %> <% If internationalDealers.Fields.Item("WebAddress").Value <> "" Then %>
" target="_blank"><%=(internationalDealers.Fields.Item("WebAddress").Value)%> <% End If %> <% If internationalDealers.Fields.Item("ProductsCarried").Value <> "" Then %>
Products Carried: <%=(internationalDealers.Fields.Item("ProductsCarried").Value)%><% End If %>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 internationalDealers.MoveNext() Wend %>

For all other applications and product needs, contact the factory:
Barko Hydraulics
One Banks Avenue
Superior, Wisconsin 54880, USA
Phone: 715-392-5641
Fax: 715-392-3931
barkohydraulics@barko.com

 
<% internationalDealers.Close() Set internationalDealers = Nothing %>