Deixar resultado da busca em negrito

[dream1702 0]

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 resultadoResponse.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 erroElseIf 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 encontradoResponse.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 NextEnd If'Fechar a tabela do HTML que indica os resultados Response.Write vbCrLf & " </td>"Response.Write vbCrLf & " </tr>"Response.Write vbCrLf & " </table>"

 

 

Valeuuu

[jrcardozo 4]

utilize o replacetexto="Esse é um texto para teste de busca colocando em negrito"palavra="teste"response.write(replace(texto,palavra,"<b>"&palavra&"</b>"))

[dream1702 0]

utilize o replacetexto="Esse é um texto para teste de busca colocando em negrito"palavra="teste"response.write(replace(texto,palavra,"<b>"&palavra&"</b>"))

O Jonathanj' valeu mas não estou conseguindo entender.Eu vou ter que colocar todas palavras nesse replace?Se você puder mostrar um exemplo com o codigo acima agradeço.Eu acho que é nessa parte que deve ser usado:'Indicar os detalhes do URLs encontradoResponse.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>"Muito obrigado pela atenção

[Isaac Schwartzman 0]

Olá dream1702.Faça um backup de seu código antigo e substitua por esse novo veja se é isso?

'Tabela do HTML para indicar os resultados da busca ou um erro se não houver nenhum resultadoResponse.Write vbCrLf & " <br>" & vbCrLfResponse.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 shortIf blnSearchWordLenthOK = False And NOT Request.QueryString("mode") = "new" Then'Escrever o HTML que indica o erroResponse.Write vbCrLf & " Sua pesquisa por <strong>" & strSearchKeywords & "</strong> 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 erroElseIf rsSearchResults.EOF Then'Escrever o HTML que indica o erroResponse.Write vbCrLf & " Sua pesquisa por <strong>" & strSearchKeywords & "</strong> 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 dadosFor intRecordLoopCounter = 1 to intRecordsPerPage'Se houver nenhum registro à esquerda a indicar então retira o laçoIf rsSearchResults.EOF Then Exit For'Indicar os detalhes do URLs encontradoResponse.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 & " <strong>" & Replace(rsSearchResults("URL"), "http://", "") & "</strong>"Response.Write vbCrLf & " <br><br>"'Mover-se para o registro seguinte na base de dadosrsSearchResults.MoveNext'Círculo traseiro do laçoNextEnd If'Fechar a tabela do HTML que indica os resultadosResponse.Write vbCrLf & " </td>"Response.Write vbCrLf & " </tr>"Response.Write vbCrLf & " </table>"

Espero ter ajudado.

[dream1702 0]

Oi Isaac SchwartzmanObrigado pela atenção mas infelizmente nao deu certo.Sabe o google? tem uma parte que mostra o site em baixo da descrição(na cor verde), no meu tbm tem isso e aonde e verde ficou tudo em negrito.Obrigado

[Isaac Schwartzman 0]

Oi Isaac SchwartzmanObrigado pela atenção mas infelizmente nao deu certo.Sabe o google? tem uma parte que mostra o site em baixo da descrição(na cor verde), no meu tbm tem isso e aonde e verde ficou tudo em negrito.Obrigado

Então acho que você não me deixou muito claro o que exatamente quer, me passe um exemplo e o fonte por aqui.

[dream1702 0]

Oi isaac Obrigado pela atenção mais uma vez.

Olha o que eu estou querendo é praticamente o que esse Rafael conseguiu fazer nesse link mas eu nao estou conseguindo usar no meu código.

 

http://forum.wmonline.com.br/lofiversion/i...hp/t123387.html

 

Vou mandar o código inteiro talvez eu mandei a parte errada muito obrigado mesmo :

 

Dim rsSearchResults 'variável de Recordset da base de dados

Dim intRecordPositionPageNum 'Prende a posição record

Dim intRecordLoopCounter 'Contador do laço para indicar os registros da base de dados

