<%@ Language = "VBScript" %> <% Option Explicit Dim cnnLogin Dim rstLogin Dim strEmail Dim strSQL Dim strDBPath Dim strConnString %> Public Input Survey <% If Request.Form("action") <> "validate_login" Then %>
  Public Input Form                     

PBP Home
 Who We Are
 What Is Biodiversity?
 PA Biodiversity
   Conservation Plan
Media Info
 PBP Publications


Admin
Your comments are important to us...

The Pennsylvania Biodiversity Partnership, a public-private partnership, is coordinating the development of a statewide plan for biodiversity conservation with an expected completion date of 2005.  We are presently collecting information from stakeholders throughout Pennsylvania about issues of interest and concern regarding Pennsylvania's unique natural resources. Your opinions are a vital part of this effort to establish a blueprint for the future.  Please share your thoughts with us on key issues affecting our native animals, plants, and habitats.

Biodiversity is the variety of species, their genetic make-up, and the natural communities in which they occur.

The Pennsylvania Biodiversity Conservation Plan will

  1. be statewide in scope
  2. include regional issues; and
  3. cover all aspects relating to biodiversity, including threats to native species and their habitats; educational resources; best management practices; laws and policies; funding sources, etc.

Go to Form
<% Dim record, rec1, records Dim count, i, j Dim maxcount Dim allrec(50) Dim qstring(50) Dim temp, temp2, recTitle(50) Else ' DATABASE CONNECTION STRINGS, CHOOSE DEPENDING ON APPLICATION ' MySQL Database OLEDB CONN String. ' strConnString = "Provider= MySQLProv; Data Source=metadata; User Id=pabio; Password=lawrencevill" ' ODBC Driver For MySQL (via MyODBC) - Local database strConnString = "Driver={mySQL ODBC 3.51 Driver}; Server=localhost; Option=16834; Database=metadata;" ' ODBC Driver For MySQL (via MyODBC) - Remote database ' strConnString = "Driver={mySQL ODBC 3.51 Driver}; Server=db1.database.com; Port=3306; Option=131072; Stmt=; Database=mydb; Uid=myUsername; Pwd=myPassword" ' For MS Access database ' strDBPath = Server.MapPath("metadata.mdb") ' strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" strSQL = "SELECT * FROM metadata " _ & "WHERE ContEmail='" & Replace(Request.Form("email"), "'", "''") & "' " _ & "OR DEEmail='" & Replace(Request.Form("email"), "'", "''") & "';" Set cnnLogin = Server.CreateObject("ADODB.Connection") cnnLogin.Open strConnString Set rstLogin = cnnLogin.Execute(strSQL) ' stores the first record id for the correct e-mail login %> <% rec1 = rstLogin("ID").Value If NOT rstLogin.EOF Then count = 0 record = "" temp = "" j = 0 ' finds the number of records that match the entered e-mail address rstLogin.MoveFirst Do While NOT rstLogin.EOF If rstLogin("ContEmail") = Request.Form("email") OR rstLogin("DEEmail") = Request.Form("email") Then If records = "" Then records = rstLogin("ID").Value temp2 = rstLogin("Title").Value Else records = records & "," & rstLogin("ID").Value temp2 = temp2 & ";" & rstLogin("Title").Value End If If temp = "" Then temp = "?id=" & rstLogin("ID").Value & "&title;=" & rstLogin("Title").Value & "&summary;=" & rstLogin("Summary").Value & "&keywords;=" & rstLogin("Keywords").Value & "&taxon;=" & rstLogin("Taxon").Value &_ "&spectaxon;=" & rstLogin("SpecTaxon").Value & "&class;=" & rstLogin("Class").Value & "ℴ=" & rstLogin("SOrder").Value & "&family;=" & rstLogin("Family").Value &_ "&genus;=" & rstLogin("Genus").Value & "&species;=" & rstLogin("Species").Value & "&aquaterr;=" & rstLogin("AquaTerr").Value & "&ecotype;=" & rstLogin("EcoType").Value &_ "&startdate;=" & rstLogin("StartDate").Value & "&enddate;=" & rstLogin("EndDate").Value & "&status;=" & rstLogin("Status").Value & "&updmntsched;=" & rstLogin("UpdMntSched").Value &_ "&georegion;=" & rstLogin("GeoRegion").Value & "&county;=" & rstLogin("County").Value & "&physprov;=" & rstLogin("PhysProv").Value & "&percgeo;=" & rstLogin("PercGeo").Value &_ "&percfield;=" & rstLogin("PercField").Value & "&percint;=" & rstLogin("PercInt").Value & "&percgps;=" & rstLogin("PercGPS").Value & "&percpaper;=" & rstLogin("PercPaper").Value &_ "&percelec;=" & rstLogin("PercElec").Value & "&percimg;=" & rstLogin("PercImg").Value & "&precprsp;=" & rstLogin("PercPrSp").Value & "&records;=" & rstLogin("Records").Value &_ "&speciesnum;=" & rstLogin("SpeciesNum").Value & "&howspec;=" & rstLogin("HowSpec").Value & "&size;=" & rstLogin("QSize").Value & "&platform;=" & rstLogin("Platform").Value &_ "&url;=" & rstLogin("URL").Value & "&usecont;=" & rstLogin("UseCont").Value & "&distribution;=" & rstLogin("Distribution").Value & "&isfee;=" & rstLogin("IsFee").Value &_ "&fee;=" & rstLogin("Fee").Value & "&canshare;=" & rstLogin("CanShare").Value & "&cit;=" & rstLogin("Cit").Value & "&prefix;=" & rstLogin("Prefix").Value & "&firstname;=" &_ rstLogin("first_name").Value & "&mi;=" & rstLogin("MI").Value & "&lastname;=" & rstLogin("last_name").Value & "&jobdesc;=" & rstLogin("JobDesc").Value & "&contorg;=" &_ rstLogin("ContOrg").Value & "&contemail;=" & rstLogin("ContEmail").Value & "&contphone;=" & rstLogin("ContPhone").Value & "&ext;=" & rstLogin("Ext").Value & "&today;=" &_ rstLogin("Today").Value & "&areptct;=" & rstLogin("ArePtCt").Value & "&prefix2;=" & rstLogin("Prefix2").Value & "&fname;=" & rstLogin("f_name").Value & "&mi2;=" & rstLogin("MI2").Value &_ "&lname;=" & rstLogin("l_name").Value & "&jobdesc2;=" & rstLogin("JobDesc2").Value & "&deorg;=" & rstLogin("DEOrg").Value & "&deemail;=" & rstLogin("DEEmail").Value & _ "&dephone;=" & rstLogin("DEPhone").Value & "&ext2;=" & rstLogin("Ext2").Value & "&coninfy;=" & rstLogin("ConInfY").Value & "&coninfn;=" & rstLogin("ConInfN").Value & _ "&inquirey;=" & rstLogin("InquireY").Value & "&inquiren;=" & rstLogin("InquireN").Value & "&lastupdated;=" & rstLogin("LastUpdated").Value Else temp = temp & ";" & "?id=" & rstLogin("ID").Value & "&title;=" & rstLogin("Title").Value & "&summary;=" & rstLogin("Summary").Value & "&keywords;=" & rstLogin("Keywords").Value & "&taxon;=" & rstLogin("Taxon").Value &_ "&spectaxon;=" & rstLogin("SpecTaxon").Value & "&class;=" & rstLogin("Class").Value & "ℴ=" & rstLogin("SOrder").Value & "&family;=" & rstLogin("Family").Value &_ "&genus;=" & rstLogin("Genus").Value & "&species;=" & rstLogin("Species").Value & "&aquaterr;=" & rstLogin("AquaTerr").Value & "&ecotype;=" & rstLogin("EcoType").Value &_ "&startdate;=" & rstLogin("StartDate").Value & "&enddate;=" & rstLogin("EndDate").Value & "&status;=" & rstLogin("Status").Value & "&updmntsched;=" & rstLogin("UpdMntSched").Value &_ "&georegion;=" & rstLogin("GeoRegion").Value & "&county;=" & rstLogin("County").Value & "&physprov;=" & rstLogin("PhysProv").Value & "&percgeo;=" & rstLogin("PercGeo").Value &_ "&percfield;=" & rstLogin("PercField").Value & "&percint;=" & rstLogin("PercInt").Value & "&percgps;=" & rstLogin("PercGPS").Value & "&percpaper;=" & rstLogin("PercPaper").Value &_ "&percelec;=" & rstLogin("PercElec").Value & "&percimg;=" & rstLogin("PercImg").Value & "&precprsp;=" & rstLogin("PercPrSp").Value & "&records;=" & rstLogin("Records").Value &_ "&speciesnum;=" & rstLogin("SpeciesNum").Value & "&howspec;=" & rstLogin("HowSpec").Value & "&size;=" & rstLogin("QSize").Value & "&platform;=" & rstLogin("Platform").Value &_ "&url;=" & rstLogin("URL").Value & "&usecont;=" & rstLogin("UseCont").Value & "&distribution;=" & rstLogin("Distribution").Value & "&isfee;=" & rstLogin("IsFee").Value &_ "&fee;=" & rstLogin("Fee").Value & "&canshare;=" & rstLogin("CanShare").Value & "&cit;=" & rstLogin("Cit").Value & "&prefix;=" & rstLogin("Prefix").Value & "&firstname;=" &_ rstLogin("first_name").Value & "&mi;=" & rstLogin("MI").Value & "&lastname;=" & rstLogin("last_name").Value & "&jobdesc;=" & rstLogin("JobDesc").Value & "&contorg;=" &_ rstLogin("ContOrg").Value & "&contemail;=" & rstLogin("ContEmail").Value & "&contphone;=" & rstLogin("ContPhone").Value & "&ext;=" & rstLogin("Ext").Value & "&today;=" &_ rstLogin("Today").Value & "&areptct;=" & rstLogin("ArePtCt").Value & "&prefix2;=" & rstLogin("Prefix2").Value & "&fname;=" & rstLogin("f_name").Value & "&mi2;=" & rstLogin("MI2").Value &_ "&lname;=" & rstLogin("l_name").Value & "&jobdesc2;=" & rstLogin("JobDesc2").Value & "&deorg;=" & rstLogin("DEOrg").Value & "&deemail;=" & rstLogin("DEEmail").Value & _ "&dephone;=" & rstLogin("DEPhone").Value & "&ext2;=" & rstLogin("Ext2").Value & "&coninfy;=" & rstLogin("ConInfY").Value & "&coninfn;=" & rstLogin("ConInfN").Value & _ "&inquirey;=" & rstLogin("InquireY").Value & "&inquiren;=" & rstLogin("InquireN").Value & "&lastupdated;=" & rstLogin("LastUpdated").Value End If count = count + 1 j = j + 1 End If rstLogin.MoveNext Loop allrec = split(records,",") qstring = split(temp,";") recTitle = split(temp2,";") maxcount = count %>
<% 'Response.End End If ' Clean Up rstLogin.Close Set rstLogin = Nothing cnnLogin.Close Set cnnLogin = Nothing End If %>

 

 

 

 

 

 

 

