<? 
// 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("<TR><TD width=""16""" valign=""top""><STRONG>Example:</STRONG></TD><TD>&nbsp;</TD></TR>")
//		While NOT Rconn.EOF
//			Response.write("<TR><TD width=""16""" valign=""top""><i>"&Rconn("FactCategory")&":</i></TD><TD>"&Rconn("Fact")&"</TD></TR>")
//			Rfacts.Movenext
//		Wend
//	end if  
//Rconn.close
//set Rconn=Nothing
//-----------------------------------------------------------------------------------------------------------------------
?>