Legionáriors

Rafael, Cara já consegui fazer descadastrar tá tudo + ou - ok. Infelizmente não consegui fazer tudo pela página de cadastramento de produto tive que criar uma página de promoções e uma de lançamentos para atender a necessidade de urgencia do meu cliente. Criei uma página parecida com aquela de painel de produtos que você me ajudou a montar. Mais adiante vou analisar a fundo a lógica do código (tomara que eu consiga) para fazer tudo pela página de cadastro do produto sem precisar mais das páginas extras que criei. Abraço e muito obrigado pela ajuda mais uma vez. Pode fechar o tópico.

Boa noite Rafael, Então devo colocar o valor da checkbox como "OFF". Isso eu já fiz. E no restante devo acrescentar algo para que funcione? chcPromocao = request.form ("chcPromocao") if chcPromocao = ON then call insert_promocaoo elseif chcPromocao = "" then call insert_normal end if 'Depois você faz uma sub com dois inserts normal e prmoção e uma sub só pro insert normal... sub insert_promocao() 'instrução de insert na tabela normal '... 'instrução de insert na tabela promoções '... end sub sub insert_normal() 'instrução de insert na tabela normal '... end sub Obrigado, abraço.

Então... E se no meu select já existe um where? Qual a maneira correta para ocorrer mais de uma interpretação de where? ("SELECT nome FROM produtos WHERE nome='"& Request.Form("nome") & "'") E como modificar este sql para tal? sql = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[id])-Now()*[cat_id])" E para descadastrar? Abraço.

