
<%

' coutry names
Function getAreaString(area, bool, st )
	result = ""
	i = 0
	for each ar in area
		if ar <> "" then
			bo = ""
			if bool(i) = "AND" then 
				bo = " ^ "
			elseif bool(i) = "OR" then 
				bo = " v "
			elseif bool(i) = "NOT" then 
				bo = " ^ not "
			end if
			If bool(i) = "AllNot" then 
				result = "[ " & result & " ] ^ not " & ar
			else
				result = result & bo & ar
			End if
			s=""
			
			'if st(i) = "e" then
			'	s = "E"
			'elseif st(i) = "n" then
			'	s="X"
			'end if
			if st(i) = "+" then
				s = ""
			elseif st(i) = "-" then
				s="-"
			elseif st(i) = "?" then
				s="?"
			elseif st(i) = "D" then
				s="d"
			elseif st(i) = "E" then
				s="†"
			elseif st(i) = "A" then
				s="a"
			elseif st(i) = "N" then
				s="n"
			elseif st(i) = "P" then
				s="p"
			end if
			
			
			if s <> "" then
				result = result & "(" & s & ")"
			end if
		end if
		i = i + 1 
	next
	getAreaString = trim(result)
End Function

' coutry names
Function getCountryName(cName )
	Select Case cName
    Case "Lu"
        getCountryName = "Portugal (Lu)"
    Case "Hs"
        getCountryName = "Spain (Hs)"
    Case "Bl"
        getCountryName = "Balearic Islands (Bl)"
    Case "Ga"
        getCountryName = "France (Ga)"
    Case "Co"
        getCountryName = "Corsica (Co)"
    Case "Sa"
        getCountryName = "Sardinia (Sa)"
    Case "Me"
        getCountryName = "Malta (Me)"
    Case "Si"
        getCountryName = "Sicily (Si)"
    Case "It"
        getCountryName = "Italy (It)"
    Case "Ju"
        getCountryName = "Jugoslavia (Ju)"
    Case "Al"
        getCountryName = "Albania (Al)"
    Case "Bu"
        getCountryName = "Bulgaria (Bu)"
    Case "RK"
        getCountryName = "Crimea (RK)"
    Case "Gr"
        getCountryName = "Greece (Gr)"
    Case "Cr"
        getCountryName = "Crete and Karpathos (Cr)"
    Case "AE"
        getCountryName = "East Aegean Islands (AE)"
    Case "Tu"
        getCountryName = "Turkey-in-Europe (Tu)"
    Case "An"
        getCountryName = "Asiatic Turkey (An)"
    Case "Cy"
        getCountryName = "Cyprus (Cy)"
    Case "LS"
        getCountryName = "Lebanon and Syria (LS)"
    Case "IJ"
        getCountryName = "Israel and Jordan (IJ)"
    Case "Sn"
        getCountryName = "Sinai (Sn)"
    Case "Eg"
        getCountryName = "Egypt (Eg)"
    Case "Li"
        getCountryName = "Libya (Li)"
    Case "Tn"
        getCountryName = "Tunisia (Tn)"
    Case "Ag"
        getCountryName = "Algeria (Ag)"
    Case "Ma"
        getCountryName = "Morocco (Ma)"
    Case Else
        getCountryName = "unknown abbreviation in database"
    End Select
End Function

Function writeOccuranceType (str)
	SELECT CASE str 
	CASE "+"
		Response.Write("present as native")
	CASE "-"
		Response.Write("absent but reported in error")
	CASE "?"
		Response.Write("doubtfully present")
	CASE "A"
		Response.Write("casual alien")
	CASE "D"
		Response.Write("doubtfully native")
	CASE "E"
		Response.Write("(presumably) extinct")
	CASE "N"
		Response.Write("naturalized")
	CASE "P"
		Response.Write("perhaps not native")
	Case Else
		Response.Write("ERROR: WRONG OCCURANCE ABBEVIATION" )
	END SELECT
End Function

Sub writeOcFact (strOcFact)
	if isNull(strOcFact) Or strOcFact = null then
		 exit Sub
	end if
	if len(strOcFact) <>3 then
		 Response.Write("ERROR: WRONG FACT SIZE :" & str & ":" & strOcFact)
		 exit Sub
	end if
	
	strCountry = left(strOcFact, 2)
	strState = right(strOcFact,1)
	 
	SELECT CASE strState 
	CASE "+"
		Response.Write(strCountry)
	CASE "-"
		Response.Write("(-" & strCountry & ")")
	CASE "?"
		Response.Write("?" & strCountry )
	CASE "A"
		Response.Write("[A" & strCountry & "]")
	CASE "D"
		Response.Write("[?" & strCountry & "]")
	CASE "E"
		Response.Write("[†" & strCountry & "]")
	CASE "N"
		Response.Write("[" & strCountry & "]")
	CASE "P"
		Response.Write("[P" & strCountry & "]")
	Case Else
		Response.Write("ERROR: WRONG OCCURANCE ABBEVIATION :" & str & ":" & strOcFact)
	END SELECT
	exit sub
error_trap:
	Response.Write("ERROR")
	exit sub
End Sub
%>