Pacific Rim Snapshot

<%'die("

System Upgrade

As we conduct a critical software upgrade, our database will not be available. Please check these pages for an update.

")%>

Click on an Ecoregion polygon to view local statistics.
Go to the SalmonServe Query Tool to get more detailed data.

<%Dim mMap,mLayers,mConnector, recset,svcsvc="eco"Set mConnector = Server.CreateObject("aims.ArcIMSConnector")'ArcIMSConnector object creationSet mMap = Server.CreateObject("aims.Map") 'Map object creationmConnector.ServerName = "wanda" 'Server's namemConnector.ServerPort = 5300 'Server's portmMap.Width = 725 'Width of the map in pixelsmMap.Height = 450 'Height of the map in pixelsmMap.BackColor = 15130848 'Set background color for the mapresultInit = mMap.InitMap( mConnector, svc ) 'Initializationif not resultinit then Response.Write mConnector.GetLastError() Response.End End if mMap.Layers.Nodefault=true 'Set nodefault to true as we want to extract layer 1(Blockgroups)x = Request.QueryString("x")y = Request.QueryString("y")dim blSet pnt = Server.CreateObject("aims.PointObject") 'Create new pointSet loc2 = mMap.ToMapPoint(x,y) 'Convert coordinate to database unitspnt.X = loc2.x 'Set X coordinatepnt.Y = loc2.y 'Set Y coordinate Set bl = mMap.Layers.Item(2).Clone() 'Create clone of the 1 layer bl.Filter.ClearGObjects() 'Clear spatial filter collectionbl.Filter.AddGObject(pnt) 'Add point to the spatial filtermMap.Layers.Add bl 'Add layer to the layers collectionbl.Renderer.Symbol.FillColor = CLng("255") 'Set fill color mMap.Layers.Item(2).Recordset.Filter.ClearGObjects 'Clear spatial filter collectionmMap.Layers.Item(2).Recordset.Filter.AddGObject(pnt) 'Add point object to the spatial filter collectionif mMap.Layers.Item(2).Recordset.MoveFirst then 'Move to the first recordset row = row & "Ecoregion" Set fds = mMap.Layers.Item(2).Recordset.Fields 'Get Fields object row = row & "" & fds.FieldValueAsString(14) & "" eID = fds.FieldValueAsString(16) 'row = row & "" else row = "No features have been selected. Use the mouse to select features." end ifsq = "select * from clickeco where lvl4_id='" & eID & "'"mMap.Refresh 'Refresh the mapif mMap.Layers.Count > 3 Then mMap.Layers.Remove mMap.Layers.Count 'Remove just added layerend ifurlimage= mMap.GetImageAsUrl() 'Get map picture address%>

<%function ext(extint)if extint = -9999 then xfactor = "Not assessed"elseif extint = -9998 then xfactor = "Extinct in this ecoregion"elseif extint = -1 then xfactor = "Out of range"elseif extint = 1 then xfactor = "100%"elseif extint = 0 then xfactor = "None"else xfactor = extint * 100 xfactor = xfactor & "%"end ifext = xfactorend functionfunction abund(abint) if abint = 1 then abundstate = "Fewer than 1,000 fish" elseif abint = 2 then abundstate = "Between 1,000 and 10,000 fish" elseif abint = 3 then abundstate = "Between 10,000 and 100,000 fish" elseif abint = 4 then abundstate = "Between 100,000 and one million fish" elseif abint = 5 then abundstate = "Between one million and ten million fish" elseif abint = 6 then abundstate = "More than ten million fish" elseif abint = 0 then abundstate = "Not present" elseif abint = -1 then abundstate = "Out of range" else abundstate = "Not assessed" end ifabund = abundstateend functionset rs = server.createobject("ADODB.RECORDSET")rs.open sq,socnif not rs.eof and not rs.bof thenrs.movefirstnumberspp = rs("numberspp")notes= rs("notes")abundcoho = rs("abundcoho")abundsthd = rs("abundsthd")abundchinook = rs("abundchinook")abundchum = rs("abundchum")abundsockeye = rs("abundsockeye")abundmasu = rs("abundmasu")abundpink = rs("abundpink")extchinook = rs("highch")extchum = rs("highcu")extcoho = rs("highco")extmasu = rs("highmu")extsocki = rs("highso")extpink = rs("highpk")extsthd = rs("highst")'die(extchum)extchinook = ext(extchinook)extcoho = ext(extcoho)extchum = ext(extchum)extsocki = ext(extsocki)extpink = ext(extpink)extmasu = ext(extmasu)extsthd = ext(extsthd)chinookstate= abund(abundchinook)cohostate = abund(abundcoho)sockistate = abund(abundsockeye)masustate = abund(abundmasu)chumstate = abund(abundchum)sthdstate = abund(abundsthd)pinkstate = abund(abundpink)echo ""echo row'echo ""echo ""echo ""echo ""echo ""echo ""echo ""echo ""echo ""echo ""echo ""echo ""echo ""echo ""echo ""echo ""echo ""echo ""echo ""echo ""echo ""echo ""echo ""if notes <> "" then echo ""end ifecho("


" & eID & "
Number of Salmonid Species	" & numberspp & "
Chinook
	Abundance:	" & chinookstate & "
	Percent of stocks at high risk:	" & extchinook & "
Chum
	Abundance:	" & chumstate & "
	Percent of stocks at high risk:	" & extchum & "
Coho
	Abundance:	" & cohostate & "
	Percent of stocks at high risk:	" & extcoho & "
Masu
	Abundance:	" & masustate & "
	Percent of stocks at high risk:	" & extmasu & "
Pink
	Abundance:	" & pinkstate & "
	Percent of stocks at high risk:	" & extpink & "
Sockeye
	Abundance:	" & sockistate & "
	Percent of stocks at high risk:	" & extsocki & "
Steelhead
	Abundance:	" & sthdstate & "
	Percent of stocks at high risk:	" & extsthd & "
More Information "¬es&"

")elseif x="" and y="" thenecho ""echo "

Please use the mouse to make a selection within the region of ecoregions.

"elseecho ""echo "

There is no data available for this region.

"end ifrs.closeset rs= nothingsocn.closeset socn = nothingset mapMain = nothingset mapcn = nothing%>

"Out of range" means that the species is not native to this region.

Complete descriptions of the datasets that provide information for this map can be found here

This work is licensed under a Creative Commons License.