Dream1702

Fala pessoal
Acontece que eu coloquei para negritar os resultados negritados em minha busca, quando eu procuro por uma palavra ele negrita normalmente os resultados.

Agora...
Se eu procurar por duas palavras ele não negrita nenhum das duas palavras no resultado.Um colega do forum disse que devo criar uma Matriz e fazer o replace usando essa matriz, mas eu não sei nada de matriz.O codigo que se diz respeito ao negritar é esta abaixo:

[codebox]Response.Write vbCrLf & " " & Replace (rsSearchResults("Description"), strSearchKeywords, "<b>" & strSearchKeywords & "</b>", 1, -1, 1)[/codebox]

Muito obrigado

Oi pessoal será que vcs podem me ajudar?
Eu estava com uma duvida esses tempos atrás, eustou modificando algumas coisas num sistema de busca .Mas deu um probleminha.Quando estava com esse codigo abaixo se eu digitasse de ele retornava pra mim resultados como desodorante, diadema ou seja ele pegava tudo:

'Procurarar pela primeira palavra de busca nos títulos do URL        strSQL = strSQL & "WHERE Title LIKE '%" & sarySearchWord(0) & "%'"        'Dar laços para procurarar por cada palavra de busca incorporada pelo usuário        For intSQLLoopCounter = 0 To UBound(sarySearchWord)        strSQL = strSQL & " OR Title LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'"        strSQL = strSQL & " OR Keywords LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'"        strSQL = strSQL & " OR Description LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'"        Next

Ai graças a um colega eu até consegui resolver ele me passou o seguinte código (repare que tem um espaço antes % e no final tbm tem o espaço)e com esse código funcionou certinho se eu digito por exemplo : na ele retorna apenas resultados como >A muitas motos na cidade de sao paulo

'Procurarar pela primeira palavra de busca nos títulos do URL        strSQL = strSQL & "WHERE Title LIKE '% " & sarySearchWord(0) & " %'"        'Dar laços para procurarar por cada palavra de busca incorporada pelo usuário        For intSQLLoopCounter = 0 To UBound(sarySearchWord)        strSQL = strSQL & " OR Title LIKE '% " & sarySearchWord(intSQLLoopCounter) & " %'"        strSQL = strSQL & " OR Keywords LIKE '% " & sarySearchWord(intSQLLoopCounter) & " %'"        strSQL = strSQL & " OR Description LIKE '% " & sarySearchWord(intSQLLoopCounter) & " %'"        Next

Mas com esse código parou de pegar um monte de palavras chaves , eu não sei o que fazer mais ja tentei sem espaço na frente e espaço depois sem espaço e nada se alguem ja passou por algo assim e puder ajudar muito obrigado.

Problema resolvido!! Solução no própprio tópico


Oi pessoal estou com um probleminha aki aacho que deve ser bobeira mas eu to passando sufoco.
Eu estou colocando um sistema de busca em meu site, mas eu queria que além dele pesquisar no meu site queria um JUMP MENU que fizesse a pessoa escolher em qual site buscar, ex:
Se a pessoa selecionar google no jump ele pesquisa no google se selecionar yahoo pesquisa no yahoo e se buscar no meu pesquisa no meu.
O código de como esta meu buscar:

<form method="get"name="frmInterSearch"action="defaultt.asp"><table cellpadding="0" cellspacing="0" width="100%" align="center"><tr><td width="21" valign="top" class="normal"></a> </td> <td width="716" height="24" align="left" valign="middle" class="normal"><p><input type="TEXT" name="search" maxlength="50" size="31" value=""><input type="hidden" name="mode" value="anywords" checked="checked" /><input type="submit" value="Buscar" name="submit">      </p></td></tr></table></form>

Seria possivel colocar essa ação do começo do código em uma variável? Para colocar no value do jump menu ?
Ou outra solução é melhor?
Muito obrigado mais uma vez pessoal.

Oi pessoal preciso de uma ajuda.
Eu consegui um codigo de busca na net porém nao consigo deixar em negrito as palavras que a pessoa digitar (igual ao google)

