top of page
_edited.jpg
BDT1.png

" rst.open "select strIDFamilyName,strIDGenusName,strSpeciesEpithetname from Qrymain Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "" response.write "" Response.Write rst("strIDFamilyName") & " " response.write "" response.write rst("strIDGenusName") & " " & rst("strSpeciesEpithetname") rst.MoveNext Loop %> " end if rst.close response.Write "
" response.Write "
" response.Write "
" response.write "" response.write "

" response.write "" response.Write "Photos" response.Write "
" response.write "" rst.open "select * from QryPhotos Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " xx = rst("strPhotoFilename") %> " response.write "" Response.Write "No Information Available " response.Write "
" end if rst.close response.Write "
" response.Write "
" response.Write "
" response.write "" response.write "" Response.write "Synonyms:" response.write "
" response.write "" response.write "" rst.open "select strSynonymGenusname,strSynonymEpithetname from QrySyn Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.Write "
" response.Write "
" response.write "" response.write "" Response.write "Common Names:" response.write "
" response.Write "
" response.write "" response.write "" rst.open "select strLanguageName,strIDGenusName,strSpeciesEpithetname,txtCommonnameName from QryCnameall Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> rst("strLanguageName") then response.write "
" response.write rst("strLanguageName") & ": " x = rst("strLanguageName") else end if Response.Write rst("txtCommonnameName") rst.MoveNext if rst.eof then response.write "." else if x <> rst("strLanguageName") then response.write "." else response.write "," & " " end if end if Loop %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.Write "
" response.Write "
" response.write "" response.write "" Response.write "Uses:" response.write "
" Response.write "Fruit Uses: " response.write "
" response.Write "
" response.write "" response.write "" rst.open "select * from QryFruitUses1 Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> rst("strFruitpartName") then response.Write "
" response.write rst("strFruitpartName") & " : " x = rst("strFruitpartName") else end if Response.Write rst("strProductgroupName") & " " & rst("strProductName") rst.MoveNext if rst.eof then response.write "." else if x <> rst("strFruitpartName") then response.write "." else response.write "," & " " end if end if Loop %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.Write "
" response.Write "
" response.write "" response.write "" Response.write "Plant Uses: " response.write "
" response.write "" response.write "" rst.open "select * from QryPlantUses Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> rst("Plantpart") then response.Write "
" Response.Write rst("Plantpart") & " : " x = rst("Plantpart") else end if Response.Write rst("strPlantusageName") rst.MoveNext if rst.eof then response.write "." else if x <> rst("Plantpart") then response.write "." else response.write "," & " " end if end if Loop %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.Write "
" response.Write "
" response.write "" response.write "" Response.write "Origin(TDWG Standards:) " response.write "
" response.write "
" response.write "Area: " response.write "" response.write "" rst.open "select * from QrySpecOrigArea Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.write "
" response.write "" response.write "" response.write "Region: " response.write "" response.write "" rst.open "select * from QrySpecOrigenRegion Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.write "
" response.write "" response.write "" response.write "Continent: " response.write "" response.write "" rst.open "select Distinct strContinentsName from QrySpecOrigenRegion Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.Write "
" response.Write "
" response.write "" response.write "" Response.write "Presence (TDWG Standards): " response.write "
" response.write "
" response.write "Area: " response.write "" response.write "" rst.open "select * from QrySpcPresenceArea Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "

 

" Response.Write "No Information Available" response.Write "
" end if rst.close response.write "
" response.write "" response.write "" response.write "Region: " response.write "" response.write "" rst.open "select * from QrySpcPresenceRegion Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.write "
" response.write "" response.write "" response.write "Continent: " response.write "" response.write "" rst.open "select Distinct strContinentsName from QrySpcPresenceRegion Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.Write "
" response.write "" response.write "" Response.write "MAP " response.write "
" Response.write "Florist Region: " response.write "" response.write "" rst.open "select * from QrySpecFloristRegion Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close %>

other information

" rst.open "select strIDFamilyName,strIDGenusName,strSpeciesEpithetname from Qrymain Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "" response.write "" Response.Write rst("strIDFamilyName") & " " response.write "" response.write rst("strIDGenusName") & " " & rst("strSpeciesEpithetname") rst.MoveNext Loop %> " end if rst.close response.Write "
" response.Write "
" response.Write "
" response.write "" response.write "

