Ir para conteúdo
Fórum Script Brasil

Legionáriors

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    158

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Legionáriors postou

  1. Legionáriors
    Aí bareta, Tenho que juntar a conexão com o banco ou é só botar pra funcionar? Desculpa mas não tenho mta habilidade com asp.... Abraço...
  2. Legionáriors
    é pra fazer um loop nos três itens da tabela: imagem imagem imagem descricaop descricaop descricaop preço preço preço imagem imagem imagem descricaop descricaop descricaop preço preço preço Cada vez que atualizar a página ele mostra os últimos 6 cadastrados. Abraço.
  3. Legionáriors
    Não consegui anexar a imagem tem algum email que eu possa te passar?
  4. Legionáriors
    É isso que eu preciso... Onde a imagem é a imagem A linha abaixo em preto é a descricaop A linha em vermelho é o preço Só que preciso que a página gere 6 produtos diferentes três em cima e três em baixo. Abraço.
  5. Legionáriors
    A tabela é produtos e a ordem é imagem - nome - descricaop Só isso e dispor em duas linhas e três colunas... Será que é tão simples e eu tava quebrando a cabeça a toa? Procurei toda a net por alguma coisa assim e não encontrei... Valeu mesmo pela força Rafael. Abraço.
  6. Legionáriors
    Isso! É exatamente como você desenhou aí só que em cima vai uma imagem do produto logo abaixo vai o nome e embaixo o preço só isso... O campos que tenho no db são: id cat_id nome descricaop descricaog descricaoh preço imagem disp Estes são os campos da tabela produtos. Abraço!!!
  7. Legionáriors
    Rafael, Obrigado pela força irmão. Abraço. <% Dim conexao, objConn, rsBuscaProdutos, strBuscaProdutos, caminho strBuscaProdutos = "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 rsBuscaProdutos = objConn.Execute(strBuscaProdutos) if rsBuscaProdutos.eof then Mensagem = "Nenhum Registro Encontrado" Response.End else 'Definimos em qual pagina o visitante está if rsBuscaProdutos("pagina")="" then intpagina = 1 else if cint(rsBuscaProdutos("pagina"))<1 then intpagina = 1 else if cint(rsBuscaProdutos("pagina"))>rsBuscaProdutos.PageCount then intpagina = rsBuscaProdutos.PageCount else intpagina = rsBuscaProdutos("pagina") end if end if end if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title></title> </head> <body> <br> <font face="verdana" size="2" color="black"> <b>Confira alguns destaques de nossa loja... </font> <table width="780" border="0" cellspacing="0" cellpadding="0"> <tr> <% 'Iniciamos o Loop rsBuscaProdutos.AbsolutePage = intpagina intrec = 0 q = 0 While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof q = q + 1 %> <td width="567"> <center> <img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0 style="border:0;position:relative; left:12; top:19;"></a> <br> <font face="verdana" size="2" color="black"> <b><br><br><%=rsBuscaProdutos("nome")%> <font face="verdana" size="2" color="Red"><br> <%="R$: "%> <%=rsBuscaProdutos("preço")%>,00 <br><br><br><br> </font> </td> <% rsBuscaProdutos.MoveNext if q = 3 and not rsBuscaProdutos.eof then response.write "</tr><tr>" q = 0 End If intrec = intrec + 1 Wend %> </tr> </table> <% end if rsBuscaProdutos.Close Set rsBuscaProdutos = nothing %> </body> </html>
  8. Legionáriors
    Ok, muito obrigado pela sua ajuda Rafael. Abraço. Cara eu já to arrancando os cabelos, se tu puder me ajudar... Eu preciso de um script que apenas me mostre os produtos que estão cadastrados na base mas que sejam impressos na tela da seguinte forma, últimos 6 produtos cadastrados divididos em 2 linhas de 3 colunas com nome e valor embaixo, isso pra eu não ter que usar um html e ter que modificar todas quando forem alteradas. Abraço!
  9. Legionáriors
    Bom dia, Segue mais um erro: ADODB.Recordset (0x800A0CC1) O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado. /Sites/Projeto Lojas Adri/Projeto Lojas Adri/paginacao.asp, line 15 Obrigado. A propósito a linha 15 é esta: if rsBuscaProdutos("pagina")="" then tks.
  10. Legionáriors
    Bareta, Não tá funcionando não aparece o erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe (operador faltando) na expressão de consulta 'categorias='. Obrigado.
  11. Legionáriors
    Bareta, Cara já pensei em fazer isso, mas tenho todos os meus clientes hospedados neste serviço e nunca havia ocorrido tal problema e limitações existem em qualquer serviço de hospedagem uns tem o que os outros não tem e vice e versa mas vou estudar direitinho isso. Como não tem remédio por hora precisaria que vocês amigos aqui do Fórum me dessem uma ajuda para resolver esse problema que eu pensei estar resolvido porque para conseguir completar esse código de paginação foi um parto e agora isso, só não desisto para não perder dinheiro e não deixar meu cliente na mão. Muito obrigado, forte abraço e a luta continua não é... hehehehehehehe
  12. Legionáriors
    É assim ó, não há página que antecede não é uma página de formulário ou de busca, é para ser apenas uma página de consulta ao banco de dados que retorna os produtos aleatóriamente e não tem página que antecede ela porque ela é uma página de capa do site existe apenas uma página chamada produtos_capa.htm que tem dentro um iframe que chama a página paginaçã.asp. Acho que é isso... Abraço
  13. Legionáriors
    A página que chama esta de paginação de produtos é um html simples que tem um iframe. Valeu.
  14. Legionáriors
    Legal, valeu memo Rafael. Abraço.
  15. Legionáriors
    Access porque?
  16. Legionáriors
    segue, 42 <% 43 'Iniciamos o Loop 44 rsBuscaProdutos.AbsolutePage = intpagina 45 intrec = 0 46 q = 0 47 While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof 48 q = q + 1 49 %> Valeu!
  17. Legionáriors
    Aí amigo, ADODB.Recordset error '800a0cb3' Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype. /paginacao.asp, line 44 A saga continua!!!
  18. Legionáriors
    beleza, que isso, não dá nada, rsrsrsrsrsrsrsrsrsrs Vamos lá então... <% 'Abrimos a Conexão com o Banco Dim caminho Dim conexao SET objConn = Server.CreateObject("AdoDB.Connection") objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\site.com.br\banco\loja.mdb" 'Selecionamos todos os Produtos da Tabela 'Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset") strBuscaProdutos = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[id])" 'rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3 'Criamos as Validações if rsBuscaProdutos.eof then Mensagem = "Nenhum Registro Encontrado" Response.End else 'Definimos em qual pagina o visitante está if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then intpagina = rsBuscaProdutos.PageCount else intpagina = Request.QueryString("pagina") end if end if end if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title></title> </head> <body> <br> <font face="verdana" size="2" color="black"> <b>Confira alguns destaques de nossa loja... </font> <table width="780" border="0" cellspacing="0" cellpadding="0"> <tr> <% 'Iniciamos o Loop rsBuscaProdutos.AbsolutePage = intpagina intrec = 0 q = 0 While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof q = q + 1 %> <td width="567"> <center> <img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0 style="border:0;position:relative; left:12; top:19;"></a> <br> <font face="verdana" size="2" color="black"> <b><br><br><%=rsBuscaProdutos("nome")%> <font face="verdana" size="2" color="Red"><br> <%="R$: "%> <%=rsBuscaProdutos("preço")%>,00 <br><br><br><br> </font> </td> <% rsBuscaProdutos.MoveNext if q = 3 and not rsBuscaProdutos.eof then response.write "</tr><tr>" q = 0 End If intrec = intrec + 1 Wend %> </tr> </table> <% end if rsBuscaProdutos.Close Set rsBuscaProdutos = nothing %> </body> </html>
  19. Legionáriors
    Rafael, Microsoft VBScript runtime error '800a01a8' Object required: 'rsBuscaProdutos' /paginacao.asp, line 14 Tá complicado... Valeu pela ajuda!!!
  20. Legionáriors
    Entrei em contacom a hospedagem novemente e me disseram o seguinte: Caro Cliente, pedimos que em sua programação o senhor utilize o caminho físico completo pois a função "Server.MapPath()" não é funcional. Qualquer outra dúvida entre em contato conosco. Equipe Hotel da Web. E agora?
  21. Legionáriors
    Aí Rafael, Olha agora o erro... ADODB.Recordset error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /paginacao.asp, line 11 ??? A linha é esta: rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3
  22. Legionáriors
    Bom dia Rafael, Retorna o seguinte erro: Server.MapPath() error 'ASP 0172 : 80004005' Invalid Path /paginacao.asp, line 5 The Path parameter for the MapPath method must be a virtual path. A physical path was used. E já falei com eles e eles sempre me dão a mesma resposta que o caminho da pasta é aquele que eles informaram que eu te falei acima... Se tivar outra alternativa te agradeço... Abraço.
  23. Legionáriors
    Boa noite pessoal, O que há de errado com o caminho do meu banco de dados que não tem jeito de conectar no servidor de hospedagem??? Localmente funciona beleza... meu banco fica na pasta do servidor: C:\Inetpub\vhosts\site.com.br\banco\loja.mdb O erro é: Microsoft JET Database Engine error '80004005' 'C:\Inetpub\vhosts\site.com.br\httpdocs\banco\loja.mdb' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides. /paginacao.asp, line 7 A quem puder ajudar o meu muito obrigado!!! <% 'Abrimos a Conexão com o Banco Dim caminho Dim conexao caminho = Server.MapPath("banco/loja.mdb") Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";" 'Selecionamos todos os Produtos da Tabela Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset") strBuscaProdutos = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[id])" rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3 'Criamos as Validações if rsBuscaProdutos.eof then Mensagem = "Nenhum Registro Encontrado" Response.End else 'Definimos em qual pagina o visitante está if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then intpagina = rsBuscaProdutos.PageCount else intpagina = Request.QueryString("pagina") end if end if end if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title></title> </head> <body> <br> <font face="verdana" size="2" color="black"> <b>Confira alguns destaques de nossa loja... </font> <table width="780" border="0" cellspacing="0" cellpadding="0"> <tr> <% 'Iniciamos o Loop rsBuscaProdutos.AbsolutePage = intpagina intrec = 0 q = 0 While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof q = q + 1 %> <td width="567"> <center> <img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0 style="border:0;position:relative; left:12; top:19;"></a> <br> <font face="verdana" size="2" color="black"> <b><br><br><%=rsBuscaProdutos("nome")%> <font face="verdana" size="2" color="Red"><br> <%="R$: "%> <%=rsBuscaProdutos("preço")%>,00 <br><br><br><br> </font> </td> <% rsBuscaProdutos.MoveNext if q = 3 and not rsBuscaProdutos.eof then response.write "</tr><tr>" q = 0 End If intrec = intrec + 1 Wend %> </tr> </table> <% end if rsBuscaProdutos.Close Set rsBuscaProdutos = nothing %> </body> </html>
  24. Legionáriors
    beleza, bareta funcionou legal. Gostaria de saber se é possivel mostrar os produtos por departamento mas a tabela dos departamentos é outra não consta na tabela de produtos o único referencial da tabela de departamentos na tabela de produtos é o item cat_id mas eu quero mostrar somente os produtos correspondentes ao departamento não cada vez que eu faço um refresh ele mostrar produtos de departamentos diferentes. Não sei se me fiz entender mas é isso. Se puder ajudar agradeço muito...
  25. Legionáriors
    Boa noite pessoal, Estou com o seguinte problema neste código e espero que alguém possa me ajudar. Ele funciona perfeitamente listando 6 produtos que estão cadastrados no db o problema é que os 6 produtos listados são os mesmos ele não mostra 6 produtos diferentes como eu quero. Se alguém ajudar, ufa, eu agradeço muito. Abraço a todos. <% 'Abrimos a Conexão com o Banco Dim caminho Dim conexao caminho = Server.MapPath("/banco/loja.mdb") Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";" 'Selecionamos todos os Produtos da Tabela Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset") strBuscaProdutos = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[cat_id])" rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3 'Criamos as Validações if rsBuscaProdutos.eof then Mensagem = "Nenhum Registro Encontrado" Response.End else 'Definimos em qual pagina o visitante está if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then intpagina = rsBuscaProdutos.PageCount else intpagina = Request.QueryString("pagina") end if end if end if end if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title></title> </head> <body> <br> <font face="verdana" size="2" color="black"> <b>Confira alguns destaques de nossa loja... </font> <table width="780" border="0" cellspacing="0" cellpadding="0"> <tr> <% for i = 1 to 6 q = q + 1 %> <td width="567"><center><img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0 style="border:0;position:relative; left:12; top:19;"></a><br> <font face="verdana" size="2" color="black"><b> <br><br> <%=rsBuscaProdutos("nome")%> <br> <%=rsBuscaProdutos("descricaop")%> <font face="verdana" size="2" color="Red"> <br> <%="R$: "%> <%=rsBuscaProdutos("preço")%>,00 <br><br><br><br> </td> <% if q = 3 then %> </tr> <% q = 0 End If next %> </table> <% 'Iniciamos o Loop rsBuscaProdutos.AbsolutePage = intpagina intrec = 0 While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof %> <% rsBuscaProdutos.MoveNext intrec = intrec + 1 if rsBuscaProdutos.eof then response.write " " end if Wend %> </body> </html>
×
×
  • Criar Novo...