<%=Application("NomeLoja")%>

<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: ADM_altera_produto.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 09/10/07 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Esta página só pode ser acessada se o visitante já se autenticou checa_senha() 'Verifica se o perfil de usuário permite acesso a esta página Call checa_perfil_admin(""&ADMProd&"") %> <% Call abre_conexao(conexao) codigo_produto = request("codigo_produto") %> <%=Application("NomeLoja")%>

• Alterar Produto

Retornar para busca de produtos

<% Call abre_conexao(conexao) 'Captura a mensagem da ação msg_resultado= request("msg_resultado") %>

<% If checkIdioma <> "" Then Set RS_Categoria = Server.CreateObject("ADODB.Recordset") RS_Categoria.CursorLocation = 3 RS_Categoria.CursorType = 0 RS_Categoria.LockType = 3 RS_Categoria.Open "SELECT sigla_idioma FROM Categorias WHERE codigo_categoria = " & request("codigo_categoria") & "", Conexao If Not RS_Categoria.EOF Then While Not RS_Categoria.EOF verifIdioma = ChecaValorArray(checkIdioma,RS_Categoria("sigla_idioma")) If verifIdioma Then checkIdiomaBDTemp = checkIdiomaBDTemp & RS_Categoria("sigla_idioma") & "," checkIdiomaBDTemp1 = Split(checkIdiomaBDTemp,",") If UBound(checkIdiomaBDTemp1) <> 0 Then checkIdiomaBD = checkIdiomaBDTemp End If If RS_Categoria("sigla_idioma") = varLang Then varAbaClass = "abasON" Else varAbaClass = "abas" End If %> <% End If RS_Categoria.MoveNext Wend End If RS_Categoria.Close Set RS_Categoria = Nothing End If %>

">');" class="TextoPageLink"><%=Sigla_IdiomaPais(RS_Categoria("sigla_idioma"))%>

<% If msg_resultado <> "" Then %> <% End If %> <%If InStr(checkIdiomaBD,",") <> 0 Then%> <%End if%> <% If checkIdiomaBD <> "" Then checkIdiomaBD = Mid(checkIdiomaBD,1,Len(checkIdiomaBD)-1) If InStr(checkIdiomaBD,",") = 0 Then Vetor = checkIdiomaBD VetorIdioma = Vetor VetorCount = 0 Else Vetor = Split(checkIdiomaBD, ",") VetorCount = Ubound(Vetor) End if For I = 0 To VetorCount If VetorIdioma = "" Then VetorIdioma = Vetor(I) End if If VetorIdioma = varLang Then verDisplay = "''" Else verDisplay = "none" End If Set RS_Produto = Server.CreateObject("ADODB.Recordset") RS_Produto.CursorLocation = 3 RS_Produto.CursorType = 0 RS_Produto.LockType = 3 RS_Produto.Open "SELECT codigo_chave, codigo_produto, codigo_categoria, codigo_subcategoria, codigo_marca, codigo_produto_loja, nome_produto, descricao_produto, autor, codigo_isbn, tamanhos, cores, preco_base, preco_unitario, desconto, moeda, quantidade_produto, img_produtoPQN, img_produtoGRD, img_produto_adic01PQN, img_produto_adic01GRD, img_produto_adic02PQN, img_produto_adic02GRD, img_produto_adic03PQN, img_produto_adic03GRD, peso, destaque_vitrine, promocao, data_inicio, data_fim, disponivel, sigla_idioma FROM Produtos WHERE codigo_produto = " & codigo_produto & " AND sigla_idioma = '"& VetorIdioma &"'", Conexao If Not RS_Produto.EOF Then nome_produto = RS_Produto("nome_produto") codigo_categoria = RS_Produto("codigo_categoria") codigo_subcategoria = RS_Produto("codigo_subcategoria") codigo_marca = RS_Produto("codigo_marca") codigo_produto_loja = RS_Produto("codigo_produto_loja") codigo_isbn = RS_Produto("codigo_isbn") If RS_Produto("preco_unitario") <> "" Then preco_unitario = FormatNumber(RS_Produto("preco_unitario")) End if codigo_marca = RS_Produto("codigo_marca") peso = RS_Produto("peso") quantidade_produto = RS_Produto("quantidade_produto") cores = RS_Produto("cores") tamanhos = RS_Produto("tamanhos") destaque_vitrine = RS_Produto("destaque_vitrine") disponivel = RS_Produto("disponivel") promocao = RS_Produto("promocao") img_produtoGRD = RS_Produto("img_produtoGRD") img_produtoPQN = RS_Produto("img_produtoPQN") img_produto_adic01GRD = RS_Produto("img_produto_adic01GRD") img_produto_adic01PQN = RS_Produto("img_produto_adic01PQN") img_produto_adic02GRD = RS_Produto("img_produto_adic02GRD") img_produto_adic02PQN = RS_Produto("img_produto_adic02PQN") img_produto_adic03GRD = RS_Produto("img_produto_adic03GRD") img_produto_adic03PQN = RS_Produto("img_produto_adic03PQN") desconto = RS_Produto("desconto") data_inicio = RS_Produto("data_inicio") data_fim = RS_Produto("data_fim") If RS_Produto("descricao_produto") <> "" Then descricao_produto = RS_Produto("descricao_produto") Else descricao_produto = Empty End If If RS_Produto("codigo_chave") <> "" Then codigo_chave = RS_Produto("codigo_chave") Else codigo_chave = 0 End If Else descricao_produto = Empty nome_produto = Empty codigo_chave = 0 End If If VetorIdioma = varLang Then verDisplay = "''" Else verDisplay = "none" End If RS_Produto.Close Set RS_Produto = Nothing %> <% VetorIdioma = "" Next End If %>

<%=msg_resultado%>

INFORMAÇÕES VARIAVEIS NO SITE CONFORME IDIOMA

<% If VetorCount <> 0 Then If codigo_chave <> Empty Then%> <%Else%> <% End If End If %>

APAGAR ESTE PRODUTO DESTE IDIOMA

PRODUTO NÃO CADASTRADO PARA ESTE IDIOMA

NOME DO PRODUTO

DESCRIÇÃO DO PRODUTO

<% Dim sBasePath sBasePath = Request.ServerVariables("PATH_INFO") sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) ) Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = sBasePath oFCKeditor.Value = descricao_produto oFCKeditor.Height = "300" oFCKeditor.Width = "100%" oFCKeditor.Create "descricao_produto|"&VetorIdioma %>

<%If VetorCount <> 0 Then%> <%End if%> <%If VerificaExistenciaDado("codigo_categoria","subcategorias","codigo_categoria",request("codigo_categoria")) Then%> <%Else%> <%End if%> <%If VerificaExistenciaDado("codigo_marca","marcas",codigo_marca,VAZIO) Then%> <%Else%> <%End if%> <%If VerificaExistenciaDado("codigo_cor","cores",VAZIO,VAZIO) Then%> <%End if%> <%If VerificaExistenciaDado("codigo_tamanho","tamanhos",VAZIO,VAZIO) Then%> <%End if%> <% If disponivel = "1" Then checkedDisponivel = "checked" End if %> <% If destaque_vitrine = "1" Then checkedVitrine = "checked" End if %> <% If promocao = "1" Then checked = "checked" displayVisib = "" else checked = "" displayVisib = "none" End if %> <% '======================================================================================== 'O bloco de input hidden abaixo só tem utilidade quando um produto é apagado. 'Os requests destes campos servem para apagar a imagens do servidor %> <% '======================================================================================== %>