Certo Rafael, Mas na verdade não seria uma tabela onde deveria ser inserido e sim deve fazer uma referencia a uma tabela do banco onde existe somente a id da categoria. Por exemplo meu banco está montado desta forma: admin - Login dos usuários administrativos - Campos: id - usuário - senha categorias - catagorias cadastradas - Campos: id - nome clientes - Cadastro de clientes - Campos: id - usuário - etc... msg_status - Mensagens - Campos: id - mensagem - entregue pedidos - Pedidos - Campos: id - ped_id - etc... produtos - Produtos cadastrados - Campos: id - cat_id - nome - descricaop - descricaog - descricaoh - condicoes - preço - imagem - disp - chcpromocao (criei depois que você me passou o código para alterar trabalhe - Cadastro de candidatos a funcionarios - Campos: id - usuário - etc... Então eu deveria criar o campo chcpromocao na tabela categorias para que houvesse a referencia com o id dos produtos cadastrados ou teria como fazer esta referencia com o campo criado na tabela produtos??? Já consegui fazer a seleção funcionar e inclusive aparece cadastrado no banco como "on" mas o produto cadastrado não está aparecendo na página de promoções só na página da categoria normal (ex. categoria Áudio). Abraço e desculpe o encomodo.

beleza, Gostaria que você só me orientasse mais sobre o insert pois quero que o produto seja mostrado na página de promoções e na página normal e não somente mostrar uma referencia de que este produto está em promoção pois no banco o id de promoções é um e o das outras categorias são outros por exemplo se vou cadastrar um telefone celular e quero que ele apareça na categoria celulares o id dos celulares é 1 e o id de promoções é 2. Desculpe a minha ignorância pois não tenho nenhum curso e já peguei este projeto em andamento. Obrigado mais uma vez e desculpe o encomodo! Abraço.

Rafael Amigo, To todo perdido se puder me ajudar agradeço. Fiz algumas alterações de acordo com o que você me passou e deu nisso aí... Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A03EA) Erro de sintaxe /Projetos/Projetos em Aberto/Projeto Lojas Adri/Projeto Lojas Adri/admin/cad_prod.inc, line 15, column 46 If (Request.Form("chcPromocao") = "") Then ON = "call insert_promocao" else if chcPromocao = "" then call insert_normal End If Segue o código. Não me acertei nem em colocar a sub que você falou não sei em que lugar coloca-la dentro do código. <table border=0 width=100%> <tr width=100%><td width=100%><h2>Produtos</h2></td></tr> <% Dim acao,lista_categoria acao = Request.QueryString("acao") If acao="incluir" Then If (Request.Form("cat_id") = "nulo") Then acao = "erro" End If If (Request.Form("nome") = "") Then acao = "erro" End If If (Request.Form("descricaop") = "") Then acao = "erro" End If If (Request.Form("descricaog") = "") Then acao = "erro" End If If (Request.Form("descricaoh") = "") Then acao = "erro" End If If (Request.Form("preço") = "") Then acao = "erro" End If If (Request.Form("condicoes") = "") Then acao = "erro" End If If (Request.Form("imagem") = "") Then acao = "erro" End If If (Request.Form("chcPromocao") = "") Then ON = "call insert_promocao" else if chcPromocao = "" then call insert_normal End If If (Request.Form("disp") = "") Then acao = "erro" End If 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") condicoes = Request.Form("condicoes") imagem = Request.Form("imagem") disp = Request.Form("disp") End If If acao = "incluir" AND cat_id = "nulo" Then %> <tr width=100%><td width=100% valign=top><font color=red>Selecione uma categoria.</font></td></tr> <% acao = "erro" End If If acao = "erro" Then %> <tr width=100%><td width=100% valign=top><font color=red>Problema no preenchimento do formulário.</font></td></tr> <% End If If acao = "incluir" Then Dim chk_prod,cat_id,nome,descricaop,descricaog,descricaoh,preço,condicoes,imagem,disp set chk_prod = lojaDB.Execute("SELECT nome FROM produtos WHERE nome='"& Request.Form("nome") & "'") If Not (chk_prod.EOF) Then %> <tr width=100%><td width=100% valign=top><font color=red>Já existe um outro produto cadastrado com esse nome.</font></td></tr> <% Else lojaDB.Execute("INSERT INTO produtos(cat_id,nome,descricaop,descricaog,descricaoh,preço,condicoes,imagem,disp)" & _ "VALUES('" & cat_id & "','" & nome & "','" & descricaop & "','" & _ descricaog & "','" & descricaoh & "','" & preço & "','" & condicoes & "','" & imagem & "','" & disp & "')") %> <tr width=100%><td width=100% valign=top><h3>O produto foi cadastrado com sucesso</h3></td></tr> <% acao = "ok" End If End If If Not (acao = "ok") Then %> <tr width=100%><td width=100%><h3>Cadastro de Produtos</h3></tr> <tr width=100% align=left><td width=100%> <form method=post name=cadastro action=./cad_prod.asp?acao=incluir> <table border=1 width=1%> <tr valign=top><td width=1%>Nome :</td><td><input type=text maxlength=50 size=50 name=nome value="<%=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") = cat_id) 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&nbsp;resumida&nbsp;:</td><td><input type=text maxlength=100 size=50 name=descricaop value="<%=descricaop%>"></td></tr> <tr valign=top><td width=1%>Fabricante&nbsp;:</td><td><input type=text maxlength=255 size=50 name=descricaog value="<%=descricaog%>"></td></tr> <tr valign=top><td width=1%>Detalhes&nbsp;:</td><td><textarea cols="37" rows="5" name=descricaoh value="<%=descricaoh%>">Apague este texto e escreva os detalhes não esquecendo de colocar <br> ao fim de cada detalhe se não não haverá quebra de linha!</textarea></td></tr> <tr valign=top><td width=1%>Preço :</td><td>R$&nbsp;<input type=text size=8 name=preço value="<%=formatnumber(preço,2)%>"></td></tr> <tr valign=top><td width=1%>Condições&nbsp;:</td><td><input type=text maxlength=255 size=50 name=condicoes value="<%=condicoes%>"></td></tr> <tr valign=top><td width=1%>Imagem :</td><td><input type=text size=50 name=imagem value="<%=imagem%>"></td></tr> <tr valign=top><td width=1%>Incluir como Promoção?</td><td><input name="chcPromocao" type="checkbox" id="chcPromocao" value="ON"></td><td> <tr valign=top><td width=1%>Mostrar Produto :</td><td> <select name=disp> <option value="S" <% If acao = "erro" Then If disp = "S" Then Response.Write "selected" End If Else %>selected<% End If%>>Sim</option> <option value="N" <%If disp = "N" Then Response.Write "selected" End If%>>Não</option> </select></td></tr> <tr align=center width=100%><td><input type=submit value="Cadastrar" onClick="this.value='Aguarde!'"></td></tr> </table> </form> </td></tr> <% End If %> </table> <font face="verdana" size="2" color="black"> <b>Aqui você pode enviar as imagens para o servidor! <br> <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="UploadScript1.asp"> <INPUT TYPE="FILE" SIZE="40" NAME="FILE1"><BR> <INPUT TYPE="FILE" SIZE="40" NAME="FILE2"><BR> <INPUT TYPE="FILE" SIZE="40" NAME="FILE3"><BR> <INPUT TYPE=SUBMIT VALUE="Upload!"> </font> </FORM>

