Nosler Dealer Locator

Listed within this site are Nosler’s Dealer Partners—stores that carry a larger selection of Nosler and CT component bullets. If you are unable to find a dealer in your area through this dealer locator, please call

Nosler Customer Service: 1-800-285-3701

Dealers:

If you don’t see your store’s name listed here, and want information on becoming a Dealer Partner, contact: Dealer Customer Service 1-800-285-3701

---

Please enter your area code, city, state or zip code to locate a Nosler dealer near you.

<% fontface = "verdana,arial,helvetica" %> <% ' -------------------- dealer search form starts here -------------------- %>

	State: City: Zip Code: Area Code:   Select from List<% SQL = "Select Distinct StateProv from Dealers order by StateProv" Set RSr = ConnDealers.Execute(SQL) Do While not RSr.EOF %> "><%= RSr("StateProv") %><% RSr.MoveNext Loop Set RSr = Nothing %>  or   or   or

<% Level = Request("step") Select Case Level ' - - - - - - - - - - - - Begin Step 2 - - - - - - - - - - - - - - - - - Case 2 RefSta = Request.Form("State") RefCit = Request.Form("City") RefPos = Request.Form("PostalCode") RefCod = Request.Form("AreaCode") Errors = False If RefSta <> "" then SQL = "Select * from Dealers where StateProv='" & RefSta & "' order by Name" ElseIf RefCit <> "" then SQL = "Select * from Dealers where City like '%" & Replace(RefCit,"'","''") & "%' order by Name" ElseIf RefPos <> "" then SQL = "Select * from Dealers where PostalCode like '" & Replace(RefPos,"'","''") & "%' order by Name" ElseIf RefCod <> "" then RefCod = Replace(RefCod,"'","''") RefCod = Replace(RefCod,"(","") RefCod = Replace(RefCod,")","") RefCod = Replace(RefCod,"-","") RefCod = Replace(RefCod," ","") SQL = "Select * from Dealers where Phone like '(" & RefCod & "%' order by Name" Else Errors = True EType = "Please enter one of the search criteria in order to proceed with the search." End If If not Errors then Set RSFind = ConnDealers.Execute(SQL) If RSFind.EOF then Errors = True EType = "There were no dealers found matching that criteria. Please refine your search or use another method." End If End If %>

	<% bgcolor="#efefef" %> <% If Errors then %> <% Else Count = 1 Do while not RSFind.EOF BuildIt = "" & RSFind("Name") & "" BuildIt = BuildIt & " " & vbCrLf If RSFind("Address_1") <> "" then BuildIt = BuildIt & RSFind("Address_1") & " " & vbCrLf BuildIt = BuildIt & RSFind("City") & ", " & RSFind("StateProv") & "  " & RSFind("PostalCode") & " " & vbCrLf If RSFind("Phone") <> "" then BuildIt = BuildIt & "PH:" & RSFind("Phone") & " " & vbCrLf If RSFind("Fax") <> "" then BuildIt = BuildIt & "FX:" & RSFind("Fax") & " " & vbCrLf If RSFind("Email") <> "" then BuildIt = BuildIt & "Email: " & LCASE(RSFind("Email")) & " " & vbCrLf %> <% RSFind.MoveNext if bgcolor="#efefef" then bgcolor="#ffffff" else bgcolor="#efefef" Count = Count + 1 If Count > 3 then %> <% Count = 1 End If Loop Set RSFind = nothing End If %> <%= EType %> <%= BuildIt %>

<% ' - - - - - - - - - - - - End Step 2 - - - - - - - - - - - - - - - - - End Select %>