<%@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.

Toxonics Hat
MSRP: $10.99

   

Tournament Chair
MSRP: $29.99

   

Umbrella
MSRP: $15.99