<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsImageType Dim rsImageType_numRows Set rsImageType = Server.CreateObject("ADODB.Recordset") rsImageType.ActiveConnection = MM_coCensusData_STRING rsImageType.Source = "SELECT ImageType FROM ImageType ORDER BY Sequence" rsImageType.CursorType = 0 rsImageType.CursorLocation = 2 rsImageType.LockType = 1 rsImageType.Open() rsImageType_numRows = 0 %> <% Dim rsImageSet Dim rsImageSet_numRows Set rsImageSet = Server.CreateObject("ADODB.Recordset") rsImageSet.ActiveConnection = MM_coCensusData_STRING rsImageSet.Source = "SELECT ImageSets.SetID, ImageSets.SetShortName FROM ImageSets ORDER BY ImageSets.SetShortName;" rsImageSet.CursorType = 0 rsImageSet.CursorLocation = 2 rsImageSet.LockType = 1 rsImageSet.Open() rsImageSet_numRows = 0 %> Image Select

Select Images

alt="Hanslope Home Page" name="Logo" border="0">

View some of the many photographs the Hanslope & District Historical Society has collected

Make an initial selection of a pre-defined set, or select a type of image to browse, or make a key word search.  For recent additions, select the Recent Additions set.  The key word search is best when searching for an image you have found before.  For more information click on images introduction.

Either browse one of the
            available sets    


   and choose how you would like to view images:
 





Or choosing the type
            of images            
  and optionally
limit years		 from
to
   and choose how you would like to view images:



Or Key word search
(add space between each key word; maximum of 5 keywords used in search; do not enter names of people - use separate person search)



Examples of key words: road names, building names (church); carnival, parade, float, fete, band, dance, bus, children, farm, a few jobs, sports.  This search is probably going to be most useful when you know a specific picture is available and you can make a good guess at the appropriate key words.

Back  Images Introduction
<% rsImageSet.Close() Set rsImageSet = Nothing %> <% rsImageType.Close() Set rsImageType = Nothing %>