Outro Erro...

[Guest - tito -]

Esta ocorrendo que ao abrir novamente minha página, ou seja, ao executar

minha busca no banco de dados, o resultado é sempre o da minha primeira consulta....

Qual será o erro.....

<%

'Variaveis do banco de dados

Dim conEmeb

Dim recTbl

'Variaveis

Dim busca

busca = UCase(Request.Form("txtBusca"))

Set conEmeb = Server.CreateObject("ADODB.Connection")

Set recTbl = Server.CreateObject("ADODB.RecordSet")

conEmeb.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("banco\banco.mdb")

recTbl.open "Select * FROM tblEmeb WHERE nome LIKE '%"&busca&"%'", conEmeb

Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='2' height='20'><tr><td style='border-bottom: 1 dotted #CCCCCC'><font size='2' face='Verdana, Arial, Helvetica, sans-serif' color='#999999'><strong>" & recTbl.Fields("nome") & "</strong></font><font size='1' face='Verdana, Arial, Helvetica, sans-serif' color='#999999'>" & ", " & recTbl.Fields("classificacao") & "</font></td></tr></table>"

recTbl.close

Set recTbl = nothing

conEmeb.close

%>

Obrigado desde já...

[bolomaster]

cara já tentou usar uma session ?

pode funcionar ficaria mais ou menos assim

Select * FROM tblEmeb WHERE nome = '"Session("busca")"'"

abraços

[Victor]

recTbl.open "Select * FROM tblEmeb WHERE nome LIKE '%"&busca&"%'", conEmeb

Você está colocando uma variável inexistente, faça isso com um request.form e o nome do campo onde o cara digita o que ele quer no site!!!! Observe esse codigo a seguir:

recTbl.open "Select * FROM tblEmeb WHERE nome LIKE '%"&request.form("busca")&"%'", conEmeb

Você pode usar tanto assim como fazendo o request.form uma variavel, ai sim irá funcionar seu codigo, assim:

busca = request.form("busca")
recTbl.open "Select * FROM tblEmeb WHERE nome LIKE '%"&busca&"%'", conEmeb

Fico grato a ajudar!! Se tiver mais alguma dúvida, posta ai que agente te ajuda!!!

[]'s

Victor

[Bicicleta]

Ai victor, você leu o codigo do kara?

Ai, vou falar só pra vc, mais não conta pra ninguém não:

Dim busca

busca = UCase(Request.Form("txtBusca"))

hehehehehehehe

Mais falando do erro, eu não entendi o que ocorre não kara, acho que to com os pensamentos meio torto já... To no trampo ainda e monte de papel ao lado do comp é o q não falta!!!!! hhhehehehe

Se der pra você explicar melhor ai quem sabe a cabeça volte a funcionar no tramco aqui! hehehe