funzione Htmldecode e simbolo speciale

[agenti]

come lo sostituisci il doppio apice ?

[dreaman74]

prova questo.
Spero di aver capito:

<%
Function HTMLDecode(sText)
    Dim I
    sText = Replace(sText, CHR(34), "''")
    sText = Replace(sText, "&lt;"  , Chr(60))
    sText = Replace(sText, "&gt;"  , 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

IF len(request.form("TESTO")) > 0 THEN
	'response.write ("Testo formattato: " & HTMLDecode("&lt;Scrivi qualcosa qui&agrave&"))
	response.write ("Testo formattato: " & HTMLDecode(request.form("TESTO")) & "
")
	response.write ("inserisci testo")
ELSE
	With Response
	.write ("<form method=""post"">")
	.write ("<input type=""text"" name=""testo"">")
	.write ("<input type=""submit"" name=""submit"" value=""submit"">")
	.write ("</form>")
	End With
END IF
%>

Fammi sapere, ciao.

[dreaman74]

Ma prendi i dati dalla query? intendo dire tramite GET? ovvero dalla stringa che appare nell'url?

[agenti]

prendo i dati dalla query, ma dammi il tempo di testarla.

[dreaman74]

Comunque prova questa Funzione HTMLDecode, io sono incasinatissimo, é una regular Expression.

Appena posso do un'okkiata. ciao

Function URLDecode(sDec)
dim objRE
set objRE = new RegExp
sDec = Replace(sDec, "+", " ")
objRE.Pattern = "%([0-9a-fA-F]{2})"
objRE.Global = True
URLDecode = objRE.Replace(sDec, GetRef("URLDecodeHex"))
End Function

'// Replacement function for the above
Function URLDecodeHex(sMatch, lhex_digits, lpos, ssource)
URLDecodeHex = chr("&H" & lhex_digits)
End Function