<%@ 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://www.boeart.org/
  17. https://darasard.com/
  18. https://www.forthenomads.org/
  19. https://wpctlh.org/
  20. https://seminariodeosma-soria.org/
  21. https://www.universaldesignssalon.com/
  22. https://www.elysiumofaz.com/
  23. https://concursoinnovate.com/
  24. https://sycamoreseniorcenter.org/
  25. https://www.internationalmedalist.org/
  26. https://www.standrewscny.org/
  27. https://www.wfgi.org/
  28. https://www.pabiodiversity.org/
  29. https://www.bellevueacneclinic.com/
  30. https://www.mediation-sanitaire.org/
  31. https://romainbayle-photographe.com/
  32. slot demo
  33. demo slot
  34. pengeluaran kamboja
  35. togel kamboja
  36. slot demo
  37. demo pg
  38. toto macau
  39. toto macau
  40. keluaran macau
  41. togel macau
  42. demo slot
  43. sbobet
  44. sbobet
  45. slot dana
  46. slot via dana
  47. judi parlay
  48. togel kamboja
  49. judi bola
  50. keluaran kamboja
  51. Pengeluaran Cambodia
  52. judi bola
  53. Togel Kamboja
  54. slot thailand
  55. togel kamboja
  56. togel kamboja
  57. keluaran kamboja
  58. slot gacor
  59. keluaran cambodia
  60. pengeluaran macau
  61. slot server thailand
  62. pengeluaran kamboja
  63. sbobet
  64. sbobet88
  65. togel sidney
  66. slot demo online
  67. slot via qris
  68. slot deposit dana
  69. slot qris
  70. slot qris
  71. pintarbersamamedan.org
  72. slot qris
  73. slot qris
  74. login generasitogel
  75. link generasitogel
  76. daftar generasitogel
  77. generasitogel
  78. situs generasitogel
  79. situs slot qris
  80. togel cambodia
  81. slot deposit qris
  82. toto macau
  83. situs toto macau
  84. pengeluaran macau
  85. situs slot thailand
  86. slot deposit qris 5k
  87. toto hk
  88. toto sdy
  89. toto sgp
  90. pengeluaran hk
  91. pengeluaran hk
  92. pengeluaran hk
  93. pengeluaran hk
  94. keluaran hk
  95. Togel SDY
  96. pengeluaran sdy
  97. data sdy
  98. generasitogel
  99. generasitogel
  100. generasitogel