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