<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Result__State Result__State = "0" if (Request.Form("State") <> "") then Result__State = Request.Form("State") %> <% Dim Result__Bill_Number Result__Bill_Number = "0" if (Request.Form("Bill_Num") <> "") then Result__Bill_Number = Request.Form("Bill_Num") %> <% Dim Result__Year Result__Year = "0" if (Request.Form("Year") <> "") then Result__Year = Request.Form("Year") %> <% Dim Result__Biomass Result__Biomass = "0" if (Request.Form("Biomass") <> "") then Result__Biomass = Request.Form("Biomass") %> <% Dim Result__Forest Result__Forest = "0" if (Request.Form("Forest") <> "") then Result__Forest = Request.Form("Forest") %> <% Dim Result__Forestry Result__Forestry = "0" if (Request.Form("Forestry") <> "") then Result__Forestry = Request.Form("Forestry") %> <% Dim Result__Forest_Industry Result__Forest_Industry = "0" if (Request.Form("Forest_Industry") <> "") then Result__Forest_Industry = Request.Form("Forest_Industry") %> <% Dim Result__Land Result__Land = "0" if (Request.Form("Land") <> "") then Result__Land = Request.Form("Land") %> <% Dim Result__Forest_Landowners Result__Forest_Landowners = "0" if (Request.Form("Forest_Landowners") <> "") then Result__Forest_Landowners = Request.Form("Forest_Landowners") %> <% Dim Result__Forest_Management Result__Forest_Management = "0" if (Request.Form("Forest_Management") <> "") then Result__Forest_Management = Request.Form("Forest_Management") %> <% Dim Result__Forest_Products Result__Forest_Products = "0" if (Request.Form("Forest_Products") <> "") then Result__Forest_Products = Request.Form("Forest_Products") %> <% Dim Result__Logging Result__Logging = "0" if (Request.Form("Logging") <> "") then Result__Logging = Request.Form("Logging") %> <% Dim Result__Lumber Result__Lumber = "0" if (Request.Form("Lumber") <> "") then Result__Lumber = Request.Form("Lumber") %> <% Dim Result__Paper_Mill Result__Paper_Mill = "0" if (Request.Form("Paper_Mill") <> "") then Result__Paper_Mill = Request.Form("Paper_Mill") %> <% Dim Result__Paper_Company Result__Paper_Company = "0" if (Request.Form("Paper_Company") <> "") then Result__Paper_Company = Request.Form("Paper_Company") %> <% Dim Result__Renewable_Energy Result__Renewable_Energy = "0" if (Request.Form("Renewable_Energy") <> "") then Result__Renewable_Energy = Request.Form("Renewable_Energy") %> <% Dim Result__Sawmills Result__Sawmills = "0" if (Request.Form("Sawmills") <> "") then Result__Sawmills = Request.Form("Sawmills") %> <% Dim Result__Sustainable_Harvest Result__Sustainable_Harvest = "0" if (Request.Form("Sustainable_Harvest") <> "") then Result__Sustainable_Harvest = Request.Form("Sustainable_Harvest") %> <% Dim Result__Timber Result__Timber = "0" if (Request.Form("Timber") <> "") then Result__Timber = Request.Form("Timber") %> <% Dim Result__Timber_Harvest Result__Timber_Harvest = "0" if (Request.Form("Timber_Harvest") <> "") then Result__Timber_Harvest = Request.Form("Timber_Harvest") %> <% Dim Result__Timber_Management Result__Timber_Management = "0" if (Request.Form("Timber_Management") <> "") then Result__Timber_Management = Request.Form("Timber_Management") %> <% Dim Result__Transportation Result__Transportation = "0" if (Request.Form("Transportation") <> "") then Result__Transportation = Request.Form("Transportation") %> <% Dim Result__Tree Result__Tree = "0" if (Request.Form("Tree") <> "") then Result__Tree = Request.Form("Tree") %> <% Dim Result__Timber_Yield_Tax Result__Timber_Yield_Tax = "0" if (Request.Form("Timber_Yield_Tax") <> "") then Result__Timber_Yield_Tax = Request.Form("Timber_Yield_Tax") %> <% Dim Result__Tree_Farm Result__Tree_Farm = "0" if (Request.Form("Tree_Farm") <> "") then Result__Tree_Farm = Request.Form("Tree_Farm") %> <% Dim Result__Tree_Harvest Result__Tree_Harvest = "0" if (Request.Form("Tree_Harvest") <> "") then Result__Tree_Harvest = Request.Form("Tree_Harvest") %> <% Dim Result__Wood Result__Wood = "0" if (Request.Form("Wood") <> "") then Result__Wood = Request.Form("Wood") %> <% Dim Result__Wood_Lot Result__Wood_Lot = "0" if (Request.Form("Wood_Lot") <> "") then Result__Wood_Lot = Request.Form("Wood_Lot") %> <% Dim Result__Wood_Products Result__Wood_Products = "0" if (Request.Form("Wood_Products") <> "") then Result__Wood_Products = Request.Form("Wood_Products") %> <% Dim strSQL set Result = Server.CreateObject("ADODB.Recordset") Result.ActiveConnection = MM_Leg_STRING strSQL="SELECT * FROM Master_List WHERE (1=1)" if Result__State <> "Choose A State" AND Result__State <> "All States" then strSQL = strSQL & " AND (State LIKE '" + Result__State + "')" end if 'if Result__Bill_Number <> "" then ' strSQL = strSQL & " AND (Bill_Number LIKE '" + Result__Bill_Number + "')" 'end if if Result__Year <> "Choose A Year" AND Result__Year <> "All Years" then strSQL = strSQL & " AND (Year LIKE '" + Result__Year + "')" end if if Result__Biomass = "True" then strSQL = strSQL & " AND (Biomass = true)" end if if Result__Forest = "True" then strSQL = strSQL & " AND (Forest = true)" end if if Result__Forestry = "True" then strSQL = strSQL & " AND (Forestry = true)" end if if Result__Forest_Industry = "True" then strSQL = strSQL & " AND (Forest_Industry = true)" end if if Result__Land = "True" then strSQL = strSQL & " AND (Forest_Land = true)" end if if Result__Forest_Landowners = "True" then strSQL = strSQL & " AND (Forest_Landowners = true)" end if if Result__Forest_Management = "True" then strSQL = strSQL & " AND (Forest_Management = true)" end if if Result__Forest_Products = "True" then strSQL = strSQL & " AND (Forest_Products = true)" end if if Result__Logging = "True" then strSQL = strSQL & " AND (Logging = true)" end if if Result__Lumber = "True" then strSQL = strSQL & " AND (Lumber = true)" end if if Result__Paper_Mill = "True" then strSQL = strSQL & " AND (Paper_Mill = true)" end if if Result__Paper_Company = "True" then strSQL = strSQL & " AND (Paper_Company = true)" end if if Result__Renewable_Energy = "True" then strSQL = strSQL & " AND (Renewable_Energy = true)" end if if Result__Sawmills = "True" then strSQL = strSQL & " AND (Sawmills = true)" end if if Result__Sustainable_Harvest = "True" then strSQL = strSQL & " AND (Sustainable_Harvest = true)" end if if Result__Timber = "True" then strSQL = strSQL & " AND (Timber = true)" end if if Result__Timber_Harvest = "True" then strSQL = strSQL & " AND (Timber_Harvest = true)" end if if Result__Timber_Management = "True" then strSQL = strSQL & " AND (Timber_Management = true)" end if if Result__Transportation = "True" then strSQL = strSQL & " AND (Transportation = true)" end if if Result__Tree = "True" then strSQL = strSQL & " AND (Tree = true)" end if if Result__Tree_Farm = "True" then strSQL = strSQL & " AND (Tree_Farm = true)" end if if Result__Timber_Yield_Tax = "True" then strSQL = strSQL & " AND (Timber_Yield_Tax = true)" end if if Result__Tree_Harvest = "True" then strSQL = strSQL & " AND (Tree_Harvest = true)" end if if Result__Wood = "True" then strSQL = strSQL & " AND (Wood = true)" end if if Result__Wood_Lot = "True" then strSQL = strSQL & " AND (Wood_Lot = true)" end if if Result__Wood_Products = "True" then strSQL = strSQL & " AND (Wood_Products = true)" end if 'Response.write ("rsOne = " & strSQL) Result.Source = strSQL Result.CursorType = 0 Result.CursorLocation = 2 Result.LockType = 3 Result.Open() Result_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Result_numRows = Result_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count Result_total = Result.RecordCount ' set the number of rows displayed on this page If (Result_numRows < 0) Then Result_numRows = Result_total Elseif (Result_numRows = 0) Then Result_numRows = 1 End If ' set the first and last displayed record Result_first = 1 Result_last = Result_first + Result_numRows - 1 ' if we have the correct record count, check the other stats If (Result_total <> -1) Then If (Result_first > Result_total) Then Result_first = Result_total If (Result_last > Result_total) Then Result_last = Result_total If (Result_numRows > Result_total) Then Result_numRows = Result_total End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Result_total = -1) Then ' count the total records by iterating through the recordset Result_total=0 While (Not Result.EOF) Result_total = Result_total + 1 Result.MoveNext Wend ' reset the cursor to the beginning If (Result.CursorType > 0) Then Result.MoveFirst Else Result.Requery End If ' set the number of rows displayed on this page If (Result_numRows < 0 Or Result_numRows > Result_total) Then Result_numRows = Result_total End If ' set the first and last displayed record Result_first = 1 Result_last = Result_first + Result_numRows - 1 If (Result_first > Result_total) Then Result_first = Result_total If (Result_last > Result_total) Then Result_last = Result_total End If %> <% ' *** Move To Record and Go To Record: declare variables Set MM_rs = Result MM_rsCount = Result_total MM_size = Result_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter r = Request.QueryString("index") If r = "" Then r = Request.QueryString("offset") If r <> "" Then MM_offset = Int(r) ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record i = 0 While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1)) MM_rs.MoveNext i = i + 1 Wend If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page i = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size)) MM_rs.MoveNext i = i + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = i If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record i = 0 While (Not MM_rs.EOF And i < MM_offset) MM_rs.MoveNext i = i + 1 Wend End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record Result_first = MM_offset + 1 Result_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (Result_first > MM_rsCount) Then Result_first = MM_rsCount If (Result_last > MM_rsCount) Then Result_last = MM_rsCount End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 0) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then params = Split(MM_keepMove, "&") MM_keepMove = "" For i = 0 To UBound(params) nextItem = Left(params(i), InStr(params(i),"=") - 1) If (StrComp(nextItem,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & params(i) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&" urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = urlStr & "0" MM_moveLast = urlStr & "-1" MM_moveNext = urlStr & Cstr(MM_offset + MM_size) prev = MM_offset - MM_size If (prev < 0) Then prev = 0 MM_movePrev = urlStr & Cstr(prev) %> Resources



 
 
New & Notable
Demo Forests
Community Projects
Get Involved
Who We Are
 
 
 


> Home > Resources > Legislative Search
     
Legislative Initiatives
Every year legislators in Maine, New Hampshire, Vermont, and New York bring forward a variety of bills that pertain to forest resources, forested communities, and the forest economy. As part of NCFC’s mission to engage citizens in the research process, we have compiled information about legislative initiatives across all four states of our region for the 2001 and 2002 legislative sessions. Our database includes the title and number of each bill, the date it was introduced, its status (where available), sponsor(s), a bill summary, and a hyperlink to the entire text of the bill. This information was compiled directly from the legislative websites of each state by searching each site using a list of key words relating to forestry.

Information on legislative initiatives can be used to identify topics of concern across all four states of the Northern Forest, compare and contrast language related to similar issues across states, and identify the legislators involved in forestry issues in our region. The database allows state senators and representatives to view actions of other states as they pertain to forestry. Also, we encourage teachers and researchers throughout our region to use this information to inform yourselves and your students about forest-related legislation. 

To access this information, users may conduct a search by keyword, date of introduction, and/or state that will result in a list of bill titles, summaries, sponsors, dates of introduction, and states. For additional information, including a link to the hypertext of the entire bill, users may click on the bill number for more detail.

Please let us know what you learn so that we may share it with others, yellowwood@yellowwood.org.

NEW!! Download a brochure to share with your friends and colleagues describing this database and the Demo Forest and Forest Research databases: Database Brochure




> Browse Bills by State:
  Maine
   New Hampshire
   New York
   Vermont
   All States

> Search For Legislative Bills By Bill Number:
   Bill Number:  
> Keyword Search For Legislative Bills:
   Keyword:
> Advanced Search For Legislative Bills:
   Year:
   State:

Biomass
Renewable Energy
Forest Sawmills
Foresters Stumpage
Forestry Sustainable Harvest
Forest Industry Timber
Forest Land Timber Harvest
Forest Landowners Timber Management
Forest Management Timber Theft
Forest Products Transportation
Land Use Tree
Logging Tree Farm
Lumber Tree Growth Tax
Non-Timber Products Tree Harvest
Paper Mill Wood
Paper Manufacturing Wood Products
Pulp    

  
 
 
Welcome    Demo Forests    Community Projects     Who We Are    Resources
Site Map    Home Page    Contact Us    E-mail

Copyright © 2001 - 2003 National Community Forestry Center

<% Result.Close() %>