Legionáriors

Bom dia Rafael, Valeu pelo reconhecimento mas sem a tua ajuda e do pessoal aqui do fórum não seria possivel completar este código. Bom, É isto mesmo que eu preciso. Pode me dar uma mão? Mais uma vez? Abraço.

Boa noite pessoal do Fórum, mais uma vez venho recorrer a vocês para resolver um problema (para mim) relativo a banco de dados Então aí vai... Tenho um código que com a ajuda de vocês e principalmente do Rafael consegui botar para funcionar então neste script há um link que eu gostaria de faze-lo exibir algumas informações que estão no meu banco de dados e não consigo. Espero poder contar com a ajuda de vocês. Abraço a todos. <% 'declarando objetos dim sql, objConn, rs SET objConn = Server.CreateObject("AdoDB.Connection") objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=D:\Backup\Sites\Projetos\Projetos em Aberto\Projeto Lojas Adri\banco\loja.mdb" sql = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[id])-Now()*[cat_id])" Set rs = objConn.Execute(sql) 'numero de colunas col=3 if not rs.eof then ' esta var armazena o numero de colunas colu=1 'começamos a tabela response.write "<table><tr><td>" 'iniciamos o loop´ while not rs.eof %> <table width="100%" border="0" cellspacing="10" cellpadding="5"> <tr> <td width="567"><center><a href="emconstrucao.htm" target="tec"><img src='images/<%response.write rs ("imagem")%>' width="150" height="150" border="0"/></a></tr> <tr><p> <td><center><font face="verdana" size="2" color="black"><b><%response.write rs ("nome")%><b></td></tr> <td><center><font face="verdana" size="2" color="red"><b>Valor: R$ <%response.write rs ("preço")%>,00</b></td> </tr> </table> <% 'fazemos a contagem das colunas e se tiver no limite faz outra linha if colu=col then response.write "</td><tr><td>" 'reinicia contagem colu=1 else ' como não alcançou o limite fazemos outra coluna response.write "</td><td>" 'somamos +1 na variavel colu colu=colu+1 end if 'terminamos o loop rs.movenext wend response.write "</td></tr></table>" end if rs.close set rs=nothing %> Fazer este link <a href="emconstrucao.htm" target="tec"> verificar as informações e exibilas na tela.

Ok. Vou fazer e te retorno. Abraço.

Rafael, Agora não aparece nada na página e tenta fazer o download do arquivo ao invés de exibir. Abraço

Por enquanto não deu nada mas vou continuar tentando por aqui qualquer coisa te dou um toque. Valeu pela ajuda amigo. Quando achar que posso te ajudar em algo não pense duas vezes pode me chamar. Abraço.

beleza, Não apareceu nada na tela e o link da barra de endereços é: http://localhost/Projetos/Projetos%20em%20...co/consulta.asp Nada mais!

Rafael, Tá dando o seguinta erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe (operador faltando) na expressão de consulta 'produtos ='. /Projetos/Projetos em Aberto/Projeto Lojas Adri/banco/consulta.asp, line 9 A linha: Set rs = objConn.Execute(sql) Valeu!

Mas precisa necessáriamente ser um form? Não pode ser um link simples? porque já tenho uma página com os links e queri clicar no link a que este link direcionasse para a página de consulta só com os produtos da categoria clicada. Vou colocar o código da página dos links pra você ver como está. <% Dim lojaDB set lojaDB = Server.CreateObject("ADODB.Connection") lojaDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\Backup\Sites\Projetos\Projetos em Aberto\Projeto Lojas Adri\banco\loja.mdb" lojaDB.open %> <center> <table class=topo border=0 width=200% cellpadding=0 cellspacing=5> <td align=left width=100%><p> <form action=listaprod.asp method=query> <font face="verdana" size="2"><b> <a class=linktop href="cadastro.asp" target="tec"><img src="images\cadastro.gif" alt="Cadastro" border="0"/></a> <a class=linktop href="capa_departamentos.asp" target="tec"><img src="images\audio.gif" alt="Audio" border="0"/></a> <a class=linktop href="capa_departamentos.asp" target="tec"><img src="images\celulares.gif" alt="Celulares" border="0"/></a> <a class=linktop href="capa_departamentos.asp" target="tec"><img src="images\cineefoto.gif" alt="Cine e Foto" border="0"/></a> <a class=linktop href="capa_departamentos.asp" target="tec"><img src="images\eletrodomesticos.gif" alt="Eletrodomésticos" border="0"/></a> <a class=linktop href="capa_departamentos.asp" target="tec"><img src="images\eletroportateis.gif" alt="Eletroportáteis" border="0"/></a> <a class=linktop href="capa_departamentos.asp" target="tec"><img src="images\esporte_laser.gif" alt="Esporte e Laser" border="0"/></a> <a class=linktop href="capa_departamentos.asp" target="tec"><img src="images\informatica.gif" alt="Informática" border="0"/></a> <a class=linktop href="capa_departamentos.asp" target="tec"><img src="images\moveis.gif" alt="Móveis" border="0"/></a> <a class=linktop href="capa_departamentos.asp" target="tec"><img src="images\telefonia.gif" alt="Telefonia" border="0"/></a> <a class=linktop href="capa_departamentos.asp" target="tec"><img src="images\ud.gif" alt="Utilidades Domésticas" border="0"/></a> <a class=linktop href="capa_departamentos.asp" target="tec"><img src="images\video.gif" alt="Vídeo" border="0"/></a> <a class=linktop href="capa_departamentos.asp" target="tec"><img src="images\ofertas.gif" alt="Ofertas" border="0"/></a> <input type=hidden name=lista value=busca> </form></p> </td> </tr> </table> Abraço.

