Rimpiazzare con caratteri speciali

[Gio&Ste]

In genere per rimpiazzare i caratteri speciali quando salvo del testo in un db faccio in questo modo:

strMessage = Replace(strMessage, "<", "&lt;", 1, -1, 1)

Il problema è come faccio a trasformare i " con &quot???
Se faccio così:

strMessage = Replace(strMessage, """, " & q u o t ; ", 1, -1, 1)

Mi genera il seguente errore:

Errore di compilazione di Microsoft VBScript (0x800A03EE)
Previsto ')'

P.S. Ho dovuto scriverlo così &quot altrimenti veniva interpreatato come "

[Sypher]

al posto dei doppi apici usa Chr(34)

[Gio&Ste]

Il testo non sono io a doverlo inserire e cmq scrivere sempre Ch(34) sarebbe fastidioso.

[Sypher]

strMessage = Replace(strMessage, Chr(34), " & q u o t ; ", 1, -1, 1)

non vedo perchè dovrebbe essere faticoso, se non fai così non ne uscirai mai!
fai te!
o forse non ho capito bene ciò di cui hai bisogno!

[Gio&Ste]

Si si è proprio questo quello di cui avevo bisogno.

Non avevo capito quello che mi stavi dicendo

[Shagrat]

Originariamente inviato da Sypher

strMessage = Replace(strMessage, Chr(34), " & q u o t ; ", 1, -1, 1)

non vedo perchè dovrebbe essere faticoso, se non fai così non ne uscirai mai!
fai te!
o forse non ho capito bene ciò di cui hai bisogno!

io penso che il buon sypher abbia ragionissima

[Gio&Ste]

Si si, chiedo umilmente scusa.
E' il fine settimana, sarà l'esame impellente?

Scusa Sypher