Boa noite Carlos, Como foi dito você deve ter o cd do windows xp pra poder instalar o IIS ou então conseguir baixa-lo na net. Se você tiver o cd aqui vão algumas dicas para a instalação do IIS Depois de colocar o cd no drive você vai no painel de controle abre o adicionar e remover programas e entra em adicionar/remover componentes do windows vai abrir a janela do asistente de componentes do windows. Ali você procura o Internet Information Services (IIS) seleciona este item e clica em avançar depois de terminada a instalação (que por sinal não pede nenhuma confirmação) clique em concluir. Depois abra novamente o painel de controle e procure o item Ferramentas Administrativas clique sobre ele e procure lá dentro o Internet Information Services clique no ícone que vai abrir a janela para você colocar as configurações pra poder acessar o "localhost" que é a pasta onde vão ficar os teus arquivos ASP. Clique onde diz: "O NOME DO SEU COMPUTADOR" (computador local) que vai abrir os itens Sites da Web e Servidor Virtual SMTP Padrão. Clique somente em Sites da Web que vai abrir Site da Web Padrão neste item você clica com o botão direito do mouse e abra as propriedades onde vai configurar somente a aba que diz Diretório Base. Deixe selecionado o item "Um diretório localizado neste computador. Logo abaixo onde diz caminho local você procura a pasta onde você vai armazenar seus arquivos de criação (não precisa ser a pasta wwwroot como aparece pré configurado basta ser uma pasta que você saiba onde está). Abaixo existem algumas caixas de seleção que você pode selecionar todas elas, de um aplicar e um ok. Abra seu navegador e digite o endereço http://127.0.0.1 ou http://localhost que você entrará direno na pasta on estão os arquivos ASP. Com um editor qualquer até mesmo o bloco de notas você pode editar os seus arquivos ASP. Espero ter ajudado e como estamos todos em constante aprendizado segue a dica de quem já passou e passa trabalho quando encontra algo desconhecido mas que não desiste fácil. Hehehehehehehe. Abraço a todos e desculpem qualquer falha. Legionario

Será que alguém poderia me ajudar? Obrigado. Celso

