<!-- #include file="copyright.asp"-->
<!-- OLD: include file="template_sup.asp" -->
<script type="text/javascript" src="js/dynamic.js"></script>
<%
'Show back buttons
backToSearch = 0 'Shows the backToSearch-Button
backToResult = 0
%>
<%
'strAll is used for some dropdowns
strAll = "----- ALL ----"
'number of areas to be queried
maxAreas = 4
adv = Request("advanced")
if (adv <>"" AND NOT adv = "Simple" AND NOT adv = "0") then
boolAdvanced = "1"
else
boolAdvanced = "0"
end if
'DEBUG: Response.write("<script>alert('" & boolAdvanced & "')< /script>")
'if coming from a back-button or when coming from print-button load form with old values
if Request("back") = "1" or Request("Print") = "1" then
boolAdvanced = Session("advanced")
mclFamily = Session("family")
mclName = Session("name")
mclGenus = Session("genus")
autBool = Session("aBool")
mclAuthor1 = Session("author1")
mclAuthor2 = Session("author2")
mclYear = Session("year")
mclOrder = Session("order")
else
mclName = Request("name")
'workaround zum leeren der occurence felder in advanced search
For i = 0 to maxAreas
Session("area" & i)=""
Session("bool" & i)=""
Session("mclStatus" & i)=""
Next 'i
End if
%>
<TABLE cellSpacing="0" cellPadding="5" width="100%" border="0">
<TBODY>
<TR>
<TD width="5"><IMG height="19" alt="" src="images/logo_mini.jpg" width="17" border="0"> </TD>
<TD noWrap><B>Search!</B></TD>
<TD width="100%"> <HR SIZE=1> </TD>
</TR>
</TBODY>
</TABLE>
<%
' ***************************** SIMPLE SEARCH *************************************************************
if (boolAdvanced = "0" or boolAdvanced = "") then
Session("advanced")= "0"
%>
<TABLE cellSpacing=0 cellPadding=5 width="100%" border=0>
<TBODY>
<TR>
<TD width=1> </TD>
<TD width="100%">
<TABLE cellPadding=1 width="100%">
<TBODY>
<TR>
<TD vAlign=top> <p>
</p>
<p>Fill in the empty field in order
to query the database for a specific name. Use
the asterisk (*) as a wild card (e.g. Anthyl* will
find all names starting with Anthyl, Anthyllis vulneraria *
will find the names of subspecies etc. of
Anthyllis vulneraria, *aaa* will find all names containing
triple a, and An*is will find Anthyllis or Anchusa officinalis etc.).
The input must contain at least three characters or specify an
area.
The search is only on the name itself, so please
do not include authorship or year of publication.
</p>
<p>Search for a botanical name like "Anthyllis*":</p>
<TABLE width="68%" align="center" >
<TR>
<TD align="right">
<input onclick="searchType(1)" type="button" name="Advanced" value="Advanced Search" width="100" style="FONT: 12px Verdana,Geneva,sans-serif;" >
</TD>
</TR>
<TR>
<TD>
<table width="100%" border="1" align="center" cellpadding="4" cellspacing="3" bordercolor="#666666" bgcolor="#F5F5F5" style="border-collapse: collapse">
<form name="frmSearch" method="get" action="results.asp">
<tr>
<td width="23%"><strong>Name:</strong></td>
<td width="77%">
<div align="left">
<input name="name" type="text" id="name" value="<%=mclName%>" style="BORDER-RIGHT: #ffffff 1px groove;
BORDER-TOP: #ffffff 1px groove; FONT: 10px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 17px; BACKGROUND-COLOR: #DBE3CD" size="90">
</div>
</td>
</tr>
<tr>
<td width="23%"><strong>Area:</strong></td>
<td width="77%">
<%
'workaround weil area1 nicht richtig gespeichert wird in Session
area = Request("area1")
if area = "" then
area = Session("area1")
end if
%>
<div align="left">
<select name="area1" id="area_1" style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 10px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; BACKGROUND-COLOR: #DBE3CD">
<option <% if area = "" then Response.Write(" selected ")%> value="">----- All Areas -----</option>
<option <% if area = "Al" then Response.Write(" selected ")%> value="Al">Albania(Al)</option>
<option <% if area = "Ag" then Response.Write(" selected ")%> value="Ag">Algeria(Ag)</option>
<option <% if area = "An" then Response.Write(" selected ")%> value="An">Asiatic Turkey(An)</option>
<option <% if area = "Bl" then Response.Write(" selected ")%> value="Bl">Balearic Islands(Bl)</option>
<option <% if area = "Bu" then Response.Write(" selected ")%> value="Bu">Bulgaria(Bu)</option>
<option <% if area = "Co" then Response.Write(" selected ")%> value="Co">Corsica(Co)</option>
<option <% if area = "Cr" then Response.Write(" selected ")%> value="Cr">Crete and Karpathos(Cr)</option>
<option <% if area = "RK" then Response.Write(" selected ")%> value="RK">Crimea(RK)</option>
<option <% if area = "Cy" then Response.Write(" selected ")%> value="Cy">Cyprus(Cy)</option>
<option <% if area = "AE" then Response.Write(" selected ")%> value="AE">East Aegean Islands(AE)</option>
<option <% if area = "Eg" then Response.Write(" selected ")%> value="Eg">Egypt(Eg)</option>
<option <% if area = "Ga" then Response.Write(" selected ")%> value="Ga">France(Ga)</option>
<option <% if area = "Gr" then Response.Write(" selected ")%> value="Gr">Greece(Gr)</option>
<option <% if area = "IJ" then Response.Write(" selected ")%> value="IJ">Israel and Jordan(IJ)</option>
<option <% if area = "It" then Response.Write(" selected ")%> value="It">Italy(It)</option>
<option <% if area = "Ju" then Response.Write(" selected ")%> value="Ju">Jugoslavia(Ju)</option>
<option <% if area = "LS" then Response.Write(" selected ")%> value="LS">Lebanon and Syria(LS)</option>
<option <% if area = "Li" then Response.Write(" selected ")%> value="Li">Libya(Li)</option>
<option <% if area = "Me" then Response.Write(" selected ")%> value="Me">Malta(Me)</option>
<option <% if area = "Ma" then Response.Write(" selected ")%> value="Ma">Morocco(Ma)</option>
<option <% if area = "Lu" then Response.Write(" selected ")%> value="Lu">Portugal(Lu)</option>
<option <% if area = "Sa" then Response.Write(" selected ")%> value="Sa">Sardinia(Sa)</option>
<option <% if area = "Si" then Response.Write(" selected ")%> value="Si">Sicily(Si)</option>
<option <% if area = "Sn" then Response.Write(" selected ")%> value="Sn">Sinai(Sn)</option>
<option <% if area = "Hs" then Response.Write(" selected ")%> value="Hs">Spain(Hs)</option>
<option <% if area = "Tn" then Response.Write(" selected ")%> value="Tn">Tunisia(Tn)</option>
<option <% if area = "Tu" then Response.Write(" selected ")%> value="Tu">Turkey-in-Europe(Tu)</option>
</select>
<input name="bool1" type="hidden" value="">
<input name="mclStatus1" type="hidden" value="">
<!--input name="name" type="text" id="name" style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 10px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 17px; BACKGROUND-COLOR: #DBE3CD" size="90"-->
</div>
</td>
</tr>
<tr>
<td width="23%"><strong>Arranged by:</strong></td>
<td colspan="2"><p>
<label> <input type="radio" name="order" value="mcl"
<%if mclOrder = "mcl" or mclOrder = "" then Response.Write(" checked = 'true' ")%>
>MCL No.</label>
<label> <input type="radio" name="order" value="name"
<%if mclOrder = "name" then Response.Write(" checked = 'true' ")%>
>TaxonName</label>
<label> <input type="radio" name="order" value="rank"
<%if mclOrder = "rank" then Response.Write(" checked = 'true' ")%>
>Rank</label>
</p>
</td>
</tr>
<tr>
<input type="hidden" name="count" value="<%=maxAreas%>">
<input type="hidden" name="advanced" value="">
<input name="family" type="hidden" value="">
<td>
</td>
<td colspan="1" align="right">
<input type="submit" name="Submit" value="Query" style="FONT: 12px Verdana,Geneva,sans-serif;">
<input onclick="doClear(<%=maxAreas%>, 0)" type="button" name="Clear" value="Clear" width="100" style="FONT: 12px Verdana,Geneva,sans-serif;" >
</td>
</tr>
</form>
</table>
</TD>
</TR>
</TABLE>
<p align="center"> </p>
<p>N.B.: Do not include taxonomic authors. <br></p>
<p> </p>
<FONT class="small" color="gray" size="-1"> </FONT>
</TD>
<TD vAlign="top" noWrap align="right"></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<%
' ************************* ADVANCED SEARCH*****************************************************************************
else 'boolAdvanced = "1"
Session("advanced")= "1"
SQLFamily = " SELECT SupragenericName as famName" & _
" FROM Name " & _
" WHERE (RankFk = 20) " & _
" ORDER BY SupragenericName "
Set rsFamily = Server.CreateObject("ADODB.Recordset")
openRecordset rsFamily, SQLFamily
SQLGenus = " SELECT Genus as genName, MCLFamilyName as genFamName" & _
" FROM Name " & _
" WHERE (RankFk = 40) " & _
" ORDER BY Genus "
Set rsGenus = Server.CreateObject("ADODB.Recordset")
openRecordset rsGenus, SQLGenus
%>
<TABLE cellSpacing=0 cellPadding=5 width="100%" border=0>
<TBODY>
<TR>
<TD width=1> </TD>
<TD width="100%">
<TABLE cellPadding=1 width="100%">
<TBODY>
<TR>
<TD vAlign=top> <p>
</p>
<TABLE width="63%" align="center" >
<TR>
<TD align="right">
<input onclick="searchType(0)" type="button" name="Simple" value="Simple Search" width="100" style="FONT: 12px Verdana,Geneva,sans-serif;" >
</TD>
</TR>
<TR><TD>
<TABLE width="100%" border="1" align="center" cellpadding="4" cellspacing="3" bordercolor="#666666" bgcolor="#F5F5F5" style="border-collapse: collapse">
<!--table width="68%" border="0" align="left" cellpadding="4" cellspacing="3" bordercolor="#666666" bgcolor="#FBFBF7" style="border-collapse: collapse"
-->
<form name="frmSearch" method="get" action="results.asp" onSubmit="return checkYearInQuery();">
<!--name -->
<tr>
<td colspan="1" align="right" width="30%" >
<div align="right">
<strong>Name:<sup>1,2</sup></strong>
</div>
</td>
<td width="70%" colspan="2" >
<div align="left">
<input name="name" type="text" id="name" value="<%=mclName%>" style="BORDER-RIGHT: #ffffff 1px groove;
BORDER-TOP: #ffffff 1px groove; FONT: 10px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 17px; BACKGROUND-COLOR: #DBE3CD" size="70">
</div>
</td>
</tr>
<!--family -->
<tr>
<td colspan="1" align="right"><strong>Family:<sup>3</sup></strong></td>
<td colspan="2" >
<!-- OLD: select 'onChange="changeFam(this)"' name="family" id="family" style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 10px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; BACKGROUND-COLOR: #DBE3CD"-->
<select name="family" id="family" style="width:150px; BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 10px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; BACKGROUND-COLOR: #DBE3CD">
<%
Response.Write("<option ")
if mclFamily="" then Response.Write(" selected ")
Response.Write(" value=''>" & strAll & "</option>")
Do while ( not rsFamily.EOF)
strName = rsFamily("famName")
Response.write("<option ")
if strName=mclFamily then Response.Write(" selected ")
Response.write(" value="& strName & ">"&strName & "</option>")
rsFamily.movenext
Loop
%>
</select>
</td>
</tr>
<!--genus -->
<tr>
<td colspan="1" align="right"><strong>Genus:<sup>3</sup></strong></td>
<td colspan="2">
<script type="text/javascript">
var dol = new DynamicOptionList();
dol.addDependentFields("family","genus");
</script>
<select name="genus" id="genus" style="width:150px; BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 10px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; BACKGROUND-COLOR: #DBE3CD">
<%
'just to make it look nicer, will be overwritten by dol
Response.Write("<option ")
Response.Write(" value=''>" & strAll & "</option>")
'filling -> see end of file
%>
</select>
</td>
</tr>
<!--Author1 -->
<tr>
<td colspan="1" align="right"><strong>Author:<sup>2,4</sup></strong></td>
<td colspan="2" >
<div align="left">
<input name="author1" type="text" id="author1" value="<%=mclAuthor1%>" style="BORDER-RIGHT: #ffffff 1px groove;
BORDER-TOP: #ffffff 1px groove; FONT: 10px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 17px; BACKGROUND-COLOR: #DBE3CD" size="70" >
</div>
</td>
</tr>
<!--Author2 -->
<tr>
<td colspan="1" align="right">
<select name="aBool" id="bolAuthor" style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 10px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 17px; BACKGROUND-COLOR: #DBE3CD" >
<option <%if autBool <> "OR" then %> selected <%end if%> value="AND">AND</option>
<option <%if autBool = "OR" then %> selected <%end if%> value="OR">OR</option>
</select>
</td>
<td colspan="2" >
<div align="left">
<input name="author2" type="text" id="author2" value="<%=mclAuthor2%>" style="BORDER-RIGHT: #ffffff 1px groove;
BORDER-TOP: #ffffff 1px groove; FONT: 10px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 17px; BACKGROUND-COLOR: #DBE3CD" size="70" >
</div>
</td>
</tr>
<!--status -->
<tr>
<td colspan="1" align="right"><strong>Status:</strong></td>
<td colspan="2">
<div id='allStatus' style="align='left'">
<select name="allStatus" id="allStatus" style="width:150px; BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 10px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; BACKGROUND-COLOR: #DBE3CD">
<option <%if allStatus = "" then Response.Write(" selected ")%> value="">----- All -----</option>
<option <%if allStatus = "e" then Response.Write(" selected ")%> value="e">endemic</option>
<option <%if allStatus = "x" then Response.Write(" selected ")%> value="x">xenophyte</option>
</select>
</div>
</td>
</tr>
<!--year -->
<tr>
<td colspan="1" align="right"><strong>Year:</strong></td>
<td colspan="2" >
<div align="left">
<input name="mclYear" type="text" id="mclYear" onBlur="checkYearInQuery()" value="<%=mclYear%>" style="BORDER-RIGHT: #ffffff 1px groove;
BORDER-TOP: #ffffff 1px groove; FONT: 10px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 17px; BACKGROUND-COLOR: #DBE3CD" size="70">
</div>
</td>
</tr>
<!--area -->
<tr>
<td colspan="1" align="right"><strong><sup>5)</sup></strong>
</td>
<td width="180"><strong>Area:<sup>3</sup></strong></td>
<td width="480"><strong>Status:</strong></td>
</tr>
<%
for i = 1 to maxAreas
bool = Session("bool"&i)
area = Session("area"&i)
if i = 1 and Request("area1") <> "" then
area = Request("area1")
end if
mclStatus = Session("mclStatus"&i)
%>
<tr id="row<%= i %>">
<!--logic-->
<td colspan="1" align="right">
<div id="bool<%= i %>" style="visibility: <%= vis %>" >
<select id="bool_<%= i %>" name="bool<%= i %>" style="text-align:right; BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 10px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; BACKGROUND-COLOR: #DBE3CD">
<%
if (i = 1) then %>
<option <% if bool = "" then Response.Write(" selected ")%> value="">--</option>
<option <% if bool = "NOT" then Response.Write(" selected ")%> value="NOT">ALL BUT NOT</option>
<%elseif (i = 2) then %>
<!--option <% if bool = "" then Response.Write(" selected ")%> value="">--</option-->
<option <% if bool = "OR" then Response.Write(" selected ")%> value="OR">OR</option>
<option <% if bool = "AND" then Response.Write(" selected ")%> value="AND">AND</option>
<option <% if bool = "NOT" then Response.Write(" selected ")%> value="NOT">BUT NOT</option>
<% else %>
<option <% if bool = "" OR bool = "OR" then Response.Write(" selected ")%> value="OR">OR</option>
<option <% if bool = "AND" then Response.Write(" selected ")%> value="AND">AND</option>
<option <% if bool = "NOT" then Response.Write(" selected ")%> value="NOT">BUT NOT</option>
<option <% if bool = "AllNot" then Response.Write(" selected ")%> value="AllNot">ALL ABOVE BUT NOT</option>
</select>
</div>
<% end if %>
</td>
<!--area-->
<td>
<div id="area<%= i %>" style="visibility: <%= vis %>" align="left">
<select onChange="enableAreas(<%= maxAreas%>)" id="area_<%= i %>" name="area<%= i %>" style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 10px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; BACKGROUND-COLOR: #DBE3CD">
<option <% if area = "" then Response.Write(" selected ")%> value="">------------</option>
<option <% if area = "Al" then Response.Write(" selected ")%> value="Al">Albania(Al)</option>
<option <% if area = "Ag" then Response.Write(" selected ")%> value="Ag">Algeria(Ag)</option>
<option <% if area = "An" then Response.Write(" selected ")%> value="An">Asiatic Turkey(An)</option>
<option <% if area = "Bl" then Response.Write(" selected ")%> value="Bl">Balearic Islands(Bl)</option>
<option <% if area = "Bu" then Response.Write(" selected ")%> value="Bu">Bulgaria(Bu)</option>
<option <% if area = "Co" then Response.Write(" selected ")%> value="Co">Corsica(Co)</option>
<option <% if area = "Cr" then Response.Write(" selected ")%> value="Cr">Crete and Karpathos(Cr)</option>
<option <% if area = "RK" then Response.Write(" selected ")%> value="RK">Crimea(RK)</option>
<option <% if area = "Cy" then Response.Write(" selected ")%> value="Cy">Cyprus(Cy)</option>
<option <% if area = "AE" then Response.Write(" selected ")%> value="AE">East Aegean Islands(AE)</option>
<option <% if area = "Eg" then Response.Write(" selected ")%> value="Eg">Egypt(Eg)</option>
<option <% if area = "Ga" then Response.Write(" selected ")%> value="Ga">France(Ga)</option>
<option <% if area = "Gr" then Response.Write(" selected ")%> value="Gr">Greece(Gr)</option>
<option <% if area = "IJ" then Response.Write(" selected ")%> value="IJ">Israel and Jordan(IJ)</option>
<option <% if area = "It" then Response.Write(" selected ")%> value="It">Italy(It)</option>
<option <% if area = "Ju" then Response.Write(" selected ")%> value="Ju">Jugoslavia(Ju)</option>
<option <% if area = "LS" then Response.Write(" selected ")%> value="LS">Lebanon and Syria(LS)</option>
<option <% if area = "Li" then Response.Write(" selected ")%> value="Li">Libya(Li)</option>
<option <% if area = "Me" then Response.Write(" selected ")%> value="Me">Malta(Me)</option>
<option <% if area = "Ma" then Response.Write(" selected ")%> value="Ma">Morocco(Ma)</option>
<option <% if area = "Lu" then Response.Write(" selected ")%> value="Lu">Portugal(Lu)</option>
<option <% if area = "Sa" then Response.Write(" selected ")%> value="Sa">Sardinia(Sa)</option>
<option <% if area = "Si" then Response.Write(" selected ")%> value="Si">Sicily(Si)</option>
<option <% if area = "Sn" then Response.Write(" selected ")%> value="Sn">Sinai(Sn)</option>
<option <% if area = "Hs" then Response.Write(" selected ")%> value="Hs">Spain(Hs)</option>
<option <% if area = "Tn" then Response.Write(" selected ")%> value="Tn">Tunisia(Tn)</option>
<option <% if area = "Tu" then Response.Write(" selected ")%> value="Tu">Turkey-in-Europe(Tu)</option>
</select>
<!--input name="name" type="text" id="name" style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 10px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 17px; BACKGROUND-COLOR: #DBE3CD" size="90"-->
</div>
</td>
<td>
<div id="mclStatus<%= i %>" style="visibility: <%= vis %>" align="left">
<select name="mclStatus<%= i %>" id="status_<%= i %>" style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 10px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; BACKGROUND-COLOR: #DBE3CD">
<option <%if mclStatus = "" then Response.Write(" selected ")%> value="">----- All -----</option>
<option <%if mclStatus = "+" then Response.Write(" selected ")%> value="+">present as a native</option>
<option <%if mclStatus = "-" then Response.Write(" selected ")%> value="-">absent but reported in error (-)</option>
<option <%if mclStatus = "?" then Response.Write(" selected ")%> value="?">doubtfully present (?)</option>
<option <%if mclStatus = "D" then Response.Write(" selected ")%> value="D">doubtfully native (d)</option>
<option <%if mclStatus = "E" then Response.Write(" selected ")%> value="E">(presumably) extinct (t)</option>
<option <%if mclStatus = "A" then Response.Write(" selected ")%> value="A">casual alien (a)</option>
<option <%if mclStatus = "N" then Response.Write(" selected ")%> value="N">naturalized (n)</option>
<option <%if mclStatus = "P" then Response.Write(" selected ")%> value="P">possibly naturalized alien (p)</option>
</select>
</div>
</td>
</tr>
<% next 'i 'area %>
<!-- disable fields if necessary -->
<script language="javascript">
enableAreas(<%= maxAreas%>);
</script>
<!--Order-->
<tr>
<td align="right"><strong>Arranged by:</strong></td>
<td colspan="2" ><p>
<label> <input type="radio" name="order" id="order1" value="mcl"
<%if mclOrder = "mcl" or mclOrder = "" then Response.Write(" checked = 'true' ")%>
>MCL No.</label>
<label> <input type="radio" name="order" id="order2" value="name"
<%if mclOrder = "name" then Response.Write(" checked = 'true' ")%>
>TaxonName</label>
<label> <input type="radio" name="order" id="order3" value="rank"
<%if mclOrder = "rank" then Response.Write(" checked = 'true' ")%>
>Rank</label>
</p>
</td>
</tr>
<!--button -->
<tr>
<input type="hidden" name="count" value="<%=maxAreas%>">
<input type="hidden" name="advanced" value="1">
<td align="right" colspan="1"></td>
<td colspan="2" align="right">
<input type="submit" name="Submit" value="Query" width="100" style="FONT: 12px Verdana,Geneva,sans-serif;">
<input onclick="doClear(<%=maxAreas%>, 1)" type="button" name="Clear" value="Clear" width="100" style="FONT: 12px Verdana,Geneva,sans-serif;" >
</td>
</tr>
</form>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE>
<TR>
<TD> </TD>
<TD> </TD>
<TD> </TD>
</TR>
<TR>
<TD valign="top"><sup>1)</sup></TD>
<TD colspan="2">Don't use author names. For author names use author fields.</TD>
</TR>
<TR>
<TD valign="top"><sup>2)</sup></TD>
<TD colspan="2">Use asterisk (*) as wildcard.</TD>
</TR>
<TR>
<TD valign="top"><sup>3)</sup></TD>
<TD colspan="2">For synonyms (S) and misapplied names (M) the queried information
applies to the accepted MCL-taxon to which the S or M pertains.</TD>
</TR>
<TR>
<TD valign="top"><sup>4)</sup></TD>
<TD colspan="2">Author search is on standard abbreviations only, not on full author names.
Note that instead of "L. f.", "Rech. f." etc., the abbreviations "L. fil.", "Rech. fil." are used.
</TD>
</TR>
<TR>
<TD valign="top">5)</sup></TD>
<TD valign="top">Usage of "AND"-Operator: </TD>
<TD valign="top">Al OR Ag AND An => Al OR (Ag AND An)</TD>
</TR>
<TR>
<TD><sup> </sup></TD>
<TD valign="top">Usage of "AND NOT"-Operator: </TD>
<TD valign="top">Al OR Ag AND NOT An => Al OR (Ag AND (NOT An))</TD>
</TR>
<TR>
<TD> </TD>
<TD valign="top">Usage of "ALL-ABOVE-AND-NOT"-Operator: </TD>
<TD valign="top">Al OR Ag ALL-ABOVE-AND-NOT An => (Al OR Ag) AND NOT An</TD>
</TR>
</TABLE>
<FONT class="small" color="gray" size="-1"> </FONT>
</TD>
<TD vAlign="top" noWrap align="right"></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<%
'Java Script for filling the genus-field depending on the family-field
Response.Flush
lastFam = ""
Response.Write("<script type='text/javascript'>")
Do while ( not rsGenus.EOF )
strGenus = rsGenus("genName")
strFam = rsGenus("genFamName")
'for each family first fill genus with '---ALL---'
if lastFam <> strFam then
Response.Write("dol.forValue('" & strFam & "').addOptionsTextValue('" & strAll & "', '');" & Chr(13))
Response.Write("dol.forValue('').addOptionsTextValue('" & strAll & "', '');" & Chr(13))
Response.Write("dol.forValue('" & strFam & "').setDefaultOptions('');")
lastFam = strFam
end if
Response.Write("dol.forValue('" & strFam & "').addOptions('" & strGenus & "');"& Chr(13))
Response.Write("dol.forValue('').addOptions('" & strGenus & "');"& Chr(13))
rsGenus.movenext
Loop
'preselect a certain Genus
if mclGenus <> "" then
Response.Write("dol.forField('genus').setValues('" & mclGenus & "');"& Chr(13))
else
Response.Write("dol.selectFirstOption = true;"& Chr(13))
end if
Response.Write("</script>")
%>
<% end if %>
<!-- OLD: include file="template_inf.asp" -->
<!-- #include file="copyright_end.asp"-->