<%
' Include file with specific project code to add at the end of the potential taxon view
' Parameters: Rptaxon("PTNameFk") --> integer with the NameId of the Potential Taxon.
' Rptaxon("PTRefFk") --> second part of the potential taxon primary key with the reference id
' Rptaxon("StatusFk") --> the status of the PTaxon, 1 accepted, 2 synonym, 3 unresolved
'
' Example of a connection to the database:
'----------------------------------------------------------------
' SQL="SELECT * FROM Name WHERE...."
' Set Rconn = Server.CreateObject("ADODB.Recordset")
' Rconn.ActiveConnection = MM_jun_STRING
' Rconn.Source = SQL
' Rconn.CursorType = 3
' Rconn.CursorLocation = 2
' Rconn.LockType = 1
' Rconn.Open()
' if Rconn.RecordCount > 0 then
' Response.write("| Example: | |
")
' While NOT Rconn.EOF
' Response.write("| "&Rconn("FactCategory")&": | "&Rconn("Fact")&" |
")
' Rfacts.Movenext
' Wend
' end if
'Rconn.close
'set Rconn=Nothing
'-----------------------------------------------------------------------------------------------------------------------
%>