<%@LANGUAGE="VBSCRIPT"%> <% Dim Huntingsights__MMColParam Huntingsights__MMColParam = "Hunting Sights" if (Request("MM_EmptyValue") <> "") then Huntingsights__MMColParam = Request("MM_EmptyValue") %> <% set Huntingsights = Server.CreateObject("ADODB.Recordset") Huntingsights.ActiveConnection = MM_highcountry_STRING Huntingsights.Source = "SELECT * FROM toxonics WHERE accessorycatagory = '" + Replace(Huntingsights__MMColParam, "'", "''") + "'" Huntingsights.CursorType = 0 Huntingsights.CursorLocation = 2 Huntingsights.LockType = 3 Huntingsights.Open() Huntingsights_numRows = 0 %> <% Dim CreateYourOwn__MMColParam CreateYourOwn__MMColParam = "Create Your Own" if (Request("MM_EmptyValue") <> "") then CreateYourOwn__MMColParam = Request("MM_EmptyValue") %> <% set CreateYourOwn = Server.CreateObject("ADODB.Recordset") CreateYourOwn.ActiveConnection = MM_highcountry_STRING CreateYourOwn.Source = "SELECT * FROM toxonics WHERE accessorycatagory = '" + Replace(CreateYourOwn__MMColParam, "'", "''") + "'" CreateYourOwn.CursorType = 0 CreateYourOwn.CursorLocation = 2 CreateYourOwn.LockType = 3 CreateYourOwn.Open() CreateYourOwn_numRows = 0 %> <% Dim ArcheryProgram__MMColParam ArcheryProgram__MMColParam = "Archery Program" if (Request("MM_EmptyValue") <> "") then ArcheryProgram__MMColParam = Request("MM_EmptyValue") %> <% set ArcheryProgram = Server.CreateObject("ADODB.Recordset") ArcheryProgram.ActiveConnection = MM_highcountry_STRING ArcheryProgram.Source = "SELECT * FROM toxonics WHERE accessorycatagory = '" + Replace(ArcheryProgram__MMColParam, "'", "''") + "'" ArcheryProgram.CursorType = 0 ArcheryProgram.CursorLocation = 2 ArcheryProgram.LockType = 3 ArcheryProgram.Open() ArcheryProgram_numRows = 0 %> <% Dim Stabilizers__MMColParam Stabilizers__MMColParam = "Stabilizers" if (Request("MM_EmptyValue") <> "") then Stabilizers__MMColParam = Request("MM_EmptyValue") %> <% set Stabilizers = Server.CreateObject("ADODB.Recordset") Stabilizers.ActiveConnection = MM_highcountry_STRING Stabilizers.Source = "SELECT * FROM toxonics WHERE accessorycatagory = '" + Replace(Stabilizers__MMColParam, "'", "''") + "'" Stabilizers.CursorType = 0 Stabilizers.CursorLocation = 2 Stabilizers.LockType = 3 Stabilizers.Open() Stabilizers_numRows = 0 %> <% Dim targetsightaccessories__MMColParam targetsightaccessories__MMColParam = "Target Sight Accessories" if (Request("MM_EmptyValue") <> "") then targetsightaccessories__MMColParam = Request("MM_EmptyValue") %> <% set targetsightaccessories = Server.CreateObject("ADODB.Recordset") targetsightaccessories.ActiveConnection = MM_highcountry_STRING targetsightaccessories.Source = "SELECT * FROM toxonics WHERE accessorycatagory = '" + Replace(targetsightaccessories__MMColParam, "'", "''") + "'" targetsightaccessories.CursorType = 0 targetsightaccessories.CursorLocation = 2 targetsightaccessories.LockType = 3 targetsightaccessories.Open() targetsightaccessories_numRows = 0 %> <% Dim Repeat3__numRows Repeat3__numRows = -1 Dim Repeat3__index Repeat3__index = 0 CreateYourOwn_numRows = CreateYourOwn_numRows + Repeat3__numRows %> <% Dim Repeat5__numRows Repeat5__numRows = -1 Dim Repeat5__index Repeat5__index = 0 Stabilizers_numRows = Stabilizers_numRows + Repeat5__numRows %> <% Dim Repeat6__numRows Repeat6__numRows = -1 Dim Repeat6__index Repeat6__index = 0 targetsightaccessories_numRows = targetsightaccessories_numRows + Repeat6__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% Dim Repeat4__numRows Repeat4__numRows = -1 Dim Repeat4__index Repeat4__index = 0 ArcheryProgram_numRows = ArcheryProgram_numRows + Repeat4__numRows %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Huntingsights_numRows = Huntingsights_numRows + Repeat1__numRows %> High Country Archers one stop center for all of your 3-D, bowhunting,archery needs from bows and all types of accessories to arrows and arrow components to free advice and technical support.
We have assembled hunting sights geared toward making you a better shot–on the range and in the field. As always, Toxonics offers unparalleled service. We stand by our products.

H-310 .040 Top Gun Pin
MSRP: $6.99
   

H-311 .019 Top Gun Pin
MSRP: $8.99
   

H-312 .029 Top Gun Pin
MSRP: $7.99
   

H-313 Tracer Sight Pin
MSRP: $9.99
   

H-307 .040 Hybrid Pin
MSRP: $6.99
   


H-308 .040 Hybrid Pin
MSRP: $8.99
   


H-306 .040 Hybrid Pin
MSRP: $7.99
   

H-763 Lock knob for Micro Adjusting Sights
MSRP: $9.99
   

H-764 Lock knob for Toolless Windage
MSRP: $9.99
   

H-765 Lock knob for Toolless Extension
MSRP: $9.99
   

H-3850 Light Kit for Sights w/Aluminum Pin Guard
MSRP: $16.65
   

H-320 Replacement Fiber Optic for K9 Sights
MSRP: $3.89
Available in: Red, Green, Yellow
   

EX-105 Bowplate for Micro Adjust Sight w/Quiver Holes
MSRP: $9.99
Available in: Red, Green, Yellow
   

EX-161 Drop Bracket for all Sights
MSRP: $12.99
   

EX-107 Dovetail Extension for Micro Adjust Sights
MSRP: $29.99
   

EX-110 Extension Knob for Micro Adjust Sights
MSRP: $1.99
   

EX-170 Offset Bow Plate for Dovetail Extension Bars
MSRP: $11.99
   

EX-181 Longer Extension for Standard & Toolless Sights
MSRP: $14.99
   

EX-183 3.5 Dovetail Bar for Micro Adjust Sight
MSRP: $16.99
   

EX-184 5 Dovetail Bar for Micro Adjust Sight
MSRP: $18.99