Replace "?

Hur gör man för att göra en Replace så teckenet " blir "?

Har försökt med detta:

Function kontroll(text)
Text = TRIM(Text)
Text = server.HTMLEncode(Text)

Text = replace(Text, """, """)
	
	
Response.Write text

End Function

Men får detta fel mess:
Microsoft VBScript compilation error '800a0409'

Unterminated string constant

Text = replace(Text, """, """)
------------------------------^

Jag förstår att man inte kan ha " mellan själva replacen så hur skulle man smidigt lösa detta?

Antar attd et är enkelfnuttar du vill byta ut till? alltså två '

Text = replace(Text, """", "''")

Nej jag vill byta ut " till "

Varför vill du byta ut ett citattcken till ett citattecken? Känns rätt dumt att byta ut nått till samma sak lixom

Annars funkar inte Javascriptet.

*ops

Såhär då kanske?

Function kontroll(text)
Text = TRIM(Text)
Text = server.HTMLEncode(Text)
Text = replace(Text, """", "'")
Response.Write text
End Function

Men det är ju samma tecken du vill byta till?

Löste det med

Replace(Rs("texten"),"""","& quot;")

Fast & quot; ihop

Ahh såg att det gjorde om koden & q uot; (fast ihop ska det ju vara. :)

Aha, då är jag med ;)

Tackar för hjälpen är jag som är trött och missade o kolla mina inlägg :)

Heh. Jag med. :)