Bom dia! É o seguinte. Este código que vou postar abaixo faz parte da área administrativa do site de um cliente meu onde nesta página é possivel cadastrar os produtos da loja dele. Nesta página existe uma opção (pronta já) que se selecionada sim ou não mostra ou oculta o produto na categoria onde for cadastrada. Bom, preciso que seja criada uma opção parecida com esta que já existe porém quero que esta nova opção aloque o produto que está sendo cadastrado, nas catagorias PROMOÇÕES ou OFERTAS ao mesmo tempo em que o cadastro é feito na categoria que é informada no começo do formulário. <table border=0 width=100%> <tr width=100%><td width=100%><h2>Produtos</h2></td></tr> <% Dim acao,lista_categoria acao = Request.QueryString("acao") If acao="incluir" Then If (Request.Form("cat_id") = "nulo") Then acao = "erro" End If If (Request.Form("nome") = "") Then acao = "erro" End If If (Request.Form("descricaop") = "") Then acao = "erro" End If If (Request.Form("descricaog") = "") Then acao = "erro" End If If (Request.Form("descricaoh") = "") Then acao = "erro" End If If (Request.Form("preço") = "") Then acao = "erro" End If If (Request.Form("condicoes") = "") Then acao = "erro" End If If (Request.Form("imagem") = "") Then acao = "erro" End If If (Request.Form("disp") = "") Then acao = "erro" End If 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") condicoes = Request.Form("condicoes") imagem = Request.Form("imagem") disp = Request.Form("disp") End If If acao = "incluir" AND cat_id = "nulo" Then %> <tr width=100%><td width=100% valign=top><font color=red>Selecione uma categoria.</font></td></tr> <% acao = "erro" End If If acao = "erro" Then %> <tr width=100%><td width=100% valign=top><font color=red>Problema no preenchimento do formulário.</font></td></tr> <% End If If acao = "incluir" Then Dim chk_prod,cat_id,nome,descricaop,descricaog,descricaoh,preço,condicoes,imagem,dis p set chk_prod = lojaDB.Execute("SELECT nome FROM produtos WHERE nome='"& Request.Form("nome") & "'") If Not (chk_prod.EOF) Then %> <tr width=100%><td width=100% valign=top><font color=red>Já existe um outro produto cadastrado com esse nome.</font></td></tr> <% Else lojaDB.Execute("INSERT INTO produtos(cat_id,nome,descricaop,descricaog,descricaoh,preço,condicoes,imagem,disp)" & _ "VALUES('" & cat_id & "','" & nome & "','" & descricaop & "','" & _ descricaog & "','" & descricaoh & "','" & preço & "','" & condicoes & "','" & imagem & "','" & disp & "')") %> <tr width=100%><td width=100% valign=top><h3>O produto foi cadastrado com sucesso</h3></td></tr> <% acao = "ok" End If End If If Not (acao = "ok") Then %> <tr width=100%><td width=100%><h3>Cadastro de Produtos</h3></tr> <tr width=100% align=left><td width=100%> <form method=post name=cadastro action=./cad_prod.asp?acao=incluir> <table border=1 width=1%> <tr valign=top><td width=1%>Nome :</td><td><input type=text maxlength=50 size=50 name=nome value="<%=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") = cat_id) 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&nbsp;resumida&nbsp;:</td><td><input type=text maxlength=100 size=50 name=descricaop value="<%=descricaop%>"></td></tr> <tr valign=top><td width=1%>Fabricante&nbsp;:</td><td><input type=text maxlength=255 size=50 name=descricaog value="<%=descricaog%>"></td></tr> <tr valign=top><td width=1%>Detalhes&nbsp;:</td><td><textarea cols="37" rows="5" name=descricaoh value="<%=descricaoh%>">Apague este texto e escreva os detalhes não esquecendo de colocar <br> ao fim de cada detalhe se não não haverá quebra de linha!</textarea></td></tr> <tr valign=top><td width=1%>Preço :</td><td>R$&nbsp;<input type=text size=8 name=preço value="<%=formatnumber(preço,2)%>"></td></tr> <tr valign=top><td width=1%>Condições&nbsp;:</td><td><input type=text maxlength=255 size=50 name=condicoes value="<%=condicoes%>"></td></tr> <tr valign=top><td width=1%>Imagem :</td><td><input type=text size=50 name=imagem value="<%=imagem%>"></td></tr> <tr valign=top><td width=1%>Disponível :</td><td> <select name=disp> <option value="S" <% If acao = "erro" Then If disp = "S" Then Response.Write "selected" End If Else %>selected<% End If%>>Sim</option> <option value="N" <%If disp = "N" Then Response.Write "selected" End If%>>Não</option> </select></td></tr> <tr align=center width=100%><td><input type=submit value="Cadastrar" onClick="this.value='Aguarde!'"></td></tr> </table> </form> </td></tr> <% End If %> </table> Espero que de certo! Abraço. Celso

Boa noite Rafael, Certo entendi o que quis dizer mas não estou conseguindo alocar no restante do meu código para fazer funcionar. Abraço.

Daí Rafael tudo beleza amigo, Isso mas não quero ter que preencher 2 formulários só duas caixas de seleção uma com promoção e outra com lançamentos. Valeu! Abraço.

