Wisconsin State Herbarium	Lichens	University of  Wisconsin - Madison
Home Vascular Plants WISCOMP Database Lichens New Search

<%=RS("Taxa")%> <%=RS("Common")%> <%=RS("Gallery")%> Growth Form <%=RS("growthform")%> Photobiont <%=RS("photobiont")%> WI Abundance <%=RS("abundance")%> Proposed WI Status  <%=RS("status1")%> Synonyms  Map(s) Substrate More Photos More Information		<% IF RS("Photo")<>"" THEN %> " ALT="Photograph of <%=RS("Taxa")%>"> <% IF RS("Photographer")<>"" THEN %> Photographer: <%=RS("Photographer")%> <% END IF ELSE %> No photograph available. <% END IF %>

<% RS.MoveNext IF RS.EOF THEN Response.Write("There are no synonyms for this taxon.") ELSE WHILE NOT RS.EOF %> <%=RS("Taxa")%>
<% RS.MoveNext WEND END IF RS.Close %>

<% MySQL="SELECT * FROM link " Criteria="WHERE Taxcd = '" & SpCode & "' ORDER BY Type, Taxcd, Link" MySQL=MySQL & Criteria Response.Write("" ) Set RS1=MyConn.Execute(MySQL) %>

<% IF Thumb > "." THEN %> <% END IF %>	<% Count=0 DO WHILE NOT RS1.EOF IF LEFT(RS1("Type"),1)<>"1" THEN EXIT DO IF Count=0 THEN %> Click below for Detailed Distribution Map(s) <% END IF %> "><%=RS1("Title")%> <%=RS1("Descp")%> <% Count=Count+1 RS1.MoveNext LOOP IF Count=0 THEN %> No Detailed Distribution Maps available for this taxon. <% ELSE %>    <% END IF %>
	Wisconsin Reference Maps: Geology, Vegetation, Climate, Soils, etc.
	Map with Wisconsin County Names

 

<% IF NOT RS2.EOF THEN DO WHILE NOT RS2.EOF %> <%=RS2("Descp")%>;   <% RS2.MoveNext LOOP ELSE %>

No substrate information available for this taxon.

<% END IF RS2.Close %>

Substrate data from Lichens of Wisconsin by John W. Thomson, 2002

---

More Photos [top of page] More Photos 

<% Count=0 DO WHILE NOT RS1.EOF IF LEFT(RS1("Type"),1)<>"3" THEN EXIT DO IF Count=0 THEN %> <% END IF IF (Count MOD 5)=0 THEN %> <% END IF Count=Count+1 %> <% RS1.MoveNext LOOP IF Count>0 THEN %>

	<% IF RS1("Title")<>"" THEN %> ">"> <% ELSE %> ">(Photo) <% END IF IF RS1("Descp")<>"" THEN %> <%=RS1("Descp")%> <% END IF %>

<% ELSE %> No additional photos available for this taxon. <% END IF %>

---

More Information [top of page] More Information 

<% Count=0 DO WHILE NOT RS1.EOF %>

"><%=RS1("Title")%>

<%=RS1("Descp")%>

<% Count=Count+1 RS1.MoveNext LOOP IF Count=0 THEN %> No other information is available for this taxon.
<% END IF %>

<% RS1.Close ELSE %>

I couldn't find a taxa that matches your species code.

<% END IF MyConn.Close ELSE %>

I don't understand your question.

<% END IF %>

Home

Vascular Plants

WISCOMP Database

Lichens

New Search