Dim lngTotalRecordsFound 'Prende o número total dos registros na base de dados

Dim lngTotalNumPages 'prende o número total das páginas na base de dados

Dim intLinkPageNum 'Prende o número de página a ser ligado a

Dim intLoopCounter 'Prende o número do contador do laço

Dim sarySearchWord 'Prende os keywords para o URL

Dim strSearchKeywords 'Prende os keywords a ser procurarados

Dim intSQLLoopCounter 'Dar laços contra para o laço para a pergunta do sql

Dim intSearchWordLength 'Prende o comprimento da palavra a ser procurarada

Dim blnSearchWordLenthOK 'Jogo booleano a falso se o comprimento de palavra da busca não for APROVADO

Dim intRecordDisplayFrom 'Prende o número do resultado da busca que a página está indicada de

Dim intRecordDisplayedTo 'Prende o número do resultado da busca que a página está indicada a

 

 

'Se isto for a primeira vez a página está indicada então a posição da página está ajustada para paginar 1

If Request.QueryString("PagePosition") = "" Then

intRecordPositionPageNum = 1

 

'A página foi indicada mais antes que o postion da página esteja ajustado assim ao número de posição Record

Else

intRecordPositionPageNum = CInt(Request.QueryString("PagePosition"))

End If

 

 

'Ler dentro todas as palavras de busca em uma variável

strSearchKeywords = Trim(Request.QueryString("search"))

 

'Se o uso não incorporar um valor então deixar a variável das palavras de busca conter um espaço (chr10)

If strSearchKeywords = "" Then strSearchKeywords = chr(10)

 

'Substituir menos do que ou mais grande do que sinais com o equivalente do HTML (os batentes povoam Tag entrando do HTML)

strSearchKeywords = Replace(strSearchKeywords, "<", "<")

strSearchKeywords = Replace(strSearchKeywords, ">", ">")

strSearchKeywords = Replace(strSearchKeywords, "'", "''")

 

'Ler dentro as palavras de busca a ser procuraradas

sarySearchWord = Split(Trim(strSearchKeywords), " ")

 

'Retornar o '' do reboque para trás ao one para indicar na tela

strSearchKeywords = Replace(strSearchKeywords, "''", "'")

 

 

'Initalise a variável do comprimento da busca da palavra

blnSearchWordLenthOK = True

 

'Dar laços round para certificar-se de que cada palavra a ser procurarada tenha mais do que o comprimento de palavra mínimo a ser procurarado

For intLoopCounter = 0 To UBound(sarySearchWord)

 

'Inicializar a variável do intSearchWordLength com o comprimento da palavra a ser procurarada

intSearchWordLength = Len(sarySearchWord(intLoopCounter))

 

'Se o comprimento de palavra a ser procurarado fosse menos do que ou o igual ao comprimento de palavra mínimo ajustou então o blnWordLegthOK a falso

If intSearchWordLength <= intMinuiumSearchWordLength Then

blnSearchWordLenthOK = False

End If

Next

 

 

'Criar um objectfalse do recordset

Set rsSearchResults = Server.CreateObject("ADODB.Recordset")

 

 

'Initalise a variável do strSQL com uma indicação do SQL para perguntar a base de dados

strSQL = "SELECT tblWebsites.* FROM tblWebsites "

 

'Começar a modalidade decidir-se como nós estamos indo ao buid a pergunta do SQL

Select Case Request.QueryString("mode")

 

'Se o usuário selecionar para procurarar algum intalise das palavras então a indicação do strSQL para procurarar por quaisquer palavras na base de dados

Case "anywords"

 

'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

 

'Requisitar os resultados da busca pelo número do clique com as batidas que decending (a maioria de locais populares primeiramente)

strSQL = strSQL & " ORDER By Rating DESC, No_of_ratings DESC, Hits DESC;"

 

 

'Se o usuário selecionar para procurarar por todo o intalise das palavras então a indicação do strSQL para procurarar pelas entradas que contêm todas as palavras de busca

