<%@ 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. slot qris
  72. slot qris
  73. login generasitogel
  74. link generasitogel
  75. daftar generasitogel
  76. generasitogel
  77. situs generasitogel
  78. situs slot qris
  79. togel cambodia
  80. macau hari ini
  81. toto macau
  82. keluaran macau
  83. situs slot thailand
  84. slot deposit qris 5k
  85. pengeluaran hk
  86. pengeluaran hk
  87. pengeluaran hk
  88. pengeluaran hk
  89. keluaran hk
  90. Togel SDY
  91. pengeluaran sdy
  92. data sdy
  93. generasitogel
  94. generasitogel
  95. generasitogel
  96. Live HK Lotto
  97. Live Draw HK
  98. Sidney Lotto
  99. Live HK Lotto
  100. Sidney Lotto 6D
  101. Live Draw SDY
  102. slot dana gacor
  103. TOGEL HONGKONG
  104. Toto Macau
  105. Togel SGP
  106. Togel HK
  107. data macau
  108. Live Draw HK
  109. Live Draw Singapore
  110. HK Lotto
  111. Live SGP
  112. Live Togel SGP
  113. Rekap HK
  114. Live SGP 4D
  115. Live Togel SDY
  116. Live Draw HK
  117. Togel SDY
  118. Rekap HK
  119. Live SDY
  120. Live SDY
  121. Live Draw Sidney
  122. Pengeluaran SDY
  123. Slot Pulsa