%@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 asse mbled
hunting sights geared toward making you a better shoton the range and
in the field. As always, Toxonics offers unparalleled service. We stand by our
products.
|
NB-100
Coilless Stabilizer MSRP:
$29.99
Unlike
any other stabilizer on the market, the recoilless stabilizer
works to offset the recoil of the shot, as well as dampen
the vibration of the bow throughout the shot cycle.
Toxonics recoilless units are designed similar to out
hydraulic units of the past - without the use of oil
or any other media. Instead the piston works on an open
cell foam piston and center shaft. Through the connection
of silicon rubber boots, linear and radial motion is
absorbed through the center piston while maintaining
the rigid nature of the center shaft. The simplicity
of this design makes it a reliable choice. |
| |
|
|
NB-109
Offset Bracket
MSRP: $10.99
This
simple bracket enhances the function of the stabilizer
itself. Primarily created for weight distribution,
the offset bracket distributes the weight of the stabilizer
to the rear of the bow, enhancing the aimability and
counter balancing the weight of an arrow quiver. |
| |
|
|
NB-106
Quick Disconnect MSRP:
$9.99 This
bracket allows for easy removal of your Stabilizer. |
| |
|
|
NB-107
Angled Quick Disconnect MSRP:
$13.49 This
bracket allows for easy removal of your Stabilizer.
This bracket is angled downward 10 degrees. |
| |
|
|
NB-108
Offset Stabilizer Bracket MSRP:
$12.99 This
simple bracket enhances the function of the stabilizer
itself. Primarily created for weight distribution, the
offset bracket distributes the weight of the stabilizer
to the rear of the bow, enhancing the aimability and
counter balancing the weight of an arrow quiver. |
| | | | |