non mi funziona l'if then

[Jacqui]

SQL = " SELECT * FROM tabella WHERE (Titolo LIKE '%"&FRASE&"%'"
fraseS = Split(FRASE, " ")
if Ubound(fraseS) > 0 then
for i = 0 to Ubound(fraseS)
if leggiparole(fraseS(i)) then SQL = SQL & " OR Titolo LIKE '%"& fraseS(i)&"%'"
next
end if
SQL = SQL & ")"

la funzione leggiparole verifica se la parola fraseS(i) è contenuta in un DB delle parole non consentite.
se la porola E'consentita aggiunge un pezzo di SQL
se la parola NON E' consentita non dovrebbe aggiungere nulla invece aggiunge

OR Titolo LIKE '%%'

potete aiutarmi?? come mai sene frega dell' if ed aggiunge comunque la ricerca di "nulla"??

[Mems]

leggiParole è una funzione?
La possiamo vedere?

[Jacqui]

la funzione funziona... scusate il giro di parole
cmq eccola

'---Funzione leggi parolacce
	Function LeggiParole(ParolaS)
		Set RSlp = Server.CreateObject("ADODB.RecordSet")
			sqlquery = "select "
			sqlquery = sqlquery & "* "
			sqlquery = sqlquery & "from "
			sqlquery = sqlquery & "BadWords "
			sqlquery = sqlquery & "where "
			sqlquery = sqlquery & "[Parola] = " & "'" & ParolaS & "'"
		RSlp.Open sqlquery, Cnn, 1
		if NOT RSlp.EOF then
                        ' la parola e bad
			LeggiParole = False
		else
                        ' la parola va bene
			LeggiParole = True
		end if
		sqlquery=""
		RSlp.Close
	End Function

[Mems]

La funzione sembra ok.

SQL = " SELECT * FROM tabella WHERE (Titolo LIKE '%"&FRASE&"%'"
fraseS = Split(FRASE, " ")
if Ubound(fraseS) > 0 then
for i = 0 to Ubound(fraseS)
 if len(fraseS(i)) > 0 then
  if leggiparole(fraseS(i)) then SQL = SQL & " OR Titolo LIKE '%"& fraseS(i)&"%'"
 end if
next
end if
SQL = SQL & ")"

[Jacqui]

perchè allora non mi considera l' IF??

se la parola và saltata comunque mi aggiunge

OR Titolo LIKE '%%'

in effetti salta la perola prchè mette %% ma dovrebbe proprio saltare l'aggiunta non solo la parola!!!

[Jacqui]

scusate l'UP ma mi preme risolvere!

[Mems]

Ma ti mette tutte le parole in quel modo, ovvero, non te ne mette nemmeno una nella query, o solo alcune?

[Mems]

A me funziona.
Ho provato il tuo esempio.
Mi sono fatto un db con una tabella dove ho messo come parole non ammesse pippo e ciao:

<%
	Function LeggiParole(ParolaS)
		Set RSlp = Server.CreateObject("ADODB.RecordSet")
			sqlquery = "select "
			sqlquery = sqlquery & "* "
			sqlquery = sqlquery & "from "
			sqlquery = sqlquery & "BadWords "
			sqlquery = sqlquery & "where "
			sqlquery = sqlquery & "[Parola] = " & "'" & ParolaS & "'"
		RSlp.Open sqlquery, Cnn, 1
		if NOT RSlp.EOF then
                        ' la parola e bad
			LeggiParole = False
		else
                        ' la parola va bene
			LeggiParole = True
		end if
		sqlquery=""
		RSlp.Close
	End Function

FRASE = "ciao pippo come va?"

set cnn = server.createObject("ADODB.Connection")
cnn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("\database\test.mdb")

SQL = " SELECT * FROM tabella WHERE (Titolo LIKE '%"&FRASE&"%'"
fraseS = Split(FRASE, " ")
if Ubound(fraseS) > 0 then
for i = 0 to Ubound(fraseS)
 if len(fraseS(i)) > 0 then
  if leggiparole(fraseS(i)) then SQL = SQL & " OR Titolo LIKE '%"& fraseS(i)&"%'"
 end if
next
end if
SQL = SQL & ")"

response.write sql

cnn.close
set cnn = nothing
%>

e questo è il risultato della sql:

SELECT * FROM tabella WHERE (Titolo LIKE '%ciao pippo come va?%' OR Titolo LIKE '%come%' OR Titolo LIKE '%va?%')

[Tote]

Scusa Jacqui...usi il codice che ha postato Mems?...ho notato che quello che hai scritto all'inizio è privo di un "end if" alla riga 6. Controlla!!

ciao

[Jacqui]

[QUOTE]Originariamente inviato da Jacqui

SQL = " SELECT * FROM tabella WHERE (Titolo LIKE '%"&FRASE&"%'"
fraseS = Split(FRASE, " ")
if Ubound(fraseS) > 0 then
for i = 0 to Ubound(fraseS)
if leggiparole(fraseS(i)) then SQL = SQL & " OR Titolo LIKE '%"& fraseS(i)&"%'"
next
end if
SQL = SQL & ")"

qui ?? ----> if leggiparole(fraseS(i)) then SQL = SQL & " OR Titolo LIKE

non serve...