<%
Function RandomImage(strPath)
Randomize()
If Right(strPath, 1) <> Chr(47) Then strPath = strPath & Chr(47)
strPhysical = Server.MapPath(strPath)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysical)
Set objFiles = objFolder.Files
For Each objFile in objFiles
strFile = LCase(objFile.Name)
strFiles = strFiles & strFile & vbTab
Next
strImages = Split(strFiles, vbTab)
If UBound(strImages) > 1 Then
RandomImage = strPath & strImages(Int(Rnd(1)*UBound(strImages)))
End If
End Function
%>
The Nebraska Humanities Council (NHC) will present a new Chautauqua in Kearney. The 2007 “Visions for America” Chautauqua will mark the 100th and 31th anniversaries of Chautauqua in Kearney. Third Ward City Park in Kearney was one of the sites for the first chautauqua circuit that toured Nebraska in 1907. Then again in 1976, the city of Kearney hosted another week-long chautauqua.