Boa noite pessoal!!! O negócio é o seguinte: Tenho um painel de produtos com área administrativa para cadastramento e quero que na hora do cadastro exista a opção de para cadastrar o produto (que já existe claro) e uma caixa de seleção para exibi-lo em uma página onde existem produtos especificamente em promoção ou em oferta. Sei que é possivel pois já vi isso mas não estou sabendo como fazer alguém poderia me ajudar em mais esta tarefa difícil? Abraço a todos! Ps. Abaixo segue o código da página de cadastro. <table border=0 width=100%> <tr width=100%><td width=100%><h2>Produtos</h2></td></tr> <% Dim acao,lista_categoria acao = Request.QueryString("acao") If acao="incluir" Then If (Request.Form("cat_id") = "nulo") Then acao = "erro" End If If (Request.Form("nome") = "") Then acao = "erro" End If If (Request.Form("descricaop") = "") Then acao = "erro" End If If (Request.Form("descricaog") = "") Then acao = "erro" End If If (Request.Form("descricaoh") = "") Then acao = "erro" End If If (Request.Form("preço") = "") Then acao = "erro" End If If (Request.Form("condicoes") = "") Then acao = "erro" End If If (Request.Form("imagem") = "") Then acao = "erro" End If If (Request.Form("disp") = "") Then acao = "erro" End If 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") condicoes = Request.Form("condicoes") imagem = Request.Form("imagem") disp = Request.Form("disp") End If If acao = "incluir" AND cat_id = "nulo" Then %> <tr width=100%><td width=100% valign=top><font color=red>Selecione uma categoria.</font></td></tr> <% acao = "erro" End If If acao = "erro" Then %> <tr width=100%><td width=100% valign=top><font color=red>Problema no preenchimento do formulário.</font></td></tr> <% End If If acao = "incluir" Then Dim chk_prod,cat_id,nome,descricaop,descricaog,descricaoh,preço,condicoes,imagem,disp set chk_prod = lojaDB.Execute("SELECT nome FROM produtos WHERE nome='"& Request.Form("nome") & "'") If Not (chk_prod.EOF) Then %> <tr width=100%><td width=100% valign=top><font color=red>Já existe um outro produto cadastrado com esse nome.</font></td></tr> <% Else lojaDB.Execute("INSERT INTO produtos(cat_id,nome,descricaop,descricaog,descricaoh,preço,condicoes,imagem,disp)" & _ "VALUES('" & cat_id & "','" & nome & "','" & descricaop & "','" & _ descricaog & "','" & descricaoh & "','" & preço & "','" & condicoes & "','" & imagem & "','" & disp & "')") %> <tr width=100%><td width=100% valign=top><h3>O produto foi cadastrado com sucesso</h3></td></tr> <% acao = "ok" End If End If If Not (acao = "ok") Then %> <tr width=100%><td width=100%><h3>Cadastro de Produtos</h3></tr> <tr width=100% align=left><td width=100%> <form method=post name=cadastro action=./cad_prod.asp?acao=incluir> <table border=1 width=1%> <tr valign=top><td width=1%>Nome :</td><td><input type=text maxlength=50 size=50 name=nome value="<%=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") = cat_id) 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&nbsp;resumida&nbsp;:</td><td><input type=text maxlength=100 size=50 name=descricaop value="<%=descricaop%>"></td></tr> <tr valign=top><td width=1%>Fabricante&nbsp;:</td><td><input type=text maxlength=255 size=50 name=descricaog value="<%=descricaog%>"></td></tr> <tr valign=top><td width=1%>Detalhes&nbsp;:</td><td><textarea cols="37" rows="5" name=descricaoh value="<%=descricaoh%>">Apague este texto e escreva os detalhes não esquecendo de colocar <br> ao fim de cada detalhe se não não haverá quebra de linha!</textarea></td></tr> <tr valign=top><td width=1%>Preço :</td><td>R$&nbsp;<input type=text size=8 name=preço value="<%=formatnumber(preço,2)%>"></td></tr> <tr valign=top><td width=1%>Condições&nbsp;:</td><td><input type=text maxlength=255 size=50 name=condicoes value="<%=condicoes%>"></td></tr> <tr valign=top><td width=1%>Imagem :</td><td><input type=text size=50 name=imagem value="<%=imagem%>"></td></tr> <tr valign=top><td width=1%>Disponível :</td><td> <select name=disp> <option value="S" <% If acao = "erro" Then If disp = "S" Then Response.Write "selected" End If Else %>selected<% End If%>>Sim</option> <option value="N" <%If disp = "N" Then Response.Write "selected" End If%>>Não</option> </select></td></tr> <tr align=center width=100%><td><input type=submit value="Cadastrar" onClick="this.value='Aguarde!'"></td></tr> </table> </form> </td></tr> <% End If %> </table> <font face="verdana" size="2" color="black"> <b>Aqui você pode enviar as imagens para o servidor! <br> <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="UploadScript1.asp"> <INPUT TYPE="FILE" SIZE="40" NAME="FILE1"><BR> <INPUT TYPE="FILE" SIZE="40" NAME="FILE2"><BR> <INPUT TYPE="FILE" SIZE="40" NAME="FILE3"><BR> <INPUT TYPE=SUBMIT VALUE="Upload!"> </font> </FORM>

