funzione Htmldecode e simbolo speciale

[agenti]

Function HTMLDecode(sText)
    Dim I
    sText = Replace(sText, """, Chr(34))
    sText = Replace(sText, "<"  , Chr(60))
    sText = Replace(sText, ">"  , Chr(62))
    sText = Replace(sText, "&" , Chr(38))
    sText = Replace(sText, "", Chr(32))
    
    For I = 1 to 255
        sText = Replace(sText, "&#" & I & ";", Chr(I))
    Next
    HTMLDecode = sText
End Function

response.write HTMLDecode("<Scrivi qualcosa qui&agrave&")

in questo modo ila funzione non ritorna nessun valore a video,
cambiando la stringa invece:

response.write HTMLDecode("Scrivi qualcosa qui&agrave&")
cosi funzia...

perchè mi chiedo ?

:master:

[Santino83_02]

controllato l'html se effettivcamente non stampi nulla?

[agenti]

scordo sempre che quella funzione non va...

	Function HTMLDecode(tmp)
	tmp = Replace( tmp, """, chr(34) )
	tmp = Replace( tmp, "<"  , chr(60) )
	tmp = Replace( tmp, ">"  , chr(62) )
	tmp = Replace( tmp, "&" , chr(38) )
	tmp = Replace( tmp, "", chr(32) )
	For i = 1 to 255
		tmp = Replace( tmp, "&#" & i & ";", chr( i ) )
	Next
	HTMLDecode = tmp
	End Function

[Santino83_02]

ma sono uguali

[agenti]

lo so ma stranamente questa funziona...
non chiedermi il perchè...

[dreaman74]

Ma questa linea non ti crea problemi? visto i 3 doppi apici?
sText = Replace(sText, """, Chr(34))

Almeno se leggo bene

[agenti]

no , nessun problema...

[dreaman74]

A me la tua ffunzione mi stampa a video qusto:
<Scrivi qualcosa quià&

Usando la chiamata:

response.write HTMLDecode("<Scrivi qualcosa qui&agrave&")

Non capisco perchè a te non stampi nulla!

[agenti]

ma quale delle due usi ?

[dreaman74]

ma scusa l'ignoranza, non riesco a capire questa riga:

sText = Replace(sText, """, Chr(34))

visto che si tratta di sostituire (")
e non ('')

comunque...