[Resolvido] Código simples

[Carcleo 4]

<%Option Explicit%><% 'Declara as variaveis.Dim Conn, DSNtest, busca, tabela, x, pesq, onde, strSQL, sql, Rs_SELECT   %><%  ' Conecta o Banco de Dados Sql ServerSet 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 strigtabela = true                          'Cria uma variavel que será usada na exibição do cabeçalho da tabela                                       'que será desenhada para exibir os resultadosfor 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 forresponse.Write "</table>"  ' Se houver resultados    if tabela = true then         response.Write "Não achei Nada!"    else  'fecha a tabela criada         response.Write "</table>"    end ifEND IF%><form action=oi.asp?I=1 method=post> <p> <input type=text name=chave size=100>   <input type=submit value=enviar>   </p> </form>