dim" for each formitem in Request.Form 'vars response.write formitem & ", " next response.write "
" 'insert response.write "insert into (" for each formitem in Request.Form response.write formitem & ", " next response.write ") values(" for each formitem in Request.Form response.write " '"" & " & formitem & " & ""', " next response.write ")"" " response.write "
"
'print out querystring vars
for each formitem in Request.Form
response.write formitem & "=request.form("""&formitem&""")
"
next
end function
function forDate(sDate)
dim fdmonth,fdyear,fdmoname,fdday,fddate
fdday = DatePart("d",sDate)
fdyear = DatePart("yyyy",sDate)
fdmonth =DatePart("m",sDate)
if fdmonth = 1 then
fdmoname = "January"
elseif fdmonth = 2 then
fdmoname = "February"
elseif fdmonth = 3 then
fdmoname = "March"
elseif fdmonth = 4 then
fdmoname = "April"
elseif fdmonth = 5 then
fdmoname = "May"
elseif fdmonth = 6 then
fdmoname = "June"
elseif fdmonth = 7 then
fdmoname = "July"
elseif fdmonth = 8 then
fdmoname = "August"
elseif fdmonth = 9 then
fdmoname = "September"
elseif fdmonth = 10 then
fdmoname = "October"
elseif fdmonth = 11 then
fdmoname = "November"
elseif fdmonth = 12 then
fdmoname = "December"
end if
fddate = fdmoname & " " & fdday & ", " & fdyear
forDate = fddate
end function
'########################## system-wide variables ################
dim orgname,deflocation,evmailto,donormailto,orgaddress, webroot,ylpmailto, conTAmailto,wkTAmailto,ctdbmailto,qamailto,homepage,metataglist,metatagdesc, bigseven
'bigseven defines the pacific, anadromaous salmon
bigseven = "2,3,4,6,7,9,18"
'webroot is default, top level web directory
webroot = "c:\inetpub\wwwroot"
'orgname is organization default name
orgname= "State of the Salmon "
' orgaddress is main address for organization
orgaddress = "1903 SE Ankeny
Portland, OR 97214"
' deflocation is default address for events in event calendar
deflocation = "Ecotrust
721 NW Ninth Avenue,Suite 200
Portland, OR 97209"
'evmailto is the default email address for events registration
evmailto = "training@tacs.org"
'evmailto = "ekr@tacs.org"
'donormailto is for donations
'donormailto = "ekr@tacs.org"
'ylpmailto is for workshop ta application
ylpmailto = "legal@tacs.org"
'ylpmailto = "ekr@tacs.org"
'contamailto is for consulting project ta application
conTAmailto = "tafund@tacs.org"
'conTAmailto = "ekr@tacs.org"
'wktamailto is for workshop ta application
wkTAmailto = "tafund@tacs.org"
'wkTAmailto = "ekr@tacs.org"
' qamailto receives questions for q & a
qamailto = "info@tacs.org"
'ctdbmailto is who gets consultant form updates
ctdbmailto = "info@tacs.org"
' to include to a page, use
metataglist = "salmon, steelhead, monitoring, monitoring protocols, stock status, Alaska salmon, conservation, fisheries, science, research, education, Russian, Kamchatka, Russian Far East, magadan, chukotka, primorye, khabarovsk, Sakhalin, Pacific Rim, Washington, Oregon, Cascadia, Olympic Peninsula, Hoh River, salmonid, fishing expeditions, river, rivers, fish, chinook, coho, cherry, masu, rainbow trout, trout, lenok, taimen, GIS, endangered, sockeye, chum, charr, pink, humpback, red, dog, silver, king, cutthroat, bull trout, Dolly Varden, State of the Salmon:An Atlas of Pacific Salmon"
metatagdesc = "The State of the Salmon program, a joint effort of the Wild Salmon Center and Ecotrust, is building the world’s most credible, comprehensive source of data and information on North Pacific salmon to foster informed and collaborative policy that secures a future in which wild salmon, and all life that depends on them, prosper."
homepage = "/index.asp"
echo ""
%><%
dim conn
'setting dbase parameters for select only user
set conn = server.CreateObject("adodb.connection")
conn.open "DSN=CONTENT;uid=;pwd=;Trusted_Connection=yes"
%><%dim scrname,fname,rs,sql,lastname,firstname,nameID,organizationID,orgtypename,sqlst,sqlcn,rsst,rscn,rcst,countryID,nationID,ap,apname,actionaction= session("durl")%>
