<%@LANGUAGE="VBSCRIPT"%> <% Dim HLooper1__numRows HLooper1__numRows = 15 Dim HLooper1__index HLooper1__index = 0 photo_numRows = photo_numRows + HLooper1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count photo_total = photo.RecordCount ' set the number of rows displayed on this page If (photo_numRows < 0) Then photo_numRows = photo_total Elseif (photo_numRows = 0) Then photo_numRows = 1 End If ' set the first and last displayed record photo_first = 1 photo_last = photo_first + photo_numRows - 1 ' if we have the correct record count, check the other stats If (photo_total <> -1) Then If (photo_first > photo_total) Then photo_first = photo_total If (photo_last > photo_total) Then photo_last = photo_total If (photo_numRows > photo_total) Then photo_numRows = photo_total End If %> <% ' *** Move To Record and Go To Record: declare variables Set MM_rs = photo MM_rsCount = photo_total MM_size = photo_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter r = Request.QueryString("index") If r = "" Then r = Request.QueryString("offset") If r <> "" Then MM_offset = Int(r) ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record i = 0 While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1)) MM_rs.MoveNext i = i + 1 Wend If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page i = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size)) MM_rs.MoveNext i = i + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = i If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record i = 0 While (Not MM_rs.EOF And i < MM_offset) MM_rs.MoveNext i = i + 1 Wend End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record photo_first = MM_offset + 1 photo_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (photo_first > MM_rsCount) Then photo_first = MM_rsCount If (photo_last > MM_rsCount) Then photo_last = MM_rsCount End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** 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 %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 0) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then params = Split(MM_keepMove, "&") MM_keepMove = "" For i = 0 To UBound(params) nextItem = Left(params(i), InStr(params(i),"=") - 1) If (StrComp(nextItem,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & params(i) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&" urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = urlStr & "0" MM_moveLast = urlStr & "-1" MM_moveNext = urlStr & Cstr(MM_offset + MM_size) prev = MM_offset - MM_size If (prev < 0) Then prev = 0 MM_movePrev = urlStr & Cstr(prev) %> Boys & Girls Club of North Central Florida
Trophy whitetail deer hunting in Texas

Deer Hunting Outfitter trophy hunts on private well managed property. If you want a great Texas deer hunting we offer one of the best hunts for the lowest price. If it's trophy deer hunt, Rio Grande turkey, Texas quail hunt or wild hogs you're after, WW Outfitters will help you to fill that spot on your trophy room wall.

We provide some of the very finest New Mexico trophy hunts. If it's trophy elk, bear, mountain lion, antelope or mule deer hunting you're after, WW Outfitters can provides the finest big game hunting to help fill that spot on your trophy room wall.

Advantlink Enterprises, Inc. - Web Sites for high SE rankings!
Having a great LOOKING web site design does not do you any good if you do not rank high in the search engines. Web sites must be DESIGNED for search engine rankings. When these two elements are properly integrated, the results can have a profound effect on your business! Call now!
Private Forester, Inc. - Forestry and Wildlife Management Services
When our forestry services are utilized in conjunction with our wildlife management program the results are profoundly beneficial to our customers and the environment. Our services include timber planting, harvest, sales as well as trophy wildlife management services and hunting leases.
As one of the premier Montana hunting outfitters, W.W. Outfitters, Inc. takes pride in providing our guests with the most successful and memorable Montana big game hunts available. Whether you prefer trophy elk hunting, antelope hunting, mule deer hunting or Texas deer hunting, our experienced guides will help you fill your tag .

Antler and Horseshoe Art - Our antler art and horseshoe products will add that rustic, yet elegant look to any room, from a cozy mountain cabin to a corporate office. If you do not see the product your looking for in our store, contact us and we will fashion that perfect piece for you.
Montana's finest guest ranch.
Runamuk Guest Ranch offers the finest cross-country riding in Montana with one-on-one cattle working opportunities. With no specified trails, covering our private ranch is a true & intimate experience. Experienced riders, ride with a purpose. Beginners, we cater to your needs. Groups & families, ride together.

Castaway Feeders   If you're tired of constantly throwing away feed because your battery died after a few weeks or your deer feeder just quit working, then we have the answer. Our high quality game feeders are designed for minimal maintenance and extended battery life.

The premeir Elk Hunting Outfitters for Trophy Mule Deer hunts, Trophy Elk hunts as well as Antelope, Mountain Lion, Black Bear, Coyote and Merriams Turkey. Don't miss out on your chance for a hunt of a lifetime. We have a trophy hunt that is just right for you.
Great Western Hunts - Offering quality hunts for mule deer, spring Merriam turkey, and archery for big bull elk on 18,000 acres of private land in central Montana. Experience western hospitality and home-cooked meals. We are a small operation that offers excellent hunting for a reasonable price.

The mission of the Boys and Girls Club's of North Central Florida is to enable all young people, especially those who need us most, to reach their full potential as productive, caring, responsible citizens. Our purpose is to help young people ages 5-18 improve their lives by building self-esteem and developing values and skills during their critical period of growth.