Originariamente inviato da Mems
codice:
dim elementi(2,1)
elementi(0,0) = "A"
elementi(0,1) = "a"
elementi(1,0) = "B"
elementi(1,1) = "b"
elementi(2,0) = "C"
elementi(2,1) = "c"

stringa = ciAo Come stAi? tutto Bene?"

for i = 0 to uBound(elementi)
stringa = replace(stringa,elementi(i,0),elementi(i,1)
next

response.write stringa
trucchetto interessante!!!