INVECE FUNZIONA SOLAMENTE CHE LA FUNZIONE instr COMPARA MAIUSCOLO E MINUSCOLO INFATTI SE SCRIVIAMO pippo pippa Testoprop passa ma se scriviamo PIPPO PIPPA siamo reinderizzati a pagina.asp.

codice:
Dim ArrPar, i, testoprop
TESTOPROP = Replace (Request.Form("TESTOPROP"),"'","''")
i=0
ArrPar = array("PIPPO","PIPPA","DEMENTE","DEMENTI")
for i=0 to ubound(ArrPar)
  if instr(1,testoprop,ArrPar(i))>0 then
    response.redirect "pagina.asp"
  end if
i=i+1
next
allora prima di confrontare dobbiamo trasformare tutto o in maiuscolo o in minuscolo con UCase o LCase pero se lo facciamo fuori dal ciclo se il testo passa la censura verra scritto tutto maiuscolo o tutto minuscolo e non vogliamo questo come dobbiamo fare???

se passa la censura possiamo ridefinire una seconda volta testoprop con TESTOPROP = Replace (Request.Form("TESTOPROP"),"'","''")
no forse é meglio creare una variabile testoprop solo per il controllo proviamo



arturo juciara

www.brasile-natal.com