Legionáriors

Pessoal, beleza já consegui arrumar. Grato a quem ajudou. Abraço Ps. Podem fechar o tópico. Obrigado.

Bom dia galera, Será que alguém tem uma solução para o que está acontecendo com meu código? Obrigado a todos que puderem ajudar... Abraço...

Não retorna nenhum erro ele grava inclusive já olhei no db depois de cadastrar e o registro está lá, só não mostra na tela quando puxo a edição´...

Aí está o código completo... <table border=0 width=100%> <% Dim lista_produtos,lista_categoria,lista_pedidos,prod_id,lista_prod,pedidos,tempcat,acao,lista acao = Request.QueryString("acao") prod_id = Request.QueryString("prod_id") If IsEmpty(Request.QueryString("prod_id")) Then %> &lt;script>window.location='./con_prod.asp'</script> <% End If If Request.Form("cat_id") = "nulo" Then %> <tr width=100%><td width=100%><font color=red>Selecione a Categoria</font></td></tr> <% acao = "X" End If Select Case acao Case "apagar" lojaDB.Execute("DELETE FROM produtos WHERE id=" & prod_id) %> <tr width=100%><td width=100%><h4>Produto Removido</h4></td></tr> <% lista = "não" Case "atualizar" lojaDB.Execute("UPDATE produtos set cat_id='" & Request.Form("cat_id") & "',nome='" & Request.Form("nome") & "',descricaop='" & Request.Form("descricaop") & "',descricaog='" & Request.Form("descricaog") & "',descricaoh='" & Request.Form("descricaoh") & "',preço='" & Request.Form("preço") & "',imagem='" & Request.Form("imagem") & "',disp='" & Request.Form("disp") & "' WHERE id=" & prod_id) %> <tr width=100%><td width=100%><h4>Produto Atualizado</h4></td></tr> <% End Select If Not (lista = "não") Then 'Exibe produto set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE id=" & prod_id) set lista_categoria = lojaDB.Execute("SELECT * FROM categorias WHERE id=" & lista_produtos("cat_id")) set lista_pedidos = lojaDB.Execute("SELECT * FROM pedidos WHERE prod_id=" & lista_produtos("id")) If Not (lista_categoria.EOF) Then tempcat = lista_categoria("id") End If If Not (lista_produtos.EOF) Then If lista_pedidos.EOF Then pedidos = 0 Else pedidos = 0 lista_pedidos.MoveFirst While Not lista_pedidos.EOF pedidos = pedidos + 1 lista_pedidos.MoveNext Wend End If %> <tr width=100%><td width=100%> <form method=post action="./con_prod_detalhes.asp?prod_id=<%=prod_id%>&acao=atualizar"> <table border=1 width=100%> <tr valign=top><td width=1%>Id :</td><td><%=lista_produtos("id")%></td></tr> <tr valign=top><td width=1%>Nome :</td><td><input type=text maxlength=50 size=50 name=nome value="<%=lista_produtos("nome")%>"></td></tr> <tr valign=top><td width=1%>Categoria :</td><td> <select name=cat_id> <option value=nulo>Selecione uma Categoria</option> <% set lista_categoria = lojaDB.Execute("SELECT * FROM categorias") While not lista_categoria.EOF %> <option value="<%=lista_categoria("id")%>" <%If (lista_categoria("id") = tempcat) Then Response.Write "selected" End If%>><%=lista_categoria("nome")%></option> <% lista_categoria.MoveNext Wend %> </select></td></tr> <tr valign=top><td width=1%>Descrição resumida :</td><td><input type=text maxlength=100 size=50 name=descricaop value="<%=lista_produtos("descricaop")%>"></td></tr> <tr valign=top><td width=1%>Fabricante :</td><td><input type=text maxlength=255 size=50 name=descricaog value="<%=lista_produtos("descricaog")%>"></td></tr> <tr valign=top><td width=1%>Detalhes :</td><td><textarea cols="37" rows="5" name=descricaoh value="<%=lista_produtos("descricaoh")%>"></textarea></td></tr> <tr valign=top><td width=1%>Preço :</td><td>R$&nbsp;<input type=text size=8 name=preço value="<%=lista_produtos("preço")%>"></td></tr> <tr valign=top><td width=1%>Imagem :</td><td><input type=text size=50 name=imagem value="<%=lista_produtos("imagem")%>"></td></tr> <tr valign=top><td width=1% valign=top>Visualização:</td><td><img src="../images/<%=lista_produtos("imagem")%>"></td></tr> <tr valign=top><td width=1%>Disponível :</td><td> <select name=disp> <option value="S" <%If lista_produtos("disp")="S" Then Response.Write "selected" End If%>>Sim</option> <option value="N" <%If lista_produtos("disp")="N" Then Response.Write "selected" End If%>>Não</option> </select></td></tr> <tr valign=top><td width=1%>Pedidos&nbsp;Vinculados :</td><td><%=pedidos%></td></tr> <tr valign=top align=center><td width=1% align=right> <input type=submit value="Atualizar" name=acao onClick="this.value='Aguarde!'"></form> </td><td align=left> <form method=post action="./con_prod_detalhes.asp?prod_id=<%=prod_id%>&acao=apagar"> <input type=submit value="Apagar" onClick="this.value='Aguarde!'"> </form> </td></tr> <tr valign=top><td colspan=2 align=center> <p>Ao apagar o produto todos os pedidos vinculados ficarão sem as informações do nome do produto. <br>Antes de remover um produto recomendamos que você remova os pedidos vinculados.</p> <p>A alteração no preço não afetará os pedidos fechados.</p> </td></tr> </table></td></tr> <% End If End If %> </table>

