Search Results

<% Scriptpath="/wisflora/scripts/" Scriptname="detail.asp" IF Request.ServerVariables("REQUEST_METHOD")="POST" THEN Status=Request.Form("Status") END IF IF Request.ServerVariables("REQUEST_METHOD")="GET" THEN Status=Request.QueryString("Status") END IF REM Assemble criteria string for SQL Criteria="" Prefix=" WHERE" IF Status<>"" THEN 'Criteria=Criteria & Prefix & " ( Descp = '" & Status & "') " Criteria=Criteria & Prefix & " ( Status like '%" & Status & "%') " END IF '********* Criteria=Criteria & "AND (Wisc_Found='W')" '********* IF Criteria<>"" THEN 'MySQL="SELECT * FROM spdetail WHERE Taxcd IN ( SELECT DISTINCT Taxcd FROM status1 " & Criteria & ") ORDER BY Family, Taxcd, Syncd" MySQL="SELECT * FROM spdetail" & Criteria & " ORDER BY Family, Taxcd, Syncd" %>
<% Set RS=MyConn.Execute(MySQL) IF NOT RS.EOF THEN MyTaxcd="" %>

Status type: <%=Status%>

<% ' MySQL="SELECT * FROM stalink " 'Criteria="WHERE Descp = '" & Status & "' ORDER BY Type" 'MySQL=MySQL & Criteria 'Set RS1=MyConn.Execute(MySQL) %> <% ' DO WHILE NOT RS1.EOF %> Definition Wisconsin DNR Status Information <% ' RS1.MoveNext 'LOOP %> <% WHILE NOT RS.EOF IF MyTaxcd<>RS("Taxcd") THEN MyTaxcd=RS("Taxcd") %> <% IF RS("Photo")<>"" THEN Response.Write("") ELSE Response.Write("") END IF %> <% IF RS("Thumbmaps")<>"" or RS("Hand")="H" THEN Response.Write("") ELSE Response.Write("") END IF %> <% END IF RS.MoveNext WEND %>

Family	Taxon	Common Name	Photos	Maps
<%=RS("Family")%>	"><%=getTaxonNm(RS("Taxcd"), RS("Syncd"))%>	<%=RS("Common")%>	Yes		Yes

<% ELSE %> No matches were found for your search.
<% END IF RS.Close ELSE %> I don't understand what you are trying to search for.
<% END IF %>