<% 
' Conexão com o banco de dados (substitua pelos seus próprios detalhes de conexão)
Dim conexao, consulta, rs
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "sua_string_de_conexao"

' Recuperar o termo de busca do formulário
Dim termoBusca
termoBusca = Request.Form("txtBusca")

' Consulta SQL para buscar registros que correspondem ao termo de busca
consulta = "SELECT * FROM sua_tabela WHERE seu_campo LIKE '%" & termoBusca & "%'"
Set rs = conexao.Execute(consulta)

' Exibir os resultados da busca
Response.Write "

Resultados da Busca:

"
Response.Write "

• "
  While Not rs.EOF
      Response.Write "
• " & rs("seu_campo") & "
• "
      rs.MoveNext
  Wend
  Response.Write "

"

' Fechar a conexão e liberar recursos
rs.Close
Set rs = Nothing
conexao.Close
Set conexao = Nothing

%>