Name:
|
<%=Rname("FullNameCache")%>
|
<% if len(NameA(2)) > 0 then %>
| Nomencl. ref.: |
<%=NameA(2)%> |
<%end if %>
<% if len(NameA(3)) > 0 then %>
| Nomencl. status(es): |
<%=RName("NomStatus")%> |
<%end if %>
<%
'---------------- Rank -------------------------------------------------------------------
%>
| Rank: |
<%=RName("Rank")%> |
<%
' ---------------------------- RELATED NAMES ------------------------------------------------------------
' ---------------------------- RELATED TO ------------------------------------------------------------
'Is this name related to another name ? (e.g. this is basionym of that)
SQL=" SELECT NameFrom.NameId, NameTo.NameId AS NameIdTo, NameTo.FullNameCache, RelName.RelNameQualifierFk relQualFk, RelNameQualifier.RelNameQualifier " & _
" FROM Name NameFrom INNER JOIN Name NameTo INNER JOIN RelName ON NameTo.NameId = RelName.NameFk2 ON NameFrom.NameId = RelName.NameFk1 " & _
" INNER JOIN RelNameQualifier On RelNameQualifier.RelNameQualifierId = RelName.RelNameQualifierFk " & _
" WHERE (((NameFrom.NameId)="& Request("NameId")& "))"
Set RRelTo = Server.CreateObject("ADODB.Recordset")
openRecordset RRelTo, SQL
While (NOt RRelTo.EOF)
%>
| <%=RRelTo("RelNameQualifier")& ":"%> |
">
<%=RRelTo("FullNameCache")%> |
<%
RRelTo.moveNext
WEnd
RRelTo.close
set RRelTo=Nothing
' ---------------------------- RELATED FROM ------------------------------------------------------------
'IS a name related to this name ?
SQL=" SELECT NameTo.NameId, NameFrom.NameId AS NameIdFrom, NameFrom.FullNameCache, RelName.RelNameQualifierFk relQualFk " & _
" FROM Name NameFrom INNER JOIN Name NameTo INNER JOIN RelName ON NameTo.NameId = RelName.NameFk2 ON NameFrom.NameId = RelName.NameFk1 " & _
" WHERE (((NameTo.NameId)="& Request("NameId")& "))"
Set RRelFrom = Server.CreateObject("ADODB.Recordset")
openRecordset RRelFrom, SQL
While (NOt RRelFrom.EOF)
%>
| <%=getNameRelation(RRelFrom("relQualFk"))& ":"%> |
">
<%=RRelFrom("FullNameCache")%> |
<%
RRelFrom.moveNext
WEnd
RRelFrom.close
set RRelFrom=Nothing
' ---------------------------- ACCORDING TAXA ------------------------------------------------------------
'
SQL=" SELECT Name.NameId , Reference.RefCache, Reference.RefId, Reference.volume " & _
" FROM Name INNER JOIN PTaxon ON Name.NameId = PTaxon.PTNameFk INNER JOIN Reference ON PTaxon.PTRefFk = Reference.RefId " & _
" WHERE ( (Name.NameId)="& Request("NameId")& ")"
Set RTaxa = Server.CreateObject("ADODB.Recordset")
openRecordset RTaxa, SQL
taxa = 0
While (Not RTaxa.EOF)
%>
<% if (taxa = 0 ) then
Response.write("| According Taxa: | ")
else
Response.write(" | ")
end if %>
<% if (RTaxa("volume")<>0) then %>
&PTRefFk=<%=RTaxa("RefId")%>">
<% else %>
&PTRefFk=<%=RTaxa("RefId")%>">
<% end if%>
<%="sec. " & RTaxa("RefCache")%>
|
<%
RTaxa.moveNext
taxa = taxa + 1
WEnd
RTaxa.close
set RTaxa=Nothing
'---------------------------NOTES----------------------------------------------------------------------------------------
'There are two type of notes here, the one from the potential taxon and the one from the name. Show them if there´s something inside
if NameA(7)<>"" then %>
| Name Notes: |
<%=NameA(7)%> |
<%end if%>
|
|
<%
'-----------END of NAME --------------------------------------------------------------------------------------------------------
%>
|