Boa noite Rafael, Obrigado pela ajuda amigo, vou ler a respeito sim. Abraço. Ps. Pode fechar o tópico.

Olá Rafael, Quero editar o arquivo por completo. Se possível poder trocar o nome dele tbém. Quero aquele sistema que existe nos painéis de controle de hospedagem tipo você seleciona o arquivo e edita o código dele e salva no mesmo local justamente pra não precisar baixar o arquivo e envialo novamente ou ter que ter um ftp a disposição. Se com asp é complicado será que facilita fazer isso somente para páginas em html? Espero que não tenha complicado muito. Abraço Legionário

Boa tarde amigos do Fórum, Gostaria de saber se existe alguma maneira de um arquivo ser editado dentro do site ou seja se eu tenho um painel de administração e um aplicativo em asp que me permita escolher um arquivo que está lá no servidor para ser editado trazendo este arquivo na tela e salvando o mesmo novamente no servidor. Agradeço a quem puder ajudar. Abraço Legionario.

Amigo boa noite, Então era isso mesmo. Obrigado por tudo e com certeza quando houver qualquer dúvida posto aqui sim. Abraço. Ps. Pode fechar o tópico.

Bom dia Rafael, Cara tudo na mais santa paz ainda mais agora que to finalizando esse bendito projeto. Bom ainda preciso fazer alguns ajustes mas nada sério e ainda preciso da tua ajuda se puderes claro!. 1 - Como fazer para as imagens dos produtos não ficarem destorcidas ou seja elas tem um ajuste pré definido com width="" height="" então nem todas as imagens tem o mesmo formato será que existe uma meneira defazer com que ela se ajuste automáticamente ao table? 2 - Existe uma maneira de aumentar o tamanho do espaço do campo no banco de dados, tipo os meus campos são de 255 tentei aumentar mas o Access deu erro dizendo que não era possivel. Se você souber uma maneira te peço que me conte essa mágica. No mais tudo as mil maravilhas amigo. Abraço forte e bom domingo. Legionário

Cara consegui deixar como eu quero e resolvi o problema da imagem que mensionei acima. Bom agora só falta uma coisa. Como fazer funcionar o formatnumber com o response.write No momento está desta forma a linha: <%response.write rs("preço")%> Quero que apareçam as duas casas depois da virgula como aparece quando está assim: <%=formatnumber(prod_preco,2)%> O que devo fazer? Valeu pela ajuda amigo!!!!!!!! Abraço. Legionário.

Refael, Cara tá funcionando bala o script agora é questão de ajustar as tabelas pra ficar como eu quero mas isso vou quebrar a cabeça um pouquinho aqui e arrumar. Só uma coisa não está aparecendo a imagem do produto só o nome tipo: foto001.jpg O que será que devo mudar? Tentei algumas variações aqui e não deu carto podes verificar e me ajudar novamente? Cara valeu mesmo tá quase lá só falta o retoque final. Abraço.

Seguinte, Erro a vista... Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe (operador faltando) na expressão de consulta 'id ='. /Sites/Projeto Lojas Adri/Projeto Lojas Adri/teste.asp, line 8 Abraço

Certo, 1) Não é prod_id é só id. Seguem os campos do meu DB por ordem de coluna: id - cat_id - nome - descricaop - descricaog - descricaoh - preço - condicoes - imagem - disp 2) Não este código que você me mostrou faz sim o select dos produtos mas vindo de outra página que tem um link onde mostra a categoria do produto por exemplo o link Audio puxa esta segunda página que te mandei onde aparece a lintagem dos produtos daquela categoria. Nesta página tem um link em cada produto que direciona para o primeiro script que te mandei e este sim mostra os detalhes do produto. Abraço.

