Mayor's Office

<% ' These definitions must be included on every page that uses a content window. ' You should also define the INC_* variables as needed throughout the page. ' System variables (non-configurable) '----------------------------------------------------------------------------- Dim incURL ' URL to the include page (May be deprecated) Dim iRandom ' Random number (May be deprecated) Dim objConn1 ' Object to hold primary connection to database Dim rsTemp1 ' Array for retrieving primary database information Dim objConn2 ' Object to hold secondary connection to database (may or may not be used) Dim rsTemp2 ' Array for retrieving secondary database information (may or may not be used) Dim c_mon ' Today's month, with leading 0 Dim c_day ' Today's day, with leading 0 Dim c_yea ' Today's year Dim c_tsp ' Today, in database timestamp format Dim c_short ' Today, in M/D/YYYY format Dim c_long ' Today, in MMM D, YYYY format Dim c_full ' Today, in WWWW MMMM, D, YYYY format Dim objPDF ' Object to hold regular expression to match pdf documents Dim objHTM ' Object to hold regular expression to match html documents Dim winHeader Dim limitSQL1 Dim limitSQL1a Dim limitSQL1b Dim limitSQL2 Dim limitSQL2a Dim limitSQL2b Dim moreLink Dim rspType Dim sql1 Dim sql2 Dim ctr Dim dispVar(10) Dim last_id Dim des Dim PU_1, PU_2 Dim egovLink, egovImgs ' Configurable variable to achieve desired output '----------------------------------------------------------------------------- DIM INC_TopLevelID ' Limit items returned to this top level (i.e., department) ID (integer, find in manager) Dim INC_SecondLevelID ' Limit items returned to this top level (i.e., sub-department) ID (integer, find in manager) Dim INC_Category ' Limit to a specific category type (find id in manager). Set to "" for all. Dim INC_Subcategory ' Limit to a specific subcategory type (find id in manager). Set to "" for all. Dim INC_docType ' Limit to a specific document type (find id in manager). Set to "" for all. Dim INC_featured ' Limit to featured items if set to 1, otherwise set to 0 or "" Dim INC_numItems ' Number of items to return in content window Dim INC_showDesc ' Show the description of the item. Set to 1 for yes, 0 or "" for none. Dim INC_header ' Show a text header for the content window. Set to 1 for yes, 0 or "" for no. Dim INC_color ' Color background for the contact information. Not available in every content window. Dim INC_title ' Title of the content window Dim INC_hdrFace ' Header font face Dim INC_hdrSize ' Header font size Dim INC_fntFace ' Item font face Dim INC_fntSize ' Item font size Dim INC_desFace ' Description font face Dim INC_desSize ' Description font size Dim GLB_eventPop ' Use pop-up details for events. Set to 1 for yes, 0 or "" for no. Dim GLB_egovURL ' URL for the egov apps Dim GLB_dsn ' Database connection string ' Globally Used Variables (configurable) '----------------------------------------------------------------------------- GLB_egovURL = "http://www.greenfieldin.org/" GLB_pop = 0 GLB_dsn = eGovDBAuth() ' Define date values '----------------------------------------------------------------------------- c_mon = Right(Cstr(Month(Date)+100),2) c_day = Right(Cstr(Day(Date)+100),2) c_yea = Year(Date) c_tsp = "{ts '" & c_yea & "-"& c_mon & "-" & c_day & " 00:00:00'}" c_short = Month(Date) & "/" & Day(Date) & "/" & Year(Date) c_full = formatDateTime(Now(), vbLongDate) ' Establish primary database connection '----------------------------------------------------------------------------- set objConn1 = server.createobject("adodb.connection") objConn1.open GLB_dsn ' Useful functions and regular expressions ' ------------------------------------------------------------------------------ Set objPDF = New RegExp objPDF.IgnoreCase = True objPDF.Pattern = "^pdf$" Set objHTM = New RegExp objHTM.IgnoreCase = True objHTM.Pattern = "^htm" Function PCase(strInput) ' --------------------------------------------------- Dim iPosition ' Our current position in the string (First character = 1) Dim iSpace ' The position of the next space after our iPosition Dim strOutput ' Our temporary string used to build the function's output iPosition = 1 Do While InStr(iPosition, strInput, " ", 1) <> 0 iSpace = InStr(iPosition, strInput, " ", 1) strOutput = strOutput & UCase(Mid(strInput, iPosition, 1)) strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition)) iPosition = iSpace + 1 Loop strOutput = strOutput & UCase(Mid(strInput, iPosition, 1)) strOutput = strOutput & LCase(Mid(strInput, iPosition + 1)) PCase = strOutput End Function ' --------------------------------------------------------------- %>

Home > About Greenfield >
Greenfield's Past Mayors

This list represents those distinguished individuals who have served as Mayor of Greenfield since it was incorporated as a city in 1876. For more information about Greenfield's history, please visit the History page of this website.

Name

Years in Office

Thomas H. Branham	1876 - 1881
William J. Sparks	1881 - 1885
Ambrose J. Herron	1885 - 1894
George W. Duncan	1894 - 1898
John F. Eagan	1898 - 1902
George A. Carr	1902 - 1906
John B. Hinchman	1906 - 1910
Ora Myers	1910 - 1914
Jonathan Q. Johnson	1914 - 1918
Ora Myers	1918 - 1921
Frank Larrabee*	1922 - 1923*
Marshall Winslow**	1924 - 1925**
Stephen G. White	1926 - 1929
Arthur Downing	1930 - 1934
James L. Allen	1935 - 1938
Percy M. Ellis	1939 - 1942
Loren W. Eikenberry	1943 - 1947
James L. Allen	1948 - 1959
Clifford O. Fields	1960 - 1963
Berry S. Hurley	1964 - 1971
William R. Blue	1972 - 1975
Keith J. McClarnon	1976 - 1995
Patricia Elmore	1996 - 1999
Rodney Fleming	2000 - 2007
Brad DeReamer	2008 - Present

* Frank Larrabee resigned from office in May, 1923
** Marshall Winslow elected Pro-Tem in January, 1924

All Content Copyright City of Greenfield, Indiana © 2000-2002
Please direct all comments, questions, or suggestions about this website to the class="parksblue" <%End If%> href="mailto:webmaster@greenfieldin.org">Webmaster

<% objConn1.Close Set objConn1 = nothing %>

Last Updated: February 15, 2008