Exemplo: Se a pessoa digitar Carro ou CARRO ou carro ele pega a palvra e na descrição aparece todos os Carros em negrito.
Ai em baixo segue a parte do codigo que imprime no html.

Muito obrigado mesmo pessoal

'Tabela do HTML para indicar os resultados da busca ou um erro se não houver nenhum resultado
Response.Write vbCrLf & " <br>" & vbCrLf
Response.Write vbCrLf & " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">"
Response.Write vbCrLf & " <tr>"
Response.Write vbCrLf & " <td bgcolor=""#F1FAFC"" class=""text"">"

'Indicar a mensagem de erro se uma das palavras for ao short
If blnSearchWordLenthOK = False And NOT Request.QueryString("mode") = "new" Then

'Escrever o HTML que indica o erro
Response.Write vbCrLf & " Sua pesquisa por <span class=""bold"">" & strSearchKeywords & "</span> não encontrou resultados."
Response.Write vbCrLf & " <br><br>"
Response.Write vbCrLf & " Dicas:"
Response.Write vbCrLf & " <br>"
Response.Write vbCrLf & " <ul><li>Experimente usar palavras com o mesmo significado.<li>A palavra foi digitada corretamente?<li>Use palavras mais geréricas.<li>Faça sua pesquisa pelo setor que deseja encontrar.</ul>"

'Se nenhum resultado da busca encontrado então mostrar uma mensagem de erro
ElseIf rsSearchResults.EOF Then

'Escrever o HTML que indica o erro
Response.Write vbCrLf & " Sua pesquisa por <span class=""bold"">" & strSearchKeywords & "</span> não encontrou resultados."
Response.Write vbCrLf & " <br><br>"
Response.Write vbCrLf & " Dicas:"
Response.Write vbCrLf & " <br>"
Response.Write vbCrLf & " <ul><li>A palavra foi digitada corretamente?<li>Experimente usar palavras com o mesmo significado.<li>Use palavras mais geréricas.<li>Faça sua pesquisa pelo setor que deseja encontrar.</ul>"

Else
'Para....Laço seguinte para indicar os resultados da base de dados
For intRecordLoopCounter = 1 to intRecordsPerPage

'Se houver nenhum registro à esquerda a indicar então retira o laço
If rsSearchResults.EOF Then Exit For

'Indicar os detalhes do URLs encontrado

Response.Write vbCrLf & " <a href=""get_url.asp?SiteID=" & CInt(rsSearchResults("SiteIDNo")) & """ target=""_blank"">" & rsSearchResults("Title") & "</a>"
Response.Write vbCrLf & " <br>"
Response.Write vbCrLf & " " & rsSearchResults("Description")
Response.Write vbCrLf & " <br>"
Response.Write vbCrLf & " <span class=""site"">" & Replace(rsSearchResults("URL"), "http://", "") & "</span>"
Response.Write vbCrLf & " <br><br>"

'Mover-se para o registro seguinte na base de dados
rsSearchResults.MoveNext

'Círculo traseiro do laço
Next
End If

'Fechar a tabela do HTML que indica os resultados
Response.Write vbCrLf & " </td>"
Response.Write vbCrLf & " </tr>"
Response.Write vbCrLf & " </table>"



Valeuuu

Oi pessoal tudo bem ?

Será que vcs poderiam me ajudar?
Eu estou fazendo um site para um amigo e ele pediu que eu colocasse uma busca, eu até encontrei um código que deu certo,
o problema tah no BD que é .js , o js é esse codigo a baixo:

item[item.length]=new Array("http://www.sitedocan...tulo","palavras chaves","descrição");


Eu queria saber se tem como eu utilizar um sistema tipo o do google yahoo uma página onde colocasse a "url" "titulo" "palavras chaves" "descrição" e gerasse altomaticamente, dentro do codigo do js.
Eu quase consegui com aquele sistema de abrir o arquivo e gravar mais como sei muito pouco nao deu.

Muito Obrigado pessoal!!