<%staging.holtcat.com storeTypeIdParam = request("storeTypeIds") if(request("storeTypeIds") = "")then storeTypeIdParam="0" end if zipcodeParam = request("zipcode") if(request("zipcode") = "") then zipcodeParam="78701" end if lat = request("lat") lon = request("lon") distance = request("distance") if(request("lat") = "") then lat = 30.2 end if if(request("lon") = "") then lon = -97 end if if(request("distance") = "") then distance = 100 end if function createLocationArray(storeTypeIdParam,startLat,startLon,radius) set conn=Server.CreateObject("ADODB.Connection") conn.Open "Provider=SQLOLEDB; Data Source=staging.holtcat.com; Initial Catalog=HoltCAT_WebApps;User ID=storelocator1; Password=riptide54" idFilter = " and storetypeservice_id in (" & storeTypeIdParam & ")" distanceFunc = " storelocator1.GetDistance(" & startLat & "," & startLon & ",shipping_lat,shipping_long)" radius = "(select top 1 distance from distanceradius)" distanceFilter = " and " & distanceFunc & " < " & radius getAddressSql = "select ( rtrim(location_name) + '
' + rtrim(shipping_address) + '
' + rtrim(shipping_city) + '
' + rtrim(shipping_zip) + '
' + rtrim(shipping_country) + '

' + rtrim(shipping_phone)) as shipping_address,rtrim(shipping_long),rtrim(shipping_lat)," & distanceFunc & " as distance from location l left outer join location_to_storetypeservice r on l.id = r.location_id where 1=1" if not IsNull(storeTypeIdParam) and storeTypeIdParam <> "0" then getAddressSql = getAddressSql & idFilter end if getAddressSql = getAddressSql + distanceFilter & " order by distance asc" response.write("") rs.close conn.Close end function function writeLocationDiv(storeTypeIdParam,startLat,startLon,radius) set conn=Server.CreateObject("ADODB.Connection") conn.Open "Provider=SQLOLEDB; Data Source=staging.holtcat.com; Initial Catalog=HoltCAT_WebApps;User ID=storelocator1; Password=riptide54" idFilter = " and id in (select location_id from storelocator1.location_to_storetypeservice where location_id = l.id and storetypeservice_id in (" & storeTypeIdParam & ") )" distanceFunc = " storelocator1.GetDistance(" & startLat & "," & startLon & ",shipping_lat,shipping_long)" radius = "(select top 1 distance from distanceradius)" distanceFilter = " and " & distanceFunc & " < " & radius getAddressSql = "select (rtrim(shipping_address) + '
' + rtrim(shipping_city) + ' ' + rtrim(shipping_zip) + ' ' + rtrim(shipping_country) + '
' + rtrim(shipping_phone)) as shipping_address,rtrim(shipping_long),rtrim(shipping_lat)," & distanceFunc & " as distance, rtrim(location_name) as name, l.location_desc as location_desc, ltrim(rtrim(location_url)),id as location_id, location_image from location l where 1=1" if not IsNull(storeTypeIdParam) and storeTypeIdParam <> "0" then getAddressSql = getAddressSql & idFilter end if getAddressSql = getAddressSql & distanceFilter getAddressSql = getAddressSql & " order by distance asc" set rs2= conn.execute(getAddressSql) if not rs2.eof then rs2Array = rs2.GetRows() theCount = UBound(rs2Array, 2) + 1 Dim locations() ReDim locations(theCount) iRecFirst = LBound(rs2Array, 2) iRecLast = UBound(rs2Array, 2) response.write("") For I = iRecFirst To iRecLast shippingAddress = rs2Array(0,I) shipLong = rs2Array(1,I) shipLat = rs2Array(2,I) distanceXY = round(rs2Array(3,I),2) companyNameXY = rs2Array(4,I) locDesc = rs2Array(5,I) locationUrl = rs2Array(6,I) location_id = rs2Array(7,I) imgLocation = rs2Array(8,I) storeTypesDesc = "" storeImgLink = "" if(imgLocation="" or isNull(imgLocation)) then storeImgLink = "" end if set conn3=Server.CreateObject("ADODB.Connection") conn3.Open "Provider=SQLOLEDB; Data Source=staging.holtcat.com; Initial Catalog=HoltCAT_WebApps;User ID=storelocator1; Password=riptide54" getServices = "select servicename from storelocator1.storetypeservice where 1=1 " if not IsNull(location_id) and location_id <> "" then getServices = getServices & " and id in (select storetypeservice_id from location_to_storetypeservice where location_id = " & location_id & ")" else getServices = getServices & " and 2=1" end if set rs3= conn.execute(getServices) do while not rs3.eof storeTypesDesc = storeTypesDesc & "
- " & rs3(0) rs3.movenext getServices = "" loop conn3.Close response.write( "" ) Next end if response.write("") response.write("") conn.Close end function //getServicesSQL = "SELECT * FROM storetypeservice l left outer join storetype r on l.storetypeid = r.id where storetypeid in (" & storeTypeIdParam & ") order by storetypeid" %> Store Locator Module <% response.write("") %>
Store Distance Store Type / Services
" & companyNameXY & "
" & shippingAddress & "
" & storeImgLink & "		" & distanceXY & "" & storeTypesDesc & "
<% createLocationArray storeTypeIdParam, lat,lon,distance %> Image
Filter by Product Type: HOLTCat
Sales,Parts,Service 		HOLTCrane
Sales,Parts,Service 		Holt Ag
Sales,Parts,Service
Additional Filters : Image
  • Cat Machine
    • Sales & Heavy Rental
    • Parts & Service
  • Industrial Engine and Generator
    • Sales & Rental
    • Parts
    • Service
  • On-Highway Truck/RV
    • Parts
    • Service
  • Machine Engine
    • Sales,Parts,Service
  • HOLT Rental Services
    • Light Rental
  • Hydraulic Repair
  • Custom Engineered Products & Services
  • Scheduled Oil Sampling (HOLT Oil Lab)
  • Scheduled Maintenance (CSAs)
  • Radiator Repair
  • Welding and Machining
  • Machine Rebuilds
  • Industrial Engine Rebuilds
  • Track Service
  • Lube Service
  • Painting
  • Technical Services
  • Show All
