<%@ 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. slot demo
  49. togel kamboja
  50. judi bola
  51. keluaran kamboja
  52. Pengeluaran Cambodia
  53. judi bola
  54. demo slot
  55. Togel Kamboja
  56. slot thailand
  57. togel kamboja
  58. togel kamboja
  59. keluaran kamboja
  60. slot gacor
  61. keluaran cambodia
  62. demo mahjong
  63. pengeluaran macau
  64. slot server thailand
  65. pengeluaran kamboja
  66. sbobet
  67. sbobet88
  68. togel sidney
  69. slot demo online
  70. slot via qris
  71. slot deposit dana
  72. slot qris