
<%
' relation qualifier names
Function getNameRelation(relQualId )
	Select Case relQualId
    Case "1"
        getNameRelation = "Basionym"
    Case "2"
        getNameRelation = "Later homonym"
    Case "3"
        getNameRelation = "Replaced synonym"
    Case "4"
        getNameRelation = "Validation"
     Case "16"
        getNameRelation = "Orthographic variant"
    Case Else
        getNameRelation = "Unknown name relation"
    End Select
End Function

Function replaceSpecialCharacter(strR)
	Dim result
	result = "" 
	result = strR
	result=Replace(result, "a", "[aãåâ]")
	result=Replace(result, "e", "[eë]") 'éèêë]")
	result=Replace(result, "i", "[iíìîï]")
	result=Replace(result, "o", "[oóòôöø]")
	result=Replace(result, "u", "[uúùûü]")
	
	result=Replace(result, "c", "[cćĉċčç]")
	result=Replace(result, "n", "[nñń]")
	result=Replace(result, "l", "[lł]")
	result=Replace(result, "s", "[sßśŝşš]")
	result=Replace(result, "S", "[sßśŝşš]")
	result=Replace(result, "r", "[rř]")
	result=Replace(result, "t", "[tţ]")
	replaceSpecialCharacter = result
End Function


%>