Erro na listagem de produtos.

[Paulo C. Jr.]

Pessoal gostaria da ajuda de vocês na resolução deste problema.

Observem este link: http://www.lizbordados.com/loja/painel/Produtos.asp

A lista de produtos do centro exibe abaixo de cada produto algumas opçõeszinhas como atualizar, apagar e etc... Notem que se você for apagar algum itém ele exibe um mas quer pagar outro, isso só com os produtos do centro da página.

Poderia me ajudar a resolver isso...

Veja o código responsável por listar os produtos do centro:

<%
Set ProdutosDestaque1 = Server.CreateObject("ADODB.Recordset")
 ProdutosDestaque1.CursorType = 3
 ProdutosDestaque1.Open("SELECT * FROM Produtos WHERE Destaque = On AND Status = On"), Banco
  If not ProdutosDestaque1.EOF Then
   ProdutosDestaque1Total = ProdutosDestaque1.RecordCount
   Randomize()
   ProdutosDestaque1Valor = Int(Rnd * ProdutosDestaque1Total)
   ProdutosDestaque1.Move(ProdutosDestaque1Valor)
  Else
   ProdutosDestaque1Desativar = 1
  End If
  
  If Not ProdutosDestaqueDesativar1 = 1 Then
%>

Código completo da página:

<!--#include file="../Includes/Config.asp"-->
<!--#include file="../Includes/ADOVBS.inc"-->
<link href="../Includes/Styles.css" rel="stylesheet" type="text/css">
<%
Call AbreBanco



Dim VarCategoria
Dim VarSubCategoria
Dim VarBuscaTexto
Dim VarAct
Dim VarAct2
Dim Produtos
Dim Categoria
Dim SubCategoria
Dim VarPagina
Dim TotaldePaginas
Dim IntI
Dim ProdutosDestaque1
Dim ProdutosDestaque1Desativar
Dim ProdutosDestaque1Valor
Dim ProdutosDestaque1Total

VarCategoria = Request("Categoria")
VarSubCategoria = Request.QueryString("SubCategoria")
VarBuscaTexto = Request("BuscaTexto")
VarAct2 = Request.QueryString("Act2")
Session("Endereco") = Request.ServerVariables("SCRIPT_NAME") &"?"& Request.ServerVariables("QUERY_STRING")



VarAct = Request.QueryString("Act")



If Request.QueryString("Pagina") = "" Then
 VarPagina = 1

Else



 VarPagina = Request.QueryString("Pagina")
 Select case VarAct
  Case "Anterior"
   VarPagina = VarPagina - 1
  Case "Proxima"
   VarPagina = VarPagina + 1
 End select

End If



Set Produtos = Server.CreateObject("ADODB.RecordSet")
Produtos.CursorLocation = adUseClient
Produtos.CursorType = adOpenStatic
Produtos.CacheSize = TotalPorPagina



If VarAct2 = "" and VarCategoria <> "" and VarSubCategoria = "" Then



 Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& VarCategoria &"'")

 Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"&VarCategoria&"' And Estoque > 0 AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText

Elseif VarAct2 = "" and VarSubCategoria <> "" Then

 Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& VarCategoria &"'")

 Set SubCategoria = Banco.Execute("SELECT * FROM SubCategorias WHERE Cod LIKE '"& VarSubCategoria &"'")

 Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"& VarCategoria &"' And Estoque > 0 AND CodSubCategoria LIKE '"&VarSubCategoria&"' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText

Elseif VarAct2 = "Busca" and VarCategoria = "0" and VarBuscaTexto <> "" Then



 Produtos.Open "SELECT * FROM Produtos WHERE NomeProduto LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '%"& VarBuscaTexto &"%' AND Status = On And Estoque > 0 ORDER BY NomeProduto ASC", Banco, , , adCmdText



Elseif VarAct2 = "Busca" and VarBuscaTexto <> "" and VarCategoria <> "0" Then



 Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& VarCategoria &"'")

 Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"& VarCategoria &"' AND Estoque > 0 AND NomeProduto LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '"& VarBuscaTexto &"' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText



Elseif VarAct2 = "Busca" and VarBuscaTexto = "" Then



 Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"& VarCategoria &"' And Estoque > 0 AND NomeProduto LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '"& VarBuscaTexto &"' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText



ElseIf VarAct2 = "" and VarCategoria = "" and VarSubCategoria = "" Then



 Produtos.Open "SELECT * FROM Produtos Where Estoque > 0 ORDER BY Cod Desc", Banco, , , adCmdText



End If



%>

[jow]

Ópá beleza, então cara você está kerendo apagar ou alterar algum produto e le está executando outro ?

[.Andreia.]

então, não consegui ver porque o link direciona para tela de login no admistrativo...

Mas você está passando e pegando o ID dos produtos corretamente? faça o bom e velho DEBUG:

clique num produto por exemplo "Abilio Diniz: Caminhos e Escolhas" codigo 84. De um response.write no codigo na tela de edição e veja se 84 ainda. Depois imprima a consulta ao banco e se é 84 tambem...

[jow]

Bom dia;

também não consegui ver o link porque direciona para a página administrativa, é isso ai q andreia_sp disse, você deve deve passar o ID atráves do link

<a href="#?acao=<%=variavelConexao("campo")%>">#</a>

e resgata na página onde você exclui os dados assim:

id1=request.form("acao"), e no comando DELETE * FROM tabela WERE id="&id1

Editado Junho 4, 2008 por jow