Preciso de uma ajuda rápidop

Posted 16/01/2004, 16:45
Posted 17/01/2004, 10:27
Posted 17/01/2004, 13:34
set conn = server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("AKI VEM O LOCAL DO SEU BANCO DE DADOS ACCESS") set RS = server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM tabela-do-banco-de-dados-a-ser-feita-a-busca WHERE coluna-da-tabela-onde-será-buscado-o-valor = '" & variável-contendo-o-valor-a-ser-buscado-dentro-dos-dados-da-coluna & "' OR email = '" & email & "'" RS.open SQL,conn,3,3
If rs.eof then response.write("Nenhum resultado encontrado.") Else Do while Not rs.eof response.write(RS(".coluna-que-foi-feita-a-busca") & "<br>") Rs.movenext Loop End if
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)