(Resolvido) Exibição de Informações do Banco de Dados

[Legionáriors]

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!

[jothaz]

Seja mais explicito pois fica muito mais dificil ajudar as cegas.

Post a parte do códgo que deveria trazer a informação.

Agora se o valor esta sendo cadastrado corretamente no bd provalvemente existe algum problema na consulta.

[Legionáriors]

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>

Editado Setembro 2, 2008 por Legionáriors

[jothaz]

Só mesmo com um toque quando for postar os códigos coloque a marcação

 porque senão fica uma zona.

Tenta imprimir o campo:

<tr valign=top><td width=1%>Id :</td><td><%=lista_produtos("id")%></td></tr>
<%
response.write "nome = " & lista_produtos("nome")
%>
<tr valign=top><td width=1%>Nome :</td><td><input type=text maxlength=50 size=50 name=nome value="<%=lista_produtos("nome")%>"></td></tr>

Retorna algum erro ou só imprime em branco?

[Legionáriors]

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´...

[Legionáriors]

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...

[Legionáriors]

Pessoal,

beleza já consegui arrumar.

Grato a quem ajudou.

Abraço

Ps. Podem fechar o tópico.

Obrigado.