<% if(request("zipcode") <> "") then writeLocationDiv storeTypeIdParam, lat,lon,distance end if %>
.dd_menubar { height: 41px; background-image: url(images/ddmenu/menubarbg.png); background-position: top left; background-repeat: repeat-x; } .dd_navlink { margin-left: 15px; font-family: Geneva, Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold; color: #333; text-decoration: none; } .dd_navlinkimg { margin: 0px; border: 0px; } .dd_navlinkhover { position: absolute; border: 0px; padding: 0px; z-index: 4999; margin: 0px; } .dd_menu { position: absolute; left: 200px; top: 300px; display: none; filter: alpha(opacity=95); -moz-opacity: .95; opacity: .95; z-index:10000; } .dd_menu_inner { min-height: 50px; width: 100%; display: table; position: relative; } .dd_menu_borderimg { margin: auto; padding: 0px; border: 0px; font-size: 1px; } .dd_menu_border_lt { /*background-image: url(images/ddmenu/menubg_lt.png);*/ background-position: top left; background-repeat: no-repeat; position: absolute; left: 0px; top: 0px; width:7px; height: 9px; } .dd_menu_border_rt { /*background-image: url(images/ddmenu/menubg_rt.png);*/ background-position: top left; background-repeat: no-repeat; position: absolute; right: 0px; top: 0px; width:4px; height: 9px; } .dd_menu_border_t { /*background-image: url(images/ddmenu/menubg_t.png);*/ background-position: top left; background-repeat:repeat-x; margin: 0px; margin-left: 7px; margin-right: 4px; #margin-right:0px; #margin-left:0px; _margin-left:0px; _margin-right:0px; z-index: 1001; } .dd_menu_border_lb { /*background-image: url(images/ddmenu/menubg_lb.png);*/ background-position: top left; background-repeat: no-repeat; position: absolute; left: 0px; top: 0px; width:7px; height: 5px; } .dd_menu_border_rb { /*background-image: url(images/ddmenu/menubg_rb.png);*/ background-position: top left; background-repeat: no-repeat; position: absolute; right: 0px; top: 0px; width:4px; height: 5px; } .dd_menu_border_b { /*background-image: url(images/ddmenu/menubg_b.png);*/ background-position: top left; background-repeat:repeat-x; margin: 0px; margin-left: 7px; margin-right: 4px; z-index: 1001; #margin-right:0px; #margin-left:0px; _margin-left:0px; _margin-right:0px; #margin-top:-1px; #border-top:solid 2px #F6CA20; #padding-top:2px; } .dd_menu_border_l { /*background-image: url(images/ddmenu/menubg_l.png);*/ background-position: top left; background-repeat: repeat-y; } .dd_menu_border_r { /*background-image: url(images/ddmenu/menubg_r.png);*/ background-position: top right; background-repeat: repeat-y; } .dd_section { float: left; clear: none; background-color: #f6ca22; width: 200px; display: table; margin-top: -11px; position: relative; padding-right: 10px; padding-left: 20px; } .dd_sectiondiv { position: absolute; top: 10px; right: 0px; } .dd_link { font-family: Geneva, Arial, Helvetica, sans-serif; font-size: 12px; font-weight: normal; color: #333333; text-decoration: none; margin-top: 4px; margin-bottom: 3px; float: left; clear: both; margin-right: 10px; display:inline; width: 100%; !important; } .dd_link:active { font-family: Geneva, Arial, Helvetica, sans-serif; font-size: 12px; font-weight: normal; color: #333333; text-decoration: none; margin-top: 4px; margin-bottom: 3px; float: left; clear: both; margin-right: 10px; display:inline; width: 100%; !important; } .dd_link:link { font-family: Geneva, Arial, Helvetica, sans-serif; font-size: 12px; font-weight: normal; color: #333333; text-decoration: none; margin-top: 4px; margin-bottom: 3px; float: left; clear: both; margin-right: 10px; display:inline; width: 100%; !important; } .dd_link:visited { font-family: Geneva, Arial, Helvetica, sans-serif; font-size: 12px; font-weight: normal; color: #333333; text-decoration: none; margin-top: 4px; margin-bottom: 3px; float: left; clear: both; margin-right: 10px; display:inline; width: 100%; !important; } .dd_link:hover { text-decoration: underline; !important; } .dd_linkhead { font-family: Geneva, Arial, Helvetica, sans-serif; font-size: 13px; font-weight: bold; color: #000000; text-decoration: none; margin-top: 4px; margin-bottom: 7px; margin-top: 10px; float: left; clear: both; margin-right: 20px; !important; } .dd_linkhead:active { text-decoration: none; color: #000000; !important; } .dd_linkhead:link { text-decoration: none; color: #000000; !important; } .dd_linkhead:visited { text-decoration: none; color: #000000; !important; } .dd_linkhead:hover { text-decoration: underline; color: #000000; !important; } .dd_level1 { margin-left: 0px; } .dd_level1 a:active{ margin-left: 0px; color:#333; } .dd_level1 a:link{ margin-left: 0px; color:#333; } .dd_level1 a:visited{ margin-left: 0px; color:#333; } .dd_level1 a:hover{ margin-left: 0px; color:#000000; } .dd_level2 { margin-left: 20px; } .dd_level3 { margin-left: 40px; } .dd_level4 { margin-left: 80px; }