<%
option explicit
%>
<!--#include file="includes/vars.asp"-->
<!--#include file="includes/freebase.asp"-->

<%
dim scrname,fname,rs,sql,lastname,firstname,nameID,organizationID,orgtypename,sqlst,sqlcn,rsst,rscn,rcst,countryID,nationID,aptype,apname,boxstr,box,qs,qtype,spp,lyr,a_spp,r_spp,d_spp
box = request.querystring("box")
spp = request.querystring("spp")
qtype=request.querystring("qtype")
a_spp =request.querystring("a_spp")
d_spp =request.querystring("d_spp")
r_spp =request.querystring("r_spp")
'following will draw a box for different regions, and send the user to the approprate plate

if qtype="sstock" then 'shared river stock
  lyr = "layers=011000000000000000000000000011&activeLayer=2"
elseif qtype="hatch" then 'no hatch yet
  die("No hatchery information yet. Please hit the back button and try again.")
  lyr = ""
elseif qtype="biod" then
  lyr = "layers=010001000000000000000000000011&activeLayer=5"
elseif qtype="biodeco" then
  lyr = "layers=010000000000000000000000000111&activeLayer=27"
elseif qtype = "risk" then 'select by spp
  if r_spp = 9 then ' Sockeye
    lyr = "layers=010000000000000000000000010011&activeLayer=25"
  elseif r_spp = 6 then ' Pink
    lyr = "layers=010000000000000000000000100011&activeLayer=24"
  elseif r_spp = 3 then ' CHum
    lyr = "layers=010000000000000000000100000011&activeLayer=21"
  elseif r_spp = 4 then ' Coho
    lyr = "layers=010000000000000000000010000011&activeLayer=22"
  elseif r_spp = 18 then ' Masu
    lyr = "layers=010000000000000000000001000011&activeLayer=23"
  elseif r_spp = 7 then ' Sthd
    lyr = "layers=010000000000000000000000001011&activeLayer=26"
  elseif r_spp = 2 then '  Chinook
    lyr = "layers=010000000000000000001000000011&activeLayer=20"
  end if
elseif qtype = "abund" then 'select by spp
  if a_spp = 9 then ' Sockeye
	lyr = "layers=010000000000000000100000000011&activeLayer=18"
  elseif a_spp = 6 then ' Pink
    lyr = "layers=010000000000000001000000000011&activeLayer=17"
  elseif a_spp = 3 then ' Chum
    lyr = "layers=010000000000001000000000000011&activeLayer=14"
  elseif a_spp = 4 then ' Coho
    lyr = "layers=010000000000000100000000000011&activeLayer=15"
  elseif a_spp = 18 then ' Masu
    lyr = "layers=010000000000000010000000000011&activeLayer=16"
  elseif a_spp = 7 then ' Sthd
    lyr = "layers=010000000000000000010000000011&activeLayer=19"
  elseif a_spp = 2 then ' Chinook
    lyr = "layers=010000000000010000000000000011&activeLayer=13"
  end if
elseif qtype = "distro" then 'select by spp
  if d_spp = 9 then ' Sockeye
    lyr = "layers=010000000001000000000000000011&activeLayer=11"
  elseif d_spp = 6 then ' Pink
    lyr = "layers=010000000100000000000000000011&activeLayer=9"
  elseif d_spp = 3 then ' Chum
    lyr = "layers=010000010000000000000000000011&activeLayer=7"
  elseif d_spp = 4 then ' Coho
    lyr = "layers=010000001000000000000000000011&activeLayer=8"
  elseif d_spp = 18 then 'Masu
    lyr = "layers=010000000010000000000000000011&activeLayer=10"
  elseif d_spp = 7 then ' Sthd
    lyr = "layers=010000000000100000000000000011&activeLayer=12"
  elseif d_spp = 2 then ' Chinook
    lyr = "layers=010000100000000000000000000011&activeLayer=6"
  end if
else 'biod
  lyr = "layers=010001000000000000000000000011&activeLayer=5"
end if  

select case Box
case "bc"
  boxstr = "Box=5281835.61:4159708.89:2801414.25:5725177.38"
case "ak"
  boxstr = "Box=3448404.05:5402021.51:687679.21:7811248.22"
case "ca" 
  boxstr = "Box=5088069.37:2562281.7:4016368.11:3603071.61"
case "or"
  boxstr = "Box=3692964.8:4068422.02:5030423.76:3332477.82"
case "id"
  boxstr = "Box=5234734.25:3451654.2:4681168.52:4253370.09"
case "wa"
  boxstr = "Box=4841761.8:3853487.23:4087906.45:4423893.66"
case "rs"
  boxstr = "Box=-1591058.3:5295019.32:-5704776.71:8455432.71"
case "pr"
  boxstr = "Box=-3058730.4:3529510.8:-3737009.36:4178758.37"
case "ma"
  boxstr = "Box=494530.79:5490645.61:-2456568.92:7429449.49"
case "sa"
  boxstr = "Box=-2513525.75:3862815.93:-3068798.76:4896426.54"
case "kh"
  boxstr = "Box=-2394709.16:4151502.99:-4757384.53:6013004.79"
case "ka"  
  boxstr = "Box=-272698.6:4308403.81:-1990388.37:6590358.82"
case "jp"
  boxstr = "Box=-2479652.34:2643613.12:-3762728:3826490.87"
case "all"
  boxstr = ""
case else
  boxstr = ""
end select
if boxstr = "" then
  qs = lyr
else
  qs = boxstr & "&" & lyr
end if
'set rs = server.createobject("adodb.recordset")
'sql = "select * from tblLK_species where speciesID in("&bigseven&") order by species"
'rs.open sql, conn
'aptype= request.querystring("aptype")
response.redirect("/maps/salmonserve/?"&qs)

%>