<% Const IMGS_DIR = "/radom mainpage/" Dim objFSO, objFolderObject, objFileCollection, objFile Dim intFileNumberToUse, intFileLooper Dim objImageFileToUse Dim strImageSrcText Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR)) Set objFSO = Nothing Set objFileCollection = objFolderObject.Files Set objFolderObject = Nothing Randomize() intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1 intFileLooper = 1 For Each objFile in objFileCollection If intFileLooper = intFileNumberToUse Then Set objImageFileToUse = objFile Exit For End If intFileLooper = intFileLooper + 1 Next Set objFileCollection = Nothing strImageSrcText = IMGS_DIR & objImageFileToUse.Name Set objImageFileToUse = Nothing %>

 

FWJH 4H Club


4H is a community of young people across America who are learning leadership, citizenship, and life skills. The organization is the largest youth-serving organization in the world.

 

 

 

4-H Pledge

I pledge my head to clearer thinking,
My heart to greater loyalty,
My hands to larger service, and
My health to better living
For my club, my community,
my country, and my world.



4H NEWS

* Monday, March 24th -10AM Sheep/Swine barn on the fairgrounds in Covington

*Tuesday, April 1st- Record Books Due

*Sunday, April 30th- Achievement Due