Boa tarde pessoal, Estou com um problema, tenho em um formulário de cadastro de produtos um texarea que quando faço o cadastro ele executa normalmente mas quando vou editar as informações em outro formulário ele nãi tráz as informações na tela... Pode me ajudar? Grato a todos!

Valeu Bareta, Já consegui resolver o problema no arquivo. Obrigado pela ajuda. Abraço Ps. Pode fechar o tópico.

Corrigindo então, So vivendo e aprendendo... hehehehehehehe

O galera ainda aguardo uma solução!!! Obrigado a todos que puderem ajudar.

Valeu pessoal pela ajuda, podem fechar o tópico que ficou bala o script! Abraço a todos.

O galera será que ninguém pode ajudar nesta tarefa??? Abraço a todos

Boa noite, No código a seguir quando vou excluir um usuário cadastrado aparece o erro: Microsoft OLE DB Provider for ODBC Drivers (0x80020009) O identificador de linha referia-se a uma linha excluída ou marcada para exclusão. Agradeço mais uma vez aos que ajudarem. <table border=0 width=100%> <tr width=100%><td width=100%><h2>Lista de Administradores</h2></td></tr> <% Dim lista_admin,malha1,temp1 If Request.QueryString("acao") = "exclui" Then set lista_admin = lojaDB.Execute("SELECT * FROM admin") temp1 = 0 While not lista_admin.EOF temp1 = temp1 + 1 lista_admin.MoveNext Wend If temp1 = 1 Then %> <tr width=100%><td width=100%><font color=red>Existe somente um usuário cadastrado. Não é possível excluir esse administrador.</font></tr> <% Else set lista_admin = lojaDB.Execute("SELECT usuario FROM admin WHERE id=" & Request.QueryString("id")) lojaDB.Execute("DELETE FROM admin WHERE id=" & Request.QueryString("id")) %> <tr width=100%><td width=100%><font color=red>Administrador <b><%=lista_admin("usuario")%></b> removido com sucesso.</font></tr> <% End If End If set lista_admin = lojaDB.Execute("SELECT * FROM admin") %> <tr width=100%><td width=100%><table border=1 width=100%> <tr width=100%><th width=5%>Id</th><th>Usuário</th><th>Excluir</th></tr> <% malha1 = "sim" temp1 = 0 While not lista_admin.EOF %> <tr width=100% class=<%=malha1%>><td align=center width=1%><%=lista_admin("id")%></td><td><%=lista_admin("usuario")%></td> <td align=center><a href="./exclui_admin.asp?acao=exclui&id=<%=lista_admin("id")%>">Excluir</a></td> <% temp1 = temp1 + 1 lista_admin.MoveNext If malha1 = "sim" Then malha1 = "não" Else malha1 = "sim" End If Wend %> </table> <tr width=100%><td>Total&nbsp;de&nbsp;Usuários:&nbsp;<%=temp1%></td></tr> <% %> </table>

