Upland Wings: Game Hunting in East Central Missouri

<%@LANGUAGE="VBSCRIPT"%><% UC_OrderIdSessionVar = "ORDERnum" If Session(UC_OrderIdSessionVar)="" Then ' Get a unique OrderID number and save to session. UC_tableName = "ORDERnum" UC_fieldName = "ORDERnum" UC_sql = "select " & UC_fieldName & " from " & UC_tableName tmp = "ADODB.Recordset" set UC_rsId = Server.CreateObject(tmp) UC_rsId.ActiveConnection = "dsn=upland;" UC_rsId.Source = UC_sql UC_rsId.CursorType = 0 ' adOpenForwardOnly UC_rsId.CursorLocation = 2 ' adUseServer UC_rsId.LockType = 2 ' adLockPessimistic UC_rsId.Open Session(UC_OrderIdSessionVar) = UC_rsId.Fields(UC_fieldName).value UC_rsId.Fields(UC_fieldName).value = Session(UC_OrderIdSessionVar) + 1 UC_rsId.Update UC_rsId.Close set UC_rsId = Nothing End If %> <% UC_CartColNames=Array("ProductID","Quantity","Name","Price","dates","Total") UC_ComputedCols=Array("","","","","","Price") set UCCart1=VBConstuctCart("UCCart",0,UC_CartColNames,UC_ComputedCols) UCCart1__i=0 %> <% set hunts = Server.CreateObject("ADODB.Recordset") hunts.ActiveConnection = "dsn=upland;" hunts.Source = "SELECT * FROM products" hunts.CursorType = 0 hunts.CursorLocation = 2 hunts.LockType = 3 hunts.Open hunts_numRows = 0 %><% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 hunts_numRows = hunts_numRows + Repeat1__numRows %><% ' *** Add item to UC Shopping cart set UC_rs=hunts UC_uniqueCol="ProductID" UC_AddLink="" If (Request.QueryString = "") Then UC_AddLink = Request.ServerVariables("URL") & "?UC_AddId=" Else UC_AddLink = Request.ServerVariables("URL") & "?" & Request.QueryString & "&UC_AddId=" End If UC_AddId = CStr(Request("UC_AddId")) If (UC_AddId <> "") Then UC_redirectPage = "cart.asp" If (NOT (UC_rs is Nothing)) Then ' Position recordset to correct location If (UC_rs.Fields.Item(UC_uniqueCol).Value <> UC_AddId) Then ' reset the cursor to the beginning If (UC_rs.CursorType > 0) Then If (Not UC_rs.BOF) Then UC_rs.MoveFirst Else UC_rs.Close UC_rs.Open End If Do While (Not UC_rs.EOF) If (Cstr(UC_rs.Fields.Item(UC_uniqueCol).Value) = UC_AddId) Then Exit Do End If UC_rs.MoveNext Loop End If End If UC_BindingTypes=Array("RS","LITERAL","RS","RS","RS","NONE") UC_BindingValues=Array("ProductID","1","Name","Price","dates","") UCCart1.AddItem UC_rs,UC_BindingTypes,UC_BindingValues,"increment" ' always redirect to remove the "UC_AddId" query param. if (UC_redirectPage = "") Then UC_redirectPage = CStr(Request.ServerVariables("URL")) If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then newQS = "?" For Each Item In Request.QueryString If (Item <> "UC_AddId") Then If (Len(newQS) > 1) Then newQS = newQS & "&" newQS = newQS & Item & "=" & Server.URLencode(Request.QueryString(Item)) End If Next if (Len(newQS) > 1) Then UC_redirectPage = UC_redirectPage & newQS End If Response.Redirect(UC_redirectPage) End If %> Upland Wings: Game Hunting in East Central Missouri

� Profile Information

� Area Activities

� Links of Interest

� Questions or Comm ents

• Pricing

<% While ((Repeat1__numRows <> 0) AND (NOT hunts.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 hunts.MoveNext() Wend %>

Pheasant Hunting back
Pheasant Hunting pricing per person:
(2 person minimum ~ Prices include everything you need)
Half Day $250 6 Birds per hunter, guide & dog, permits, firearm, hunting vest, shells, and refreshments.
Full Day $375 12 Birds per hunter, guide & dog, permits, firearm, hunting vest, shells, refreshments and lunch.
Continental Hunt: $200 per person (10 person minimum) Includes 10 birds per hunter, guide & dog, permits, firearm, hunting vest and shells. Lunch is $10 extra per person.