Boa tarde Rafael, beleza cara é isso mesmo ontem apanhei um pouco mas consegui aproximar do que eu preciso. Só falta uma coisa pra ficar perfeito. Por exemplo eu quero clicar em um link digamos um link chamado Audio por exemplo. Tem como este link chamar a página de exibição dos produtos que nós fizemos mas só com os produtos do departamento Audio? Agora está mostrando produtos aleatórios Não sei se vais me entender mas é isso! Segue o código... <% 'declarando objetos dim sql, objConn, rs SET objConn = Server.CreateObject("AdoDB.Connection") objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=D:\Backup\Sites\Projetos\Projetos em Aberto\Projeto Lojas Adri\banco\loja.mdb" sql = "SELECT TOP 9 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[id])" Set rs = objConn.Execute(sql) 'numero de colunas col=3 if not rs.eof then ' esta var armazena o numero de colunas colu=1 'começamos a tabela response.write "<table><tr><td>" 'iniciamos o loop´ while not rs.eof %> <table width="100%" border="0" cellspacing="10" cellpadding="5"> <tr> <td width="567"><center><a href="emconstrucao.htm" target="tec"><img src='images/<%response.write rs ("imagem")%>' width="130" height="130" border="0"/></a></tr> <tr><p> <td><center><font face="verdana" size="2" color="black"><b><%response.write rs ("nome")%><b></td></tr> <td><center><font face="verdana" size="2" color="red"><b>Valor: R$ <%response.write rs ("preço")%>,00</b></td> </tr> </table> <% 'fazemos a contagem das colunas e se tiver no limite faz outra linha if colu=col then response.write "</td><tr><td>" 'reinicia contagem colu=1 else ' como não alcançou o limite fazemos outra coluna response.write "</td><td>" 'somamos +1 na variavel colu colu=colu+1 end if 'terminamos o loop rs.movenext wend response.write "</td></tr></table>" end if rs.close set rs=nothing %> Abraço e bom domingo!

Realmente, Cada vez que faço o refresh da página fica tudo fora de alinhamento mas todo comando relativo a tabulação que eu coloco da erro...

Bhá não tem jeito mesmo to apanhando pra valer deste script... Olha só pra mostrar outros itens da mesma tabela é possivel? Na tabela eu tenho imagem, nome, descricao estão todos na mesma tabela e gostaria de mostra-los junto com a imagem pode me ajudar amigo? Obrigado!!!

Rafael, Já consegui amigo, tá beleza agora... Valeu mesmo Abraço.

Cara, Sei que to ficando chato já mas agora não tá fazendo o loop nas imagens tá estático mesmo quando se dá refresh na página. O que pode estar errado? Abraço. Segue completo para não dificultar as coisas... <% 'declarando objetos dim sql, objConn, rs SET objConn = Server.CreateObject("AdoDB.Connection") objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=D:\Backup\Sites\Projetos\Projetos em Aberto\Projeto Lojas Adri\banco\loja.mdb" sql = "SELECT TOP 9 * FROM produtos ORDER BY imagem" Set rs = objConn.Execute(sql) 'numero de colunas col=3 if not rs.eof then ' esta var armazena o numero de colunas colu=1 'começamos a tabela response.write "<table><tr><td>" 'iniciamos o loop´ while not rs.eof %> <img src='images/<%response.write rs ("imagem")%>' width="160" border="0"/> <% 'fazemos a contagem das colunas e se tiver no limite faz outra linha if colu=col then response.write "</td><tr><td>" 'reinicia contagem colu=1 else ' como não alcançou o limite fazemos outra coluna response.write "</td><td>" 'somamos +1 na variavel colu colu=colu+1 end if 'terminamos o loop rs.movenext wend response.write "</td></tr></table>" end if rs.close set rs=nothing %>