Vou te mostrar a página anterior a esta pra você ver se identifica de onde ven mas pelo que eu olhei não precisa deste prod_ . E o que vem depois deste prod_ é o campo do DB. <% Dim lista,cat_id,cat_nome,nome,lista_produtos,msgnada lista=Request.querystring("lista") cat_id=Request.querystring("cat_id") cat_nome=Request.querystring("cat_nome") nome=Request.querystring("nome") %> <table border=0 width=100%><tr width=100%><td width=100% valign=top><h5><%=cat_nome%></h5></td></tr> <% Select Case lista Case "categoria" set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE cat_id="& cat_id &" AND disp='S' ORDER BY nome") msgnada = "No momento não dispomos de nenhum produto neste departamento." Case "busca" set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE nome LIKE '%"& nome &"%' OR descricaop LIKE '%"& nome &"%' OR descricaog LIKE '%"& nome &"%' OR preço LIKE '%"& nome &"%' OR imagem LIKE '%"& nome &"%' AND disp='S' ORDER BY nome") msgnada = "Infelizmente não localizamos nenhum produto com esse nome." Case Else %> <script>window.location="./index.asp"</script> <% End Select If lista_produtos.EOF Then Response.Write "<tr><td><h5>" & msgnada & "</h5></td></tr>" Else %> <tr width=100%><td width=100%><table border=1 width="100%"> <tr><th>Imagem</th><th>Produto</th><th>Preço</th><th>Detalhes</th></tr></thead></tr> <% Dim prod_cat_id,prod_id,prod_imagem,prod_descricaop,prod_preco,malha1 malha1 = "sim" while not lista_produtos.EOF prod_cat_id = lista_produtos("cat_id") prod_id = lista_produtos("id") prod_imagem = lista_produtos("imagem") prod_descricaop = lista_produtos("descricaop") prod_preco = lista_produtos("preço") %> <tr width=100% valign=top class=<%=malha1%>><td><center><a href="./detalheprod.asp?prod_id=<%=prod_id%>&url_comp=<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>"><img src=./images/<%=prod_imagem%> width="30" height="30" border=0></td><td><%=prod_descricaop%></td><td>R$ <%=formatnumber(prod_preco,2)%></td> <td valign=top align=center> <a href="./detalheprod.asp?prod_id=<%=prod_id%>&url_comp=<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>"><img src="./images/lupa.gif" border=0></a> </td> </td> </tr> <% lista_produtos.movenext If malha1 = "sim" Then malha1 = "não" Else malha1 = "sim" End If wend End If lista_produtos.Close set lista_produtos = Nothing %> </table></td></tr> </table>

Ok, Te perguntei isso porque esse código que te falei já está em uso no site do meu cliente e exibe exatamente as informações que eu preciso + ou - assim: Nome do Produto Imagem do produto Preço do produto condições de pagamento link que volta ao painel de produtos Valeu!

beleza, E aquele código que eu mandei será que tem como modifica-lo para adaptar au que eu preciso? Valeu. Abraço.

beleza, Então, A paginaemconstrucao.htm é só para não deixar vazio. Não tenho nada iniciado tem que ser criada uma outra página onde seja mostrado o detalhamento. As informações que aparecerão são Imagem, Descrição, Preço e Condições. MAis um link de retorno a página inicial. As imformações vem de uma tabela chamada produtos que consta no DB e nesta tabela produtos existem os campor que quero exibir. As tabelas podem ser descritas como coloquei acima só como exemplo mesmo depois eu altero. Bem acho que é isso... ufa... Abraço. Tenho uma página que pode servir de base não sei eu tentei e não consegui adaptar. Segue... <table border=0 width=100% height=40%> <tr valign=top> <% Dim prod_id,prod_nome,prod_descricaog,prod_descricaoh,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_descricaoh = prod_detalhe("descricaoh") 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><%=prod_descricaoh%></p> <p><b>Valor: R$ <%=formatnumber(prod_preco,2)%></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>