WI Vascular plants-<%=taxonname%>

<% option explicit %> <% dim SpCode dim genus dim family dim common dim species dim habitat dim taxonname dim intCount dim blnPhotos, blnDotMap, blnHandMap dim rs, rs1, rs2, rsPhotoCheck, rsMapCheck dim MySQL dim Criteria Dim strpagetitle dim Thumb 'variables for "If Exists" process dim temp_array dim temp_array2 dim URL_XL_photo, URL_Photofilename, URL_Mainphotofilename, URL_Dotmapfilename, URL_ThumbPhotofilename, URL_Handmapfilename dim XLfilename dim filepath dim fs 'Set variable values SpCode = "" blnPhotos = FALSE blnDotMap = FALSE blnHandMap = FALSE 'Retrieve values from form IF Request.ServerVariables("REQUEST_METHOD")="POST" THEN SpCode = trim(Request.Form("SpCode")) genus = trim(Request.Form("genus")) family = trim(Request.Form("Family")) common = trim(Request.Form("common")) species = trim(Request.Form("species")) Habitat = trim(Request.Form("Habitat")) END IF 'Retrieve values from URL string IF Request.ServerVariables("REQUEST_METHOD")="GET" THEN SpCode = trim(Request.QueryString("SpCode")) genus = trim(Request.Querystring("genus")) family = trim(Request.Querystring("Family")) common = trim(Request.Querystring("common")) species = trim(Request.Querystring("species")) Habitat = trim(Request.Querystring("Habitat")) END IF if SpCode = "" then response.end else MySQL="SELECT * FROM spdetail WHERE (Taxcd = '" & SpCode & "') ORDER BY Syncd" if retrieveRS(RS, MySQL, interrornum, strerrormsg) then call ffWriteODBCError(MySQL) if RS.EOF then response.end 'Retrieve link info (paths to important external/internal webpages, images, maps, etc.) MySQL = "SELECT * FROM link " Criteria = "WHERE Taxcd = '" & SpCode & "' ORDER BY Type, Taxcd, Link" MySQL = MySQL & Criteria Set RS1 = MyConn.Execute(MySQL) 'Retrieve species habitat(s) MySQL = "SELECT * FROM habitat " Criteria = "WHERE Taxcd = '" & SpCode & "'" MySQL = MySQL & Criteria Set RS2 = MyConn.Execute(MySQL) 'Determine if there are photos for the photo gallery (denoted by types starting with '3') MySQL = "SELECT * from link WHERE taxcd = '" & SpCode & "' AND type like '3%'" Set rsPhotoCheck = MyConn.Execute(MySQL) IF NOT rsPhotoCheck.EOF THEN blnPhotos = TRUE END IF 'Determine if there are dot maps available for species (denoted by types '1a') MySQL = "SELECT * from link WHERE taxcd = '" & SpCode & "' AND type = '1a'" Set rsMapCheck = MyConn.Execute(MySQL) IF NOT rsMapCheck.EOF THEN blnDotMap = TRUE END IF 'Determine if there are hand drawn maps available for species (denoted by types '1b') MySQL = "SELECT * from link WHERE taxcd = '" & SpCode & "' AND type = '1b'" Set rsMapCheck = MyConn.Execute(MySQL) IF NOT rsMapCheck.EOF THEN blnHandMap = TRUE END IF end if '* * * 'taxonname = getTaxonNm(RS("Taxcd"), RS("Syncd")) taxonname = trim(RS("TAXA")) '* * * if not isnothing(RS("Thumbmaps")) then 'reconstruct photo path to accomodate for new directory (this is only temporary) temp_array = split(RS("Thumbmaps"),"/") Thumb = "../pictures/thumbmap/" & temp_array(ubound(temp_array)) ELSE Thumb = "" END IF %> WI Vascular plants-<%=taxonname%> <%IF session("adminedit") = "1" THEN%>
<%End IF%>

<% IF trim(Thumb) > "." THEN IF blnDotMap THEN Response.Write"

County Distribution Map for " & taxonname & "

" Response.Write"View specimen location map" ELSEIF blnHandMap THEN Response.Write"

" Response.Write"View specimen location map" ELSE Response.Write"

" END IF END IF %>

Family - <%=RS("Family")%>
Taxon - <%=taxonname%>
Common name - <%=RS("Common")%>

<% IF RS("Status") = "Excluded" Then Response.Write "[Excluded] " Else if isnothing(RS("Status")) then Response.Write "" if not isnothing(RS("origin")) then response.write trim(RS("origin")) & "
" if not isnothing(RS("growth_habit")) then response.write trim(RS("growth_habit")) & "
" if not isnothing(RS("blooming_dt")) then response.write trim(RS("blooming_dt")) Response.Write "" else Response.Write "" & RS("Status") & "" end if END IF %>