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


ZAPPER
300 & ZAPPER 300 HIGH PERFORMANCE
The
Perfect Bowhunting Arrow Rest. Your Arrow Can Not Fall Out.
| The new Bodoodle 300 Zapper
Arrow Rest is totally unique in design and function from any high quality
arrow rest you have ever shot before. The Zapper 300's three adjustable
stainless steel Speed Fins support and cushion the arrow shaft AND they
hold it securely in place so that no matter what conditions of terrain
or weather, no matter what the angle of the shot, you have perfect arrow
support from the instant of release to the very nanosecond your arrow clears
the bow.
"We have built on former designs to create a rugged rest that is equally shootable for advanced bowhunters or for novices," says S.G. Christian, president and founder of the family owned and operated Bodoodle Corporation. "The Zapper's design lets you shoot at odd angles from the ground or from a treestand. "You can even fire away upside down with confidence that your arrow will not fall off the rest and that you will, most likely if you are within range, hit what you are shooting at. Our Plant Manager, Mr. Louis Epperson, has actually demonstrated this by zeroing and tuning his hunting bow setup while hanging upside down in our warehouse!" The new Bodoodle Zapper delivers unconditional value for excellent performance in any bowhunting situation. It is easy to tune for any size arrow. You Can count on Bodoodle for all of the shootability benefits you need for any bowhunting task, any time, any place. FEATURES
|
|