Bom Dia,
 
    Estou tentando aprender ASP, atrav�s de livros, com isso estou com v�rias d�vidas, principalmente neste c�digo, teria como dar um Help.
 
Banco de Dados:
Tabela= banco.mdb
Campos = nome; email; empresa; cargo; departamento
 
    Se for posivel quem tiver o c�digo pronto, de busca com banco de dados Acess, seria muito grato.
 
 
<% @Language = VBScript %>
<%
 
strBusca = Request.QueryString("busca")
 
if strBusca <> "" then
 

  stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("banco.mdb")
 
  Set objConexao = Server.CreateObject("ADODB.Connection")
 
  objConexao.Open stringConexao
 
  strSQL = "SELECT * FROM tabela WHERE nome LIKE '%"& strBusca &"%'"
 
  Set objRS = ObjConexao.Execute(strSQL)
 
  %>
 
  Resultado(s) Encontrado:
 
  <HR>
 
  <%
    While not objRS.EOF
  response.write "tabela: " & objRS("tabela") & "<BR>"
  response.write "<A href=''>" &  objRS("cargo") & "</A>" & " - " & objRS("departamento") & "  " & "<a href=''>" & "[email]" & "</A>" & "<BR><BR>"
  objRS.MoveNext
 

    Wend
 
 end if
 
 %>
 
obrigado pela aten��o.

 

:: http://www.asp10.net
==================================================
:: Solu��es simples para problemas complexos
:: Sistemas de Links, Not�cias, Faq, Loja,
:: Estat�sticas, Artigos, Mural e muito mais.
==================================================
:: Para entrar, sair ou ver o hist�rico da lista
:: Asp10.net visite http://www.asp10.net
==================================================



  página do grupo cancelar assiantura

Responder a