Como dividir uma linha de 6 produtos em 2 de 3 produtos e paginar por departamento mostrando os 6 últimos produtos cadastrados no departamento? Obrigado a todos que puderem ajudar!!! <% '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 * FROM produtos ORDER BY imagem" rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3 'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset rsBuscaProdutos.PageSize = 6 '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>Paginacao</title> </head> <body> <% 'Iniciamos o Loop rsBuscaProdutos.AbsolutePage = intpagina intrec = 0 While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof %> <center> <td><table width="100%" border="0" cellpadding="0" cellspacing="3" bgcolor="white"> <tr> <td bgcolor="white"><table width="100%" border="5" cellspacing="0" cellpadding="0"> <tr> <td id="imagem"><center><img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0> <br> <font face="verdana" size="2" color="black"> <b> <%=rsBuscaProdutos("nome")%> <br> <font face="verdana" size="2" color="Red"> <%="R$: "%> <%=rsBuscaProdutos("preço")%>,00 </td> </tr> </td> </table> <% rsBuscaProdutos.MoveNext intrec = intrec + 1 if rsBuscaProdutos.eof then response.write " " end if Wend %> <tr> <td colspan="0" id="Dados"></td> <td id="Dados"> <% 'Criamos as Validações para a navegação "Anterior" e "Próximo" if intpagina>1 then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a> <% end if if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then %> <a href="paginacao.asp?pagina=<%=intpagina + 1%>">Proximo</a> <% end if rsBuscaProdutos.close Set rsBuscaProdutos = Nothing %> </td> </tr> </table> </body> </html>

Valeu ted K, vivendo (access) e aprendendo (access)... heheheheheh Obrigado.

Boa noite pessoal, Quando rodo este script ele apresenta os valores assim: R$ 100 quero que seja apresentado assim: R$ 100,00 o que está errado? OBS: No banco de dados no modo estrutura troquei as definições de número para moeda e mesmo assim continua dando erro quando faço o cadastro do produto Alguém pode me ajudar!!!!! <table border=0 width=100% height=40%> <tr valign=top> <% Dim prod_id,prod_nome,prod_descricaog,prod_preco,prod_imagem,prod_detalhe,url_comp prod_id = Request.querystring("prod_id") url_comp = Server.UrlEncode(Request.querystring("url_comp")) set prod_detalhe = lojaDB.Execute("SELECT * FROM produtos WHERE id="& prod_id &" AND disp='S'") prod_nome = prod_detalhe("nome") prod_descricaog = prod_detalhe("descricaog") prod_preco = prod_detalhe("preço") prod_imagem = prod_detalhe("imagem") prod_detalhe.Close set prod_detalhe = Nothing %> <td><h5><%=prod_nome%></h5> <img src=./images/<%=prod_imagem%> border=0> <p><%=prod_descricaog%></p> <p><b>Valor: R$ <%=prod_preco%></b></p> <p><form action=./carrocompras.asp method=get> <input type=hidden name=acao value=incluir> <input type=hidden name=prod_id value=<%=prod_id%>> <input type=hidden name=url_comp value="<%=url_comp%>"> </form> </p> <p align=center><a href="<%=Request.ServerVariables("HTTP_REFERER")%>">Voltar</a></p> </td> </tr> </table>

Tá, mas como boto o script pra funcionar? dentro da página paginacao.asp?

