<%@ Language=VBScript %> Okanagan IFPA Inventory of Inventories Query Page

Welcome to the

Okanagan IFPA Inventory of Inventories Query Page.

On this page you can search our inventories database for information on over 1200 different forestry related inventories that have been implemented within the Okanagan TSA. The database can be queried using a range of fields that include forest company, publisher, category, mapsheet and/or date. The results of your query can then be viewed below.

In order to search enter your keyword(s) below and click on the Submit button. The search will then return the inventories that match all of your search terms. If you enter more than one word for a search field, then the search will look for that exact phrase. The examples beside each search field will show different possible data that could be entered. Please be patient, as large searches may take a short while to load.

The query results can be selected, copied, and pasted into the application of your choice, i.e. MSWord, MSAccess, etc.

If you have any questions or issues associated with this service, please contact the web administrator.

<% '--- get all of the data passed into the form getData %>
Licensee: eg: Gorman, Weyerhaeuser
Publisher: eg: Federated Co-op, Peachland, FRBC
Title: eg: Watershed Assessment, Interior, Trout Creek
Category: eg: Biodiversity, Cultural, Hydrology
Sub-Category: eg: IWAP, Management Plans, Watershed Management
Date: eg: December 1, 1998, 12/1/98, 1-dec-98
Mapsheet: eg: 82L016, 92I050, 82, M004
<% dim conn, rs, strsql dim strConnect, strLocation dim strSubmitted strSubmitted = trim(request("submitted")) '--- make sure that this isn't the first time they come to the page, but '--- that they have submitted some data if strSubmitted = "True" then '--- get the location to the database and create connection string strLocation = server.mappath("\asp\IFPA Inventory Database.mdb") strConnect = "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=" & strLocation '--- create connection and recordset set conn = server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.Recordset") '--- open connection conn.open strconnect '--- create the sql string strsql = getsql with rs .ActiveConnection = conn '--- set active connection .CursorType=3 '--- set the cursor type .LockType=2 '--- set the locking type used .Source=strsql '--- sql string used .Open '--- open the database '--- loop through recordset i = 0 if .EOF then Response.Write "No Records Match

" else '.MoveLast .MoveFirst %>
Matching Inventories: <% Response.Write(.recordcount) %>
<% while not .EOF Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") .MoveNext wend Response.Write ("
Licensee  Publisher  Author  File Number  Title  Category  Sub-Category  Description  Date  Report  Map  Landscape Unit  Watershed/Drainage  Community Watershed  Mapsheet 
" & rs("Licensee") & " " & rs("Publisher") & " " & rs("Author") & " " & rs("File Number") & " " & rs("Title") & " " & rs("Category") & " " & rs("Sub-Category") & " " & rs("Description") & " " & rs("Date") & " " & rs("Report") & " " & rs("Map") & " " & rs("Landscape Unit") & " " & rs("Watershed/Drainage") & " " & rs("Community Watershed") & " " & rs("Mapsheet") & " 
") end if end with set rs = nothing set conn=nothing end if %>