Search Results

<% Scriptpath="../scripts/" Scriptname="detail.asp" Scriptname1="Searchcounty.asp" cty="m" IF Request.ServerVariables("REQUEST_METHOD")="POST" THEN County=Request.Form("County") Status1=Request.Form("Status1") Native=Request.Form("Native") LIM=0 END IF IF Request.ServerVariables("REQUEST_METHOD")="GET" THEN County=Request.QueryString("County") Status1=Request.QueryString("Status1") Native=Request.QueryString("Native") LIM=Request.QueryString("LIM") END IF REM Assemble criteria string for SQL Criteria="" Prefix=" WHERE" IF County<>"" THEN 'Criteria=Criteria & Prefix & " ([" & County & "] > 'a')" Criteria=Criteria & Prefix & " (county = '" & County & "')" Prefix=" AND" END IF IF Status1<>"" THEN Criteria2 = Criteria2 & Prefix & " ( Status like '%" & Status1 & "%') " ' Criteria=Criteria & Prefix & " ( Status1 = '" & Status1 & "') " END IF IF Native<>"" THEN Criteria2 = Criteria2 & Prefix & " ( Origin = '" & Native & "') " 'Criteria=Criteria & Prefix & " ( Native = '" & Native & "') " END IF Criteria2 =Criteria2 & " AND (Wisc_Found='W')" IF Criteria<>"" THEN 'MySQL="SELECT COUNT (*) AS COUNT FROM County " & Criteria & " " MySQL="SELECT COUNT (*) AS COUNT FROM spdetail WHERE Taxcd IN ( SELECT DISTINCT Taxcd FROM specimen" & Criteria & ")" & Criteria2 & "" Set RS3=MyConn.Execute(MySQL) recount = RS3("Count") totrec=recount call closeRS(RS3) 'MySQL="SELECT * FROM spdetail WHERE Taxcd IN ( SELECT DISTINCT Taxcd FROM County " & Criteria & ") ORDER BY Family, Taxcd, Syncd" MySQL="SELECT * FROM spdetail WHERE Taxcd IN ( SELECT DISTINCT Taxcd FROM specimen" & Criteria & ")" & Criteria2 & " ORDER BY Family, Taxcd, Syncd" %>
<% Set RS=MyConn.Execute(MySQL) IF NOT RS.EOF THEN MyTaxcd="" %>

<%=County%> County: <%=Native%> <%=Status1%>

<% ' MySQL="SELECT * FROM countylink " 'Criteria="WHERE County = '" & County & "' order by Type" ' MySQL=MySQL & Criteria ' Set RS1=MyConn.Execute(MySQL) ' DO WHILE NOT RS1.EOF ' IF RS1("Type") = 1 THEN ' <%=RS1("desc") Total: <%=RS1("Total")% Native: <%=RS1("Native")% Response.Write "Total Records: " & recount 'ELSE '
'END IF ' RS1.MoveNext ' LOOP LIMct1 = -LIM + 1 LIMCT = 100 %> <% WHILE NOT RS.EOF IF MyTaxcd<>RS("Taxcd") THEN MyTaxcd=RS("Taxcd") IF LIMct1 > 0 AND LIMCT <> 0 THEN %> <% 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 %> <% LIMCT = LIMCT - 1 LIMCT1 = LIMCT1 + 1 ELSE IF LIMCT > 0 THEN LIMCT1 = LIMCT1 + 1 END IF END IF END IF RS.MoveNext WEND %>

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

<% LIMPR=LIM-100 LIM=LIM+100 IF LIMCT = 0 THEN %> First <% IF LIM >101 THEN %> Previous <%END IF%> Next or Page <% pageno=1 pageinc=0 WHILE totrec -pageinc > 0 %> <%=pageno%> <% pageinc = pageinc+100 pageno = pageno + 1 WEnd END IF IF LIMCT <> 0 THEN IF LIMPR >=0 THEN REM last page %> First Previous or Page 1 <% pageno=2 pageinc=100 WHILE totrec -pageinc > 0 %> <%=pageno%> <% pageinc = pageinc+100 pageno = pageno + 1 WEnd END IF END IF ELSE %> No matches were found for your search.
<% END IF call closeRS(RS) ELSE %> I don't understand what you are trying to search for.
<% END IF %>