<% Dim intCounter, objFSO, objFolder, strCollection, strFileName, strDisplay, intFile intCounter = 0 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath("/clients/farm&home/mast_images/images/")) Set strCollection = objFolder.Files For Each strFileName In strCollection If Right(strFileName, 4) = ".jpg" Then intCounter = intCounter + 1 End If Next Set strCollection = Nothing Set objFolder = Nothing Set objFSO = Nothing Randomize intFile = Int(Rnd * intCounter) + 1 intCounter = 0 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath("/clients/farm&home/mast_images/images/")) Set strCollection = objFolder.Files For Each strFileName In strCollection If Right(strFileName, 4) = ".jpg" Then intCounter = intCounter + 1 If intCounter = intFile Then strDisplay = strFileName End If End If Next Set strCollection = Nothing Set objFolder = Nothing Set objFSO = Nothing strDisplay = Replace(strDisplay, "C:\home\bcgroup\docs\CLIENTS\farm&home\mast_images\images\", "") %> Farm & home Oil Company
About Farm & Home
Energy Views
Home heating
propane gas
heating A/C
fueling network
commecial/wholesale
Branded Dealer Station
careers
contact
privacy
site map
Open an account

Farm & Home Oil Company is a leading regional supplier of energy products for people and businesses in Pennsylvania. As a supplier, our mission is to be responsive to your needs while offering the highest quality products and services at a fair price.

We are a community-oriented company and believe that it's important to participate in activities that help make the communities we serve better places to work, live and raise a family. At Farm & Home Oil Company, we are committed to helping you live more comfortably, save money and to conserving our natural resources.
Headquarters - Telford (215)-257-0131 or (800)-473-1562
Lower Bucks Division - Levittown (215)-943-0772
Macungie Division (610)-965-6076 or (800) 727-3085
Pottstown Division (610)-326-4641 or (800)-473-1562
Milton Division (570)-742-8715 or (888)-333-4645
© 2004 Farm and Home Oil Company      All Rights Reserved        site designed by Bergey Creative Group
specials Open an account Current Specials open an account Pennsylvania Petroleum Marketers & Conveneince Store Association National Propane Gas Association