SQL="select ("
ArrSearch = Split(strSearch)
for each Words In ArrSearch
words = trim(words)
sql = sql &" IF (INSTR(description,words)>0, 5, 0) + "
sql = sql &" IF (INSTR(title,words)>0, 5, 0) + "
sql = sql &" IF (INSTR(keywords,words)>0, 5, 0) "
Next
sql = sql &") AS Relevance"
sql = sql &" from data where description = '"& StrSearch &"' OR testopag = '"& StrSearch &"'"
ArrSearch = Split(strSearch)
for each Word In ArrSearch
word = trim(word)
if len(word) > min then
sql = sql & " OR description like '%" & word & "%'"
sql = sql & " or keywords like '%" & word & "%'"
sql = sql & " or title like '%" & word & "%'"
sql = sql & " or url like '%" & word & "%'"
sql = sql & " or testopag like '%" & word & "%'"
end if
Next
sql = sql & " ORDER by Relevance DESC"