    


Private Function SubCarSpeciali(ByVal testo As String) As String

        If testo <> "" Then
            testo = testo.Replace("", "&agrave;")
            testo = testo.Replace("", "&egrave;")
            testo = testo.Replace("", "&eacute;")
            testo = testo.Replace("", "&igrave;")
            testo = testo.Replace("", "&ograve;")
            testo = testo.Replace("", "&ugrave;")
            testo = testo.Replace("", "&Agrave;")
            testo = testo.Replace("", "&Egrave;")
            testo = testo.Replace("", "&Eacute;")
            testo = testo.Replace("", "&Igrave;")
            testo = testo.Replace("", "&Ograve;")
            testo = testo.Replace("", "&Ugrave;")
		testo = testo.Replace("&", "&amp;")
		testo = testo.Replace("<", "&lt;")
		testo = testo.Replace(">", "&gt;")
		testo = testo.Replace("", "&copy;")
		testo = testo.Replace("", "&deg;")
		testo = testo.Replace("", "&cent;")
		testo = testo.Replace("", "&divide;")
		testo = testo.Replace("", "&times;")
		testo = testo.Replace("", "&iquest;")


        End If

        Return testo

    End Function
    Public Function RepCarSpeciali(ByVal testo As String) As String

        If testo <> "" Then
            testo = testo.Replace("&agrave;", "")
            testo = testo.Replace("&egrave;", "")
            testo = testo.Replace("&eacute;", "")
            testo = testo.Replace("&igrave;", "")
            testo = testo.Replace("&ograve;", "")
            testo = testo.Replace("&ugrave;", "")
            testo = testo.Replace("&Agrave;", "")
            testo = testo.Replace("&Egrave;", "")
            testo = testo.Replace("&Eacute;", "")
            testo = testo.Replace("&Igrave;", "")
            testo = testo.Replace("&Ograve;", "")
            testo = testo.Replace("&Ugrave;", "")
		testo = testo.Replace("&amp;","&")
		testo = testo.Replace("&lt;","<" )
		testo = testo.Replace("&gt;",">" )
		testo = testo.Replace("&copy;","" )
		testo = testo.Replace("&deg;","" )
		testo = testo.Replace("&cent;","")
		testo = testo.Replace("&divide;","")
		testo = testo.Replace("&times;", "x")
		testo = testo.Replace("&iquest;","")
        End If

        Return testo

    End Function