" response.write "" response.Write "Photos" response.Write "
" response.write "" rst.open "select * from QryPhotos Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " xx = rst("strPhotoFilename") %> " response.write "" Response.Write "No Information Available " response.Write "
" end if rst.close response.Write "
" response.Write "
" response.Write "
" response.write "" response.write "" Response.write "Synonyms:" response.write "
" response.write "" response.write "" rst.open "select strSynonymGenusname,strSynonymEpithetname from QrySyn Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.Write "
" response.Write "
" response.write "" response.write "" Response.write "Common Names:" response.write "
" response.Write "
" response.write "" response.write "" rst.open "select strLanguageName,strIDGenusName,strSpeciesEpithetname,txtCommonnameName from QryCnameall Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> rst("strLanguageName") then response.write "
" response.write rst("strLanguageName") & ": " x = rst("strLanguageName") else end if Response.Write rst("txtCommonnameName") rst.MoveNext if rst.eof then response.write "." else if x <> rst("strLanguageName") then response.write "." else response.write "," & " " end if end if Loop %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.Write "
" response.Write "
" response.write "" response.write "" Response.write "Uses:" response.write "
" Response.write "Fruit Uses: " response.write "
" response.Write "
" response.write "" response.write "" rst.open "select * from QryFruitUses1 Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> rst("strFruitpartName") then response.Write "
" response.write rst("strFruitpartName") & " : " x = rst("strFruitpartName") else end if Response.Write rst("strProductgroupName") & " " & rst("strProductName") rst.MoveNext if rst.eof then response.write "." else if x <> rst("strFruitpartName") then response.write "." else response.write "," & " " end if end if Loop %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.Write "
" response.Write "
" response.write "" response.write "" Response.write "Plant Uses: " response.write "
" response.write "" response.write "" rst.open "select * from QryPlantUses Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> rst("Plantpart") then response.Write "
" Response.Write rst("Plantpart") & " : " x = rst("Plantpart") else end if Response.Write rst("strPlantusageName") rst.MoveNext if rst.eof then response.write "." else if x <> rst("Plantpart") then response.write "." else response.write "," & " " end if end if Loop %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.Write "
" response.Write "
" response.write "" response.write "" Response.write "Origin(TDWG Standards:) " response.write "
" response.write "
" response.write "Area: " response.write "" response.write "" rst.open "select * from QrySpecOrigArea Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.write "
" response.write "" response.write "" response.write "Region: " response.write "" response.write "" rst.open "select * from QrySpecOrigenRegion Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.write "
" response.write "" response.write "" response.write "Continent: " response.write "" response.write "" rst.open "select Distinct strContinentsName from QrySpecOrigenRegion Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.Write "
" response.Write "
" response.write "" response.write "" Response.write "Presence (TDWG Standards): " response.write "
" response.write "
" response.write "Area: " response.write "" response.write "" rst.open "select * from QrySpcPresenceArea Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "

 

" Response.Write "No Information Available" response.Write "
" end if rst.close response.write "
" response.write "" response.write "" response.write "Region: " response.write "" response.write "" rst.open "select * from QrySpcPresenceRegion Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.write "
" response.write "" response.write "" response.write "Continent: " response.write "" response.write "" rst.open "select Distinct strContinentsName from QrySpcPresenceRegion Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close response.Write "
" response.write "" response.write "" Response.write "MAP " response.write "
" Response.write "Florist Region: " response.write "" response.write "" rst.open "select * from QrySpecFloristRegion Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "" Response.Write "No Information Available" response.Write "
" end if rst.close %>

other information

.

" response.write "" rst.open "select strIDFamilyName,strIDGenusName,strSpeciesEpithetname from Qrymain Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " response.write "" Response.Write rst("strIDFamilyName") response.write "" xcon = rst("strIDGenusName") & " " & rst("strSpeciesEpithetname") response.write " " & rst("strIDGenusName") & " " & rst("strSpeciesEpithetname") rst.MoveNext Loop %> " end if rst.close response.write "

" response.write "
" response.write "" response.write "" Response.write "Expert:" response.write "
" response.write "" response.write "" rst.open "select * from QryExpert Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " Response.Write rst("strExpertName") & ", " & rst("strExpertEmail") & ", " & rst("strCountriesName") & "." rst.MoveNext Loop %> " end if rst.close response.write "
" response.write "" response.write "" Response.write "URLs:" response.write "
" response.write "" response.write "" rst.open "select * from QryURl Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " Response.Write rst("strReferenceURLName") & ", " & rst("strReferenceURLDescription") & ". " rst.MoveNext Loop %> " end if rst.close response.write "
" response.write "" response.write "" Response.write "References:" response.write "
" response.write "" response.write "" rst.open "select * from QryRef Where intIDSpecies = " & variable, con, adOpenKeyset, adLockOptimistic if rst.RecordCount > 0 then rst.MoveFirst %> " Response.Write rst("memReferenceText") & "." rst.MoveNext Loop %> " end if rst.close con.close %>

Other Search

Spec_germplasm Ipgri catalogue

Spec germplasm GRIN

Spec_herbaria voucher MOBOT

Spec_cultivation informtaion

Spec Ecological information

Spec_ additional Information(Epic)

Spec_aditional information (Mansfeld)         

Spec crop information

Spec Cultivation information

Spec collection Systax

[sites.google.com][92163].png
Base-de-datos.jpg
2023

© 2023 by Howard Bolt, Mechanical Engineering. Proudly created with Wix.com

  • Twitter B&W
  • LinkedIn B&W
  • Facebook B&W
  • Google+ B&W
bottom of page