beleza Rafa, Mas a linha fica desta forma? response.write rs <img src='/images/<%=rs("imagem")%>' width="160" border="0"/> Estava assim: response.write rs ("imagem")

Boa tarde Rafael, Certo tá funcionando mas não consigo exibir as imagens que estão na pasta images só aparece o nome da mesma como devo proceder? Abraço!

beleza funfou, mas e se a minha pasta de imagens estiver em outro lugar, ela não está na mesma pasta do banco como faço para acessa-las?? Valeuzão Rafael...

Tela branca de novo e já fiz o debug e nada...

Apareceu novamente: SELECT TOP 6 * FROM produtos ??

hummmmmm... 'declarando objetos dim sql, objConn, rs sql = "SELECT TOP 6 * FROM produtos" SET objConn = Server.CreateObject("AdoDB.Connection") objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\Sites\Projeto Lojas Adri\banco\loja.mdb" Set rs = objConn.Execute(sql) 'numero de colunas col=5 if not rs.eof then ' esta var armazena o numero de colunas colu=1 'começamos a tabela response.write "" 'iniciamos o loop´ while no rs.eof response.write rs("campo") 'fazemos a contagem das colunas e se tiver no limite faz outra linha if colu=col then response.write " " 'reinicia contagem colu=1 else ' como não alcançou o limite fazemos outra coluna response.write " " 'somamos +1 na variavel colu colu=colu+1 end if 'terminamos o loop rs.movenext wend response.write " " end if rs.close set rs=nothing %> Tudo isso agora... Desculpe rafael eu me enganei porque to com outros códigos abertos aqui. Agora fiz certo e continua não aparecendo nada na tela... Valeu!

beleza fiz o que você mandou e sim tenho certeza de que tem algo cadastrado no banco to usando ele para outras coisas. Apareceu o seguinte agora... SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[id]) Só isso impresso na tela.

Ok, Pelo menos agora não deu erro nenhum...rsrsrsrsrsrs Mas ficou a tela branca não apareceu nada Valeu!

Galera tá complicado vocês tão falando grego pra mim eu não to entendendo... Me desculpem mas é por isso que to aqui pedindo ajuda porque não sei como colocar o script pra funcionar... Abraço. <% sql = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[id])" SET objConn = Server.CreateObject("AdoDB.Connection") objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\Sites\Projeto Lojas Adri\banco\loja.mdb" Set rs = objConn.Execute(sql) %> <% 'numero de colunas col=5 'fazemos o select sql="select * from tabela" set rs=conn.execute(sql) if not rs.eof then ' esta var armazena o numero de colunas colu=1 'começamos a tabela response.write "<table><tr><td>" 'iniciamos o loop´ while no rs.eof response.write rs("campo") 'fazemos a contagem das colunas e se tiver no limite faz outra linha if colu=col then response.write "</td><tr><td>" 'reinicia contagem colu=1 else ' como não alcançou o limite fazemos outra coluna response.write "</td><td>" 'somamos +1 na variavel colu colu=colu+1 end if 'terminamos o loop rs.movenext wend response.write "</td></tr></table>" end if rs.close set rs=nothing %>

Novamente... Erro: Microsoft VBScript runtime (0x800A01A8) Object required: 'conn' E agora amigo??? hehehehehehehe

beleza, Então pode fechar este tópico. Abraço.

beleza Rafael, Cara, entendi, eu sempre testo tudo e não trabalho só com códigos prontos eu procuro olhar e tentar entender o código mas pra quem é leigo no assunto fica mei ocomplicado, hehehehehehe, mas beleza cara eu fiz uns testes com o código do bareta e algumas aberturas de conexão e não funcionou você poderia me dizer qual é a melhor maneira de conectar o banco e fazer este código funcionar. Vou abrir um novo tópico sim amigo, valeu mesmo por toda a ajuda que você me prestou e que em outros Fóruns ficou só na ameaça de que se eu fizesse mais um up seria punido, mas só quem tá com o problema é que entende. Abraço.