Hon un problema con questa ricerca SQL:
SQL = "SELECT DISTINCT TOP 300 * FROM Tabella_siti "
SQL = SQL & "WHERE ("
if left(lcase(KeywordArray(j)),5) = "link:" then
if Instr(1,lcase(KeywordArray(j)),"http://") then
SQL = SQL & "Tabella_siti.URL LIKE '%" & right(lcase(KeywordArray(j)),len(KeywordArray(j)) - 5) & "%'"
else
SQL = SQL & "Tabella_siti.URL LIKE '%http://" & right(lcase(KeywordArray(j)),len(KeywordArray(j)) - 5) & "%'"
end if
else
if len(tempkeyword) > 0 then
for j = lbound(KeywordArray) to ubound(KeywordArray)
if request.form("type") = "EX" then
SQL = SQL & "Tabella_siti.Titolo = '" & CheckString(KeywordArray(j)) & "'"
else
SQL = SQL & "Tabella_siti.Titolo LIKE '%" & CheckString(KeywordArray(j)) & "%'"
end if
if j <> ubound(KeywordArray) then
SQL = SQL & " AND "
end if
next
else
SQL = SQL & "Tabella_siti.Titolo LIKE '%%'"
end if
SQL = SQL & " OR "
if len(Tempkeyword) > 0 then
for j = lbound(KeywordArray) to ubound(KeywordArray)
if request.form("type") = "EX" then
SQL = SQL & "Tabella_siti.Descrizione = '" & CheckString(KeywordArray(j)) & "'"
else
SQL = SQL & "Tabella_siti.Descrizione LIKE '%" & CheckString(KeywordArray(j)) & "%'"
end if
if j <> ubound(KeywordArray) then
SQL = SQL & " AND "
end if
next
else
SQL = SQL & "Tabella_siti.Titolo LIKE '%%'"
end if
SQL = SQL & " AND "
if len(Tempkeyword02) > 0 then
for j = lbound(KeywordArray) to ubound(KeywordArray)
if request.form("type") = "EX" then
SQL = SQL & "Tabella_siti.Provincia = '" & CheckString(KeywordArray(j)) & "'"
else
SQL = SQL & "Tabella_siti.Provincia LIKE '%" & CheckString(KeywordArray(j)) & "%'"
end if
if j <> ubound(KeywordArray) then
SQL = SQL & " AND "
end if
next
else
SQL = SQL & "Tabella_siti.Titolo LIKE '%%'"
end if
end if
SQL = SQL & ")"
Mi fa la ricerca con tempkeyword (che fa riferimento ai campi titolo e descrizione) ma mi esclude tempkeyword02 (che fa riferimento al campo provincia). Non riesco ha capire che errore c'è nella condizione.

Rispondi quotando
