meledetto '

[celeronter]

Ho un problema con questo semplice codice, controllo se nel testo è presente uno dei caratteri indicati nelle array se il carattere è presente risponde carattere trovato
funziona tutto correttamente tranne per il carattere ' non restituisce nessun arrore, come posso fare ?

Grazie

text="l'altro"

testocont=UCase(text)
i=0
ArrPar=array ("@","?","%","€"," ","'",",")
for i=0 to ubound(ArrPar)
if instr(1,testocont,ArrPar(i))>0 then
response.WRITE "Attenzione Carattere Trovato"
end if

i=i+1
next

[byluciani]

<%
text="l'altro"

response.write text & "
"

ArrPar=array ("@","?","%","€"," ","'",",")

for i=0 to ubound(ArrPar)
  if instr(1,text,ArrPar(i))>0 then
    response.WRITE "Attenzione Carattere Trovato posizione: " & instr(1,text,ArrPar(i))
  end if
next
%>

[supergeniux]

text="l'altro"

testocont=UCase(text)
i=0
ArrPar=array ("@","?","%","€"," ","'",",")
for i=0 to ubound(ArrPar)
if instr(1,testocont,ArrPar(i))>0 then
response.WRITE "Attenzione Carattere Trovato"
end if

next

[byluciani]

però mi piace anche questa soluzione

<%
text="l'a'lt@r€o"

response.write text & "
"

ArrPar=array ("@","?","%","€"," ","'",",")

for j = 1 To Len(text)
  for i = 0 to ubound(ArrPar)
    If Mid(text, J, 1) = ArrPar(I) Then 
      response.WRITE "Attenzione: trovato carattere " & ArrPar(i) & " in  posizione: " & j & "
"
    end if
  next
next
%>

[celeronter]

Grazie mille così è perfetto!!!!