Bareta, E se eu quiser listar as imagens por id ou seja estas imagens estão subordinadas a um departamento então se eu quiser que a lista apareça por departamento mas mostrando as imagens? Como faço? Tens alguma dica? Obrigado. Cara quando faço o registro do valor dos produtos no formulário registro assim 100,00 mas ele grava no banco assim 100 tem algo que eu possa mudar pra qua isso fique como a opção 100,00 direto? Obrigado.

Opa, agora acertei o caminho... beleza e agora como colocar uma descrição embaixo de cada imagem??? heheheheheh

Olá Bareta, Obrigado por responder, mas não é o caminho da imagem pois testei cada uma das linhas que você citou e não apareceu nada continuou todo a mesma coisa... O que será que está errado???

Olá Pessoal, Espero que alguém me ajude... Tenho este código (que peguei aqui no fórum) e tentei adaptar a um banco que já tenho. Ele conecta e exibe o que preciso mas a imagem não aparece, preciso resolver isso... Obrigado a quem puder ajudar... <% 'Abrimos a Conexão com o Banco Dim caminho Dim conexao caminho = Server.MapPath("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 * FROM produtos ORDER BY imagem" rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3 'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset rsBuscaProdutos.PageSize = 5 '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>Tutorial de Paginação</title> <style> /* Criei estas CSSs somente para melhorar o layout da Tabela de Paginação. Vocês podem modificar ao seus gostos... usem e abusem...:) */ .TProdutos{ border: 1px solid #666666; margin: 2px 0px 2px 0px; background: #FFFFFF; border-collapse:collapse; width: 800px; } .TProdutos td { border: 0px solid #666666; border-collapse:collapse; } .TProdutos td#Titulo { border: 0px solid #666666; font: 7pt Verdana, Arial, Helvetica; height: 17px; background: #063d97; color:#FFFFFF; } .TProdutos td#Dados { border: 1px solid #CCCCCC; font: 7pt Verdana, Arial, Helvetica; height: 18px; background: #EAEFFF; color: #666666; } </style> </head> <body> <table border="0" class="Produtos"> <tr> <td width="190" id="Titulo">Imagem</td> </tr> <% 'Iniciamos o Loop rsBuscaProdutos.AbsolutePage = intpagina intrec = 0 While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof %> <tr> <td id="Imagem"><img src=./<%=imagem%> width="30" height="30" border=0></td> </tr> <% rsBuscaProdutos.MoveNext intrec = intrec + 1 if rsBuscaProdutos.eof then response.write " " end if Wend %> <tr> <td colspan="3" id="Dados"></td> <td id="Dados"> <% 'Criamos as Validações para a navegação "Anterior" e "Próximo" if intpagina>1 then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a> <% end if if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then %> <a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próximo</a> <% end if rsBuscaProdutos.close Set rsBuscaProdutos = Nothing %> </td> </tr> </table> </body> </html>

Ok, Obrigado

beleza, qual editor você usa posso tentar me adaptar a outro sem problemas mas preciso fazer isso funcionar de qualquer jeito!!! Obrigado.

Crimson Editor

Olá pessoal do fórum, Como sou iniciante em PHP gostaria de saber se alguém sabe como rodar php localmente para edição dos arquivos como as páginas asp com o IIS. Já tenho o easyphp instalado e rodando mas as páginas não abrem ou simplesmente não rodam perfeitamente aparecendo somente a index o resto nada aparece. Abrigado a todos. Celso

Boa noite! Preciso de um script desta forma mesmo com o uso de banco de dados e asp, não me referi a uma outra forma. Uso banco de dados .mdb e preciso de um código que facilite a inclusao de exclusão de produtos com descrição como nas lojas virtuais mas nada complicado só a inclusão e exclusão mesmo mas com área administrativa para poder coloca-lo no meu site e facilitar minha vida e a vida dos meus clientes. Obrigado a todos pela atenção e espero que me ajudem. Abraço!!!

Poxa pessoal vão me deixar na mão???