|
The Pennsylvania Gourd Society is the
Chi
Chapter of the American Gourd Society.
Our mission statement:
Promoting the use of gourds in Pennsylvania, growing
different varieties and using them in artistic and
functional craft by providing a supportive and educational
environment for our members and the community.
Become a member
and receive our quarterly newsletter!
|
|
<%
dim x(1000)
'The directory of all my pictures...
Const mypath="/rotator"
Set filesystem = CreateObject("Scripting.FileSystemObject")
Set folder = filesystem.GetFolder(server.mappath(mypath))
Set filecollection = folder.Files
'Step through the files list, keeping track of
'the number of files....
idx=0
For Each file in filecollection
idx=idx+1
x(idx)=file.name
Next
'Choose a random picture
randomize timer
whichNo=int(rnd()*idx)+1
'Clean up...
set filesystem=nothing
set folder=nothing
set filecollection=nothing
'Display the image!
response.write " "
%>
What's New?
Downloadable Fact Sheets:
Crafting
Resource
Vine
2 Design
Gourd Safety
We have
these available to hand out-
now you can print them as you need!
|
  
|
|
Welcome