Last Updated:  10/04/2003

  1. https://aireyys.com/
  2. https://www.aghu.org/
  3. https://www.cosac.org/
  4. https://greaterclevelandurbanfilmfestival.org/
  5. https://greenhousegaslab.org/
  6. https://www.frankvanaken.com/
  7. https://www.ecopracticum.com/
  8. https://www.maximaphiles-francais.org/
  9. https://alisonjohnsonmcs.com/
  10. https://www.namicentralvirginia.org/
  11. https://burningbridgescomedyclub.com/
  12. https://www.unikomarcas.com/
  13. https://cranesmusic.com/
  14. https://www.essenzasalonspa.com/
  15. https://www.nymic.org/
  16. https://zorbas-kitchen.com/
  17. https://topabermeo.com/
  18. https://www.boeart.org/
  19. https://darasard.com/
  20. https://www.forthenomads.org/
  21. https://wpctlh.org/
  22. https://seminariodeosma-soria.org/
  23. https://www.universaldesignssalon.com/
  24. https://www.elysiumofaz.com/
  25. https://concursoinnovate.com/
  26. https://sycamoreseniorcenter.org/
  27. https://www.internationalmedalist.org/
  28. https://www.standrewscny.org/
  29. https://www.wfgi.org/
  30. https://www.pabiodiversity.org/
  31. https://www.bellevueacneclinic.com/
  32. https://www.mediation-sanitaire.org/
  33. https://romainbayle-photographe.com/
  34. slot demo
  35. demo slot
  36. pengeluaran kamboja
  37. togel kamboja
  38. slot demo
  39. demo pg
  40. toto macau
  41. toto macau
  42. keluaran macau
  43. togel macau
  44. demo slot
  45. sbobet
  46. sbobet
  47. demo slot
  48. slot demo
  49. slot demo
  50. demo slot
  51. slot dana
  52. slot via dana
  53. judi parlay
  54. slot demo
  55. togel kamboja
  56. judi bola
  57. keluaran kamboja
  58. Pengeluaran Cambodia
  59. judi bola
  60. demo slot
  61. Togel Kamboja