Controllo contenuto variabile

[pegaso22]

Ciao a tutti,
come si fa il controllo di un termine all'interno di una variabile?
Praticamente se lo imposto così mi accetta la condizione solo se la variabile è uguale al termine di confronto. Io vorrei che la condizione sia vera anche se il termine è all'interno della variabile.

if (prova = "PIPPO") then
  a="SI"
end if

fare tipo: * prova * = ...


Come è la sintassi giusta in asp?

Fatemi sapere.
Grazie mille.

[optime]

devi usare INSTR

[fero]

se ho capito bene ti interessa sapere se una variabile è contenuta in una stringa...

devi usare l'instr

if instr(prova,"PIPPO")>0 then
  'entri se dentro la variabile prova è contenuta la stringa : pippo
end if

if instr("PIPPO",prova)>0 then
  'entri se la variabile prova è contenuta nella stringa : pippo
end if

[pegaso22]

Come mai così non mi funziona?

Dim controllo(3)
controllo = Array("PIPPO","PLUTO","PAPERINO")

SALVARE = "SI"
for x = 0 to 2
	if (instr(Cnome,controllo[x]) > 0)
		SALVARE = "NO"
	then
next 

for x = 0 to 2
	if instr(Ccitta,controllo[x]) > 0
		SALVARE = "NO"
	then
next

for x = 0 to 2
	if instr(Cmessaggio,controllo[x]) > 0
		SALVARE = "NO"
	then
next

Mi da questo errore:
Microsoft VBScript compilation error '800a03ee'
Expected ')'

Anche modificando mi da errore:

for x = 0 to 2
             confronto = controllo[x]
	if (instr(Cnome,) > 0)
		SALVARE = "NO"
	then
next

Dove sto sbagliando?

[fero]

io scriverei

Dim controllo(3)
controllo = Array("PIPPO","PLUTO","PAPERINO")

SALVARE = "SI"
for x = 0 to 2
	if instr(Cnome,controllo(x)) > 0)
		SALVARE = "NO"
                          exit for
	then
	if instr(Ccitta,controllo(x)) > 0
	            SALVARE = "NO"
                         exit for
	then
	if instr(Cmessaggio,controllo(x)) > 0
		SALVARE = "NO"
                          exit for
	then
next

[pegaso22]

Ok, stavo sbagliando io!!
ora però mi da questo errore... forse è fuori discussione però..

Dim controllo(3)
controllo = Array("PIPPO","PLUTO","PAPERINO")

mi da questo errore:
Microsoft VBScript runtime error '800a000d'

Type mismatch



Cosa sto sbagliando?

[santino83_11_04]

Dim controllo
controllo = Array("PIPPO","PLUTO","PAPERINO")