<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% if request.QueryString("State") <> "" then Dim domesticDealers Dim domesticDealers_cmd Dim domesticDealers_numRows Set domesticDealers_cmd = Server.CreateObject ("ADODB.Command") domesticDealers_cmd.ActiveConnection = MM_barko_STRING domesticDealers_cmd.CommandText = "SELECT * FROM dbo.dealers, dbo.states WHERE Country = 'USA' AND StatesCovered LIKE '%" & request.QueryString("State") & "%' AND '" & request.QueryString("State") & "' = StateAbb ORDER BY DealerName ASC" domesticDealers_cmd.Prepared = true Set domesticDealers = domesticDealers_cmd.Execute domesticDealers_numRows = 0 end if %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 domesticDealers_numRows = domesticDealers_numRows + Repeat1__numRows %> Barko Hydraulics Locate a Dealer: Domestic Dealer - United States, US
   DEALER LOCATOR : DOMESTIC
<% If request.QueryString("State") <> "" Then %> <% If Not domesticDealers.EOF Or Not domesticDealers.BOF Then %>

<%=(domesticDealers.Fields.Item("StateName").Value)%>

<% While ((Repeat1__numRows <> 0) AND (NOT domesticDealers.EOF)) %>

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

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 domesticDealers.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

<% Else %>

Contact the factory:
Barko Hydraulics
One Banks Avenue
Superior, Wisconsin 54880, USA
Phone: 715-392-5641
Fax: 715-392-3931
barkohydraulics@barko.com

<% End If %><% End If %>

 

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