Código Simples

[Carlos Rocha]

<%
 Option Explicit
%>
<% 'Declara as variaveis.
Dim Conn, DSNtest, busca, tabela, x, pesq, onde, strSQL, sql, Rs_SELECT   
 %>
<%  ' Conecta o Banco de Dados Sql Server
Set Conn = Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={SQL Server};SERVER=Nome_do_Servidor_Sql;UID=sa;PWD=;DATABASE=Nome_do_Banco_de_Dados"
Conn.open DSNtest
%>
<%
IF REQUEST.QUERYSTRING("I") = 1 THEN
           
busca=trim(request.form("chave"))      'Retira os espaços da direita e da esquerda da fraze.
busca=split(busca,chr(32))             'Cria um array e separa cada palavra da strig
tabela = true                          'Cria uma variavel que será usada na exibição do cabeçalho da tabela 
                                       'que será desenhada para exibir os resultados

for x = 0 to Ubound(busca)             'Cria um laço que conta quantas e quais palavras foram separadas

  pesq=busca(x)   ' entrega à variavel pesq, cada uma das palavras digitadas no formulário

'Escolha na linha de baixo qual tipo de busca no texto digitado voce quer fazer: letra por letra ou palavra por palavra

' onde= "texto like '%" & pesq & "%' or titulo like '%" & pesq & "%'"  'String Sql que busca letra por letra                       
  onde= "texto like '" & pesq & "' or titulo like '" & pesq & "'"      'String Sql que busca palavra por palavra
  
  'Cria o Select
    strSQL = "select * from estudos where " & onde & ""
    Set Rs_SELECT = server.createobject("ADODB.Recordset")
    Rs_SELECT.Open strSQl,Conn , 3, 3

     if not Rs_SELECT.eof=true then       ' Se houver resultados 
        if tabela = true then         
          response.Write " <table border=1>"
   response.Write " <tr><td>Titulo</td>"
          response.Write " <td>Texto</td></tr>"
          tabela = false
        end if
        
          do until Rs_SELECT.eof= true                'Cria o laço para impressão dos resultados da pesquiza
          'Imprime os resultados da busca        
          response.Write "<tr><td>"&Rs_SELECT("titulo")&"</td>"
          response.Write " <td>"&Rs_SELECT("texto")&"</td></tr>"
           
          Rs_SELECT.MoveNext 
          Loop                                        'Fim do laço para impressão dos resultados da pesquiza
    end if    
next                                             'Fim do laço for
 response.Write "</table>"  ' Se houver resultados
     if tabela = true then
          response.Write "Não achei Nada!"
     else  'fecha a tabela criada
          response.Write "</table>"
     end if
END IF
%>

<form action=oi.asp?I=1 method=post>
  <p>
  <input type=text name=chave size=100>

    <input type=submit value=enviar>
    </p>
  </form>

[dark0]

o que ser isso?

Um codigo que tá funcionando bem? Ou é alguma duvida sua?

Se for um codigo que tá beleza.. que tal postar um link pra esse Tópico dentro do Tópico de Funções?

Abraço

[Carlos Rocha]

É kara, postei no lugar errado.

Num é duvida não, é um script legal que consegui criar mas num to onseguindo jogar no lugar certo...