Case "allwords"

 

'Procurarar pela primeira palavra nos títulos do URL

strSQL = strSQL & "WHERE (Title LIKE '%" & sarySearchWord(0) & "%'"

 

'Dar laços para procurarar os títulos do URL por cada palavra a ser procurarada

For intSQLLoopCounter = 1 To UBound(sarySearchWord)

strSQL = strSQL & " AND Title LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'"

Next

 

'OU se as palavras de busca estiverem nos keywords

strSQL = strSQL & ") OR (Keywords LIKE '%" & sarySearchWord(0) & "%'"

 

'Dar laços para procurarar os keywords do URL por cada palavra a ser procurarada

For intSQLLoopCounter = 1 To UBound(sarySearchWord)

strSQL = strSQL & " AND Keywords LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'"

Next

 

'Ou se as palavras de busca estiverem no título

strSQL = strSQL & ") OR (Description LIKE '%" & sarySearchWord(0) & "%'"

 

'Dar laços para procurarar a descrição do URL por cada palavra a ser procurarada

For intSQLLoopCounter = 1 To UBound(sarySearchWord)

strSQL = strSQL & " AND Description LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'"

Next

 

'Requisitar os resultados da busca pelo número do clique com as batidas que decending (a maioria de locais populares primeiramente)

strSQL = strSQL & ") ORDER By Rating DESC, No_of_ratings DESC, Hits DESC;"

 

 

'Se o usuário selecionar para ver recentemente enetred URL requisitar então os resultados da busca pela data que decending

Case "new"

'Initalise a variável do strSQL com uma indicação do SQL para perguntar a base de dados

strSQL = "SELECT TOP " & intRecordsPerPage & " tblWebsites.* FROM tblWebsites"

strSQL = strSQL & " ORDER By SiteIDNo DESC;"

End Select

 

'Perguntar a base de dados com a indicação do strSQL

rsSearchResults.Open strSQL, strCon, 3

 

'Contar o número dos registros encontrados

lngTotalRecordsFound = CLng(rsSearchResults.RecordCount)

 

'Se este for um URL aleatório descascar então todos os outros URL e deixar somente um URL restante

If Request.QueryString("submit") = "Random Search" and NOT rsSearchResults.EOF Then

 

'Randomise o temporizador do sistema

Randomize Timer

 

'Mover-se para um registro aleatório no recordset

rsSearchResults.Move CLng(RND * lngTotalRecordsFound) - 0.5

 

'Filtrar para fora todos os outros registros

rsSearchResults.Filter = "SiteIDNo =" & rsSearchResults("SiteIDNO")

 

Else

'Ajustar o número dos registros à exposição em cada página pelo jogo constante no alto do script

rsSearchResults.PageSize = intRecordsPerPage

 

'Começar o poistion do registro do número de página indicar de

IF NOT rsSearchResults.EOF Then rsSearchResults.AbsolutePage = intRecordPositionPageNum

 

'Contar o número das páginas que os resultados da busca serão indicados sobre calcularam pelo atributo de PageSize se ajustam acima

lngTotalNumPages = CLng(rsSearchResults.PageCount)

 

 

'Calcular o o número record indicado e na exibição da página

intRecordDisplayFrom = (intRecordPositionPageNum - 1) * intRecordsPerPage + 1

intRecordDisplayedTo = (intRecordPositionPageNum - 1) * intRecordsPerPage + intRecordsPerPage

If intRecordDisplayedTo > lngTotalRecordsFound Then intRecordDisplayedTo = lngTotalRecordsFound

 

End If

%>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<title></title>

 

<!-- O Search Engine do Internet da guia de Wiz da correia fotorreceptora é escrito por Bruce Corkhill ©2001 Se você quiser seu próprio Search Engine então ://www.webwizguide.info goto do Internet --<!-- Verificar de é preenchido corretamente antes de submeter-se --><script language="JavaScript"><!-- Hide dos browsers mais velhos ...//Verificar o formulário de inquérito é preenchido corretamente function CheckForm () { return true;}//A função a abrir estala acima a janela function openWin(theURL,winName,features) { window.open(theURL,winName,'toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=0,width=350,height=310');}// --></script><style type="text/css"><!--.text {font-family: <% = strTextType %>; font-size: <% = intTextSize %>px; color: <% = strTextColour %>}.bold {font-family: <% = strTextType %>; font-size: <% = intTextSize %>px; color: <% = strTextColour %>; font-weight: bold;}.site {font-family: <% = strTextType %>; font-size: <% = intTextSize - 1 %>px; color: #009900;}.heading {font-family: <% = strTextType %>; font-size: 24px; color: <% = strTextColour %>; font-weight: bold;}A:link {font-family: Arial, Helvetica, sans-serif; font-size:15; text-decoration: underline; color: #00c}A:visited {font-family: Arial, Helvetica, sans-serif; font-size:15; text-decoration: underline; color: #551a8b}a:active { color: #FF0000;}--></style></head><body bgcolor="<% = strBgColour %>" text="<% = strTextColour %>"><div align="center" class="heading"></div> <form method="get" name="frmInterSearch" action="defaultt.asp" onSubmit="return CheckForm();"> <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="<% = strTableBorderColour %>" align="center"> <tr> <td> <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="<% = strTableColour %>"> <tr> <td><a href="defaultt.asp?mode=new" target="_self"></a> </td> </tr> </table> </td> </tr> </table> <table cellpadding="0" cellspacing="0" width="100%" align="center"> <tr> <td width="231" height="61" rowspan="3" align="left" valign="top"></a></td> <td height="61" width="21" align="right" rowspan="3"> </td> <td class="text" height="29" width="634" valign="bottom"> </td> </tr> <tr> <td class="normal" height="2" width="634"> <input type="TEXT" name="search" maxlength="50" size="35" value="<% =Request.QueryString("search") %>"> <input type="submit" value="Buscar" name="submit"></td> </tr> <tr> <td class="text" height="29" width="634" valign="top"> Buscar : <input type="radio" name="mode" value="allwords" CHECKED> Todas as palavras <input type="radio" name="mode" value="anywords"> Algumas palavras </td> </tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="z lin"> <tr> <td width="1%" height="21"><pre> </pre></td> </tr> </table> <%If NOT Request.QueryString("mode") = "" Then 'Indicar a tabela do HTML com o status dos resultados da busca ou que tipo de busca é Response.Write vbCrLf & " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"" bgcolor=""" & strTableBorderColour & """>" Response.Write vbCrLf & " <tr>" Response.Write vbCrLf & " <td>" Response.Write vbCrLf & " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"" bgcolor=""" & strTableColour & """>" Response.Write vbCrLf & " <tr>" 'Indicar que o URL está gerado aleatòria If Request.QueryString("submit") = "Random Search" Then Response.Write vbCrLf & " <td class=""text""> Random Search for <span class=""bold"">" & strSearchKeywords & "</span>.</td>" 'Indicar que nós estamos mostrando uma página dos URL os mais atrasados posicionados ElseIf Request.QueryString("mode") = "new" Then Response.Write vbCrLf & " <td class=""text""> The " & intRecordsPerPage & " latest URL's Indexed.</td>" 'Indicar que uma das palavras incorporadas era ao short ElseIf blnSearchWordLenthOK = False Then Response.Write vbCrLf & " <td class=""text""> Procurado por <span class=""bold"">" & strSearchKeywords & "</span>.    </td>" 'Indicar isso lá onde nenhum registro combinando encontrou ElseIf rsSearchResults.EOF Then Response.Write vbCrLf & " <td class=""text""> Procurado por <span class=""bold"">" & strSearchKeywords & "</span>. </td>" 'A busca outra foi OK assim que indicar quantos registros encontraram Else Response.Write vbCrLf & " <td class=""text""> Procurado por <span class=""bold"">" & strSearchKeywords & "</span>.      Resultados " & intRecordDisplayFrom & " - " & intRecordDisplayedTo & " of " & lngTotalRecordsFound & ".</td>" End If 'Fechar a tabela do HTML com o status da busca Response.Write vbCrLf & " </tr>" Response.Write vbCrLf & " </table>" Response.Write vbCrLf & " </td>" Response.Write vbCrLf & " </tr>" Response.Write vbCrLf & " </table>" 'Indicar os vários resultados '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>" 'Se houver mais páginas a indicar então adicionam um título às outras páginas If intRecordPositionPageNum > 1 OR NOT rsSearchResults.EOF AND blnSearchWordLenthOK = True Then 'Indicar uma tabela do HTML com ligações aos outros resultados da busca Response.Write vbCrLf & " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" Response.Write vbCrLf & " <tr>" Response.Write vbCrLf & " <td>" Response.Write vbCrLf & " <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" Response.Write vbCrLf & " <tr>" Response.Write vbCrLf & " <td width=""100%"" align=""center"" class=""text"">" 'Se houver mais páginas a indicar então adicionam um título às outras páginas If intRecordPositionPageNum > 1 or NOT rsSearchResults.EOF Then Response.Write vbCrLf & " Página de resultados:  " End If 'Se o número de página for mais elevado do que pagina 1 indicam então um traseiro ligam If intRecordPositionPageNum > 1 Then Response.Write vbCrLf & " <a href=""defaultt.asp?PagePosition=" & intRecordPositionPageNum - 1 & "&search=" & Server.URLEncode(strSearchKeywords) & "&mode=" & Request.QueryString("mode") &""" target=""_self""><< Prev</a>  " End If 'Se houver mais páginas a indicar então indicam as ligações a todas as páginas dos resultados da busca If intRecordPositionPageNum > 1 or NOT rsSearchResults.EOF Then 'Dar laços a diplay em um hyper-link a cada página nos resultados da busca For intLinkPageNum = 1 to lngTotalNumPages 'Se a página a ser ligada a for a página indicada então não lhe fazer um hyper-link If intLinkPageNum = intRecordPositionPageNum Then Response.Write vbCrLf & " " & intLinkPageNum Else Response.Write vbCrLf & "  <a href=""defaultt.asp?PagePosition=" & intLinkPageNum & "&search=" & Server.URLEncode(strSearchKeywords) & "&mode=" & Request.QueryString("mode") & """ target=""_self"">" & intLinkPageNum & "</a>  " End If Next End If 'Se não for o fim da busca resultar do que indica um seguinte ligam If NOT rsSearchResults.EOF then Response.Write vbCrLf & "  <a href=""defaultt.asp?PagePosition=" & intRecordPositionPageNum + 1 & "&search=" & Server.URLEncode(strSearchKeywords) & "&mode=" & Request.QueryString("mode") & """ target=""_self"">Next >></a>" End If 'HTML de Finsh a tabela Response.Write vbCrLf & " </td>" Response.Write vbCrLf & " </tr>" Response.Write vbCrLf & " </table>" Response.Write vbCrLf & " </td>" Response.Write vbCrLf & " </tr>" Response.Write vbCrLf & " </table>" Response.Write vbCrLf & " <br>" End If End If'Objetos próximos do usuário Set rsSearchResults = NothingSet strCon = NothingSet adoCon = Nothing%> <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="<% = strTableBorderColour %>"> <tr> <td> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="<% = strTableColour %>"> <tr> <td> </td> </tr> </table> </td> </tr></table></form></body></html>

[dream1702 0]

Ae pessoal problema resolvido muito obrigado pela ajuda.Se alguem precisar ficou assim numa das parte que imprime no html.Response.Write vbCrLf & " " & Replace (rsSearchResults("Description"), strSearchKeywords, "<b>" & strSearchKeywords & "</b>", 1, -1, 1)