<%@LANGUAGE="VBSCRIPT" %> <% Dim StatesListRS Dim StatesListRS_cmd Dim StatesListRS_numRows Set StatesListRS_cmd = Server.CreateObject ("ADODB.Command") StatesListRS_cmd.ActiveConnection = MM_FinnConnection1_STRING StatesListRS_cmd.CommandText = "SELECT DISTINCT(Territory) FROM dbo.vw_dealer_territories ORDER BY [Territory] ASC" StatesListRS_cmd.Prepared = true Set StatesListRS = StatesListRS_cmd.Execute StatesListRS_numRows = 0 %> <% Session("LongZip") = Trim(Request.Form("zipCode")) Session("ShortZip") = Left(Session("LongZip"),3) Session("Territory") = Trim(Request.Form("Territory")) Dim Join1__ZipVar Join1__ZipVar = "00000" If (Session("ShortZip") <> "") OR (Session("Territory") <> "") Then If (Session("ShortZip") <> "") Then Join1__ZipVar = Session("ShortZip") Set Conn = Server.CreateObject("ADODB.Connection") conn.open "Provider=SQLOLEDB; Data Source=fcsrv0003; Initial Catalog=es-design; User ID=es_sqlacct; Password=finncorp; Network Library=dbmssocn;" strSQL = "SELECT Dealers.* FROM Dealers INNER JOIN ZipsDealers ON Dealers.ID=ZipsDealers.DealerID WHERE ZipsDealers.ZipPrefix = " + Replace(Join1__ZipVar, "'", "''") + "" Else Join1__TerrVar = Session("Territory") Set Conn = Server.CreateObject("ADODB.Connection") conn.open "Provider=SQLOLEDB; Data Source=fcsrv0003; Initial Catalog=es-design; User ID=es_sqlacct; Password=finncorp; Network Library=dbmssocn;" strSQL = "SELECT * FROM vw_dealer_territories WHERE Territory = '" + Join1__TerrVar + "'" End If set Join1 = Server.CreateObject("ADODB.Recordset") Join1.CursorType = 0 Join1.CursorLocation = 2 Join1.LockType = 1 Join1.Open strSQL, Conn Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Join1_numRows = Join1_numRows + Repeat1__numRows %> <%End If%> Find a USA Dealer

Find a USA Dealer

To find the nearest dealers to your location, please search by:

Entering Your ZIP Code OR Selecting Your State/Province
 

<% If (Session("ShortZip") <> "") OR (Session("Territory") <> "") Then While ((Repeat1__numRows <> 0) AND (NOT Join1.EOF)) %>

 

<%=(Join1.Fields.Item("DealerName").Value)%>
<%=(Join1.Fields.Item("address").Value)%>
<%=(Join1.Fields.Item("city").Value)%>, <%=(Join1.Fields.Item("state").Value)%> <%=(Join1.Fields.Item("zip").Value)%>
Phone: <%=(Join1.Fields.Item("Phone").Value)%>
Fax: <%=(Join1.Fields.Item("fax").Value)%>
Website: target="_blank"><%=(Join1.Fields.Item("web").Value)%>
Email: target="_blank"><%=(Join1.Fields.Item("email").Value)%>
Parts Email: target="_blank"><%=(Join1.Fields.Item("ly_sales").Value)%>
<%If Join1.Fields.Item("compact") = 1 Then %>
<%Else%>
<%End If%>
Compact Equipment
<%If Join1.Fields.Item("large") = 1 Then %>
<%Else%>
<%End If%>
Large Equipment
<%If Join1.Fields.Item("consumable") = 1 Then %>
<%Else%>
<%End If%>
Consumables
<%If Join1.Fields.Item("parts") = 1 Then %>
<%Else%>
<%End If%>
Parts Available
<%If Join1.Fields.Item("service") = 1 Then %>
<%Else%>
<%End If%>
Service Available

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

<% If Join1.EOF And Join1.BOF Then %> Please contact FINN to find a sales agent nearest you:


    Phone: 800-543-7166
    Email: sales@finncorp.com
<%End If%> <% Join1.Close() Set Join1 = Nothing %> <%End If%>