<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsFAQ__MMColParam rsFAQ__MMColParam = "FAQ" If (Request("MM_EmptyValue") <> "") Then rsFAQ__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsFAQ Dim rsFAQ_cmd Dim rsFAQ_numRows Set rsFAQ_cmd = Server.CreateObject ("ADODB.Command") rsFAQ_cmd.ActiveConnection = MM_thefarmcommunity_STRING rsFAQ_cmd.CommandText = "SELECT * FROM FAQ WHERE topicKeywords = ? ORDER BY topicName ASC" rsFAQ_cmd.Prepared = true rsFAQ_cmd.Parameters.Append rsFAQ_cmd.CreateParameter("param1", 200, 1, 255, rsFAQ__MMColParam) ' adVarChar Set rsFAQ = rsFAQ_cmd.Execute rsFAQ_numRows = 0 %> <% FUNCTION CropSentence(strText, intLength, strTrial) Dim wsCount Dim intTempSize Dim intTotalLen Dim strTemp wsCount = 0 intTempSize = 0 intTotalLen = 0 intLength = intLength - Len(strTrial) strTemp = "" IF Len(strText) > intLength THEN arrTemp = Split(strText, " ") FOR EACH x IN arrTemp IF Len(strTemp) <= intLength THEN strTemp = strTemp & x & " " END IF NEXT CropSentence = Left(strTemp, Len(strTemp) - 1) & strTrial ELSE CropSentence = strText END IF END FUNCTION %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsFAQ_numRows = rsFAQ_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_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) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' 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 %> FAQs About The Farm Community - Summertown, TN
 
The Farm Blog

The Farm Community on Facebook Sign The Farm Community Website Guestbook Follow The Farm Book Publishing Co. on Twitter
Register Now for Farm Fresh:
An e-newsletter with upcoming events, projects, recipes, & more!

E-Mail

2013 Calendar
Belize Adventure Feb. 2013
Hikes in the jungle. Home stays with Mayan families. Visit Plenty relief projects. Contact me for details.
Maya Mt. Permaculture Design Course, Belize, Feb. 18-March 1
Farm Experience Weekend Feb. 22-24
Students on Spring Break! Use your time off to discover what living more sustainably can mean in the here and now. Rain or Shine, Snow or Early Spring, we'll explore the depths of life in community!
Midwifery Assistant Workshop March 3-9
Ecovillage Design Course Ecological Module, w/Albert Bates March 3-9
Midwifery Assistant Workshop March 24-30
Farm Experience Weekend
March 29-31 Our 11th year!
The best overview of life in community, green building and solar technology, gardening, midwifery, education, spiritual practice, yoga... more
Backyard Mushroom Cultivation March 30
Ecovillage Apprenticeship, April 1-28
Midwifery Assistant Workshop April 14-20
Natural Building Workshop April 5-7
cob, strawbale, slip-form clay, alis, natural plasters, living roofs, clay floors, round pole, cord-cob, adobe, thatch and more
Farm Experience Weekend April 12-14
A Farm Experience Weekend plus a hike to Big Swan Headwaters Preserve. Swan Conservation Trust.
Farm School Family Fest May 11
Music, Tours, Food & camping included.
A benefit for The Farm School.
Midwifery Herb Workshop May 16-18
Regenerative Earthworks May 16-19
Midwifery Workshop - Common Sense and Tradition May 19-23
Community & Sustainability Conference May 24-26 Explore the connection between lifestyle and intention.
Ecovillage Apprenticeship, June1-28
Organic Gardening Intensive
June 2-8 or 6-8 A week (or weekend) Hands-on gardening plus garden tours on and off-The Farm to visit Shiitake operations, a bamboo nursery...more
Carbon Farming - Albert Bates, June 21-22
Midwife Assistant Workshop June 16-22  
Adobe Dome Building Workshop July 2013
Carbon Farming with Albert Bates, Norway July 5-7
Ecovillage Apprenticeship, July 9-Aug. 3
Advanced Permaculture Design July 11-14
Buffalo River Canoe Trip July 2013
Swan Trust
Farm Experience Summer Retreat
July 24-28 or 26-28 (weekend only) Fun for the entire family. All of the Farm Experience workshops plus activities for kid,. swimming, hiking...more
Fermaculture, with Sandor Katz July 27
Midwife Assistant Workshop July 28-Aug 3  
Permaculture Design with Albert Bates, Ireland, Aug. 9-18
Advanced Midwife Workshop Aug 25-31
Midwifery Workshop - Neonatal Resuscitation Aug 27 - 28
Biochar Stove Camp Aug. 30-Sept 3
Regenerative Earthworks September
Farm Experience Weekend Sept 20-22
Midwifery Assistant Workshop Sept 22-28
Edible Forest Gardening Sept. 27-29
Ecovillage Apprenticeship, Oct. 1-28
Farm Experience Weekend Oct. 11-13
Our last Farm Experience till next year!
Farm School Holiday Bazaae Dec. 7
 
<% While ((Repeat1__numRows <> 0) AND (NOT rsFAQ.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsFAQ.MoveNext() Wend %>
Frequently Asked Question About The Farm
•
 " class="style3 style2"><%=(rsFAQ.Fields.Item("topicName").Value)%>
  - <% =(CropSentence((rsFAQ.Fields.Item("topicDescription").Value), 200, "...")) %> ">more >>
 

 

Register Now for Farm Fresh:
An e-newsletter with upcoming events, projects, recipes, & more!

E-Mail

The Farm Welcome Center
100 Farm Road_
Summertown, TN_38483
PH: 931-964-3574
Contact Us
 

 

<% rsFAQ.Close() Set rsFAQ = Nothing %>