Quantcast
Channel: Fórum ASP
Viewing all articles
Browse latest Browse all 1214

Erro loja virtual locaweb

$
0
0

estou tentando  alterar um produto nao é com todos mais só alguns ae dá esse  erro

 

Microsoft Cursor Engine error '80040e38'

Row cannot be located for updating. Some values may have been changed since it was last read.

/abelharainha/painelctrl/ADM_insereAltProduto.asp, line 632

 

 

segue codigo

<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb
' Versão: 6.5
' Data: 12/09/06
' Arquivo: ADM_insereAltProduto.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 23/10/08
'
'-----------------------------------------------------------------------------
' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#

%>
<!--#INCLUDE FILE="funcoes/ADM_funcoes_checa_senha.asp"-->
<!--#INCLUDE FILE="../funcoes/funcoes.asp" -->
<%
' 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
If checa_perfil_admin_menu(""&ADMProd&"") = false Then
    Response.redirect "ADM_home.asp?msg=SEU PERFIL DE USUÁRIO NÃO PERMITE ACESSO A ESTA PÁGINA"
    Response.end
End If

'Chamada para conexão com o banco de dados
Call abre_conexao(conexao)
'Lê o idioma default da loja
varLang = Application("varLang")

'Cria o objeto para upload de arquivo
Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Checa se o diretório TEMP existe
If objFSO.FolderExists(Application("DiretorioImagensConteudo") & "\produtos\temp") = false then
    'Cria o diretório TEMP
    objFSO.CreateFolder(Application("DiretorioImagensConteudo") & "\produtos\temp")
End If

Set objFSO = Nothing

'Captura o código do produto enviado por GET
'codigo_produto = request.querystring("codigo_produto")

If myFileUpload.Form("acao_admin") <> "" Then
    
    If myFileUpload.form("ExcluirImg") <> "" Then
    
        'Exclusão das imagens adicionais quando solicitado
        If InStr(myFileUpload.form("ExcluirImg"),",") = 0 Then

            VetorImagemTemp  = myFileUpload.form("ExcluirImg")
            VetorImagem      = VetorImagemTemp
            VetorImagemCount = 0
        Else
            VetorImagemTemp = Split(myFileUpload.form("ExcluirImg"), ",")
            VetorImagemCount =  Ubound(VetorImagemTemp)
        End if
           
        For Iimagen = 0 To VetorImagemCount

            If VetorImagemCount <> 0 Then
                VetorImagem = VetorImagemTemp(Iimagen)
            End If

            VetorImagem = Replace(VetorImagem,"/","\")

            Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
                
                VetorImagemX = Split(VetorImagem,"|")

                'Apaga a imagem grande
                imgExGRD = Application("DiretorioLoja") & TRIM(VetorImagemX(0))
                If objFSO.FileExists(imgExGRD) Then
                    objFSO.DeleteFile imgExGRD
                End If

                'Apaga a imagem pequena
                imgExPQN = Application("DiretorioLoja") & Replace(Replace(TRIM(VetorImagemX(0)),"GRD_","PQN_"),"imagensGRD","imagensPQN")
                If objFSO.FileExists(imgExPQN) Then
                    objFSO.DeleteFile imgExPQN
                End If
 
            Set objFSO = Nothing
            
        Next

        'A imagem principal recebe o valor temporário GRD_00 no parametro ExcluirImg
        'Apenas para a imagem principal a opção de excluir imagem remonta o valor com imagem de produto não disponível
        If InStr(myFileUpload.form("ExcluirImg"),"GRD_00") <> 0 Then
            img_produtoPQN = "config/imagens_conteudo/produtos/imagensPQN/PQN_naodisponivel.gif"
            img_produtoPQN2 = "config/imagens_conteudo/produtos/imagensPQN/PQN_naodisponivel.gif"
            img_produtoGRD = "config/imagens_conteudo/produtos/imagensGRD/GRD_naodisponivel.gif"
        End If
        
        If InStr(myFileUpload.form("ExcluirImg"),"GRD_01") <> 0 Then
            img_produto_adic01GRD_apagada = "sim"
            img_produto_adic01GRD = Empty
            img_produto_adic01PQN_apagada = "sim"
            img_produto_adic01PQN = Empty
        End If
        
        If InStr(myFileUpload.form("ExcluirImg"),"GRD_02") <> 0 Then
            img_produto_adic02GRD_apagada = "sim"
            img_produto_adic02GRD = Empty
            img_produto_adic02PQN_apagada = "sim"
            img_produto_adic02PQN = Empty
        End If
        
        If InStr(myFileUpload.form("ExcluirImg"),"GRD_03") <> 0 Then
            img_produto_adic03GRD_apagada = "sim"
            img_produto_adic03GRD = Empty
            img_produto_adic03PQN_apagada = "sim"
            img_produto_adic03PQN = Empty
        End If

    End If

End If

categoria_temp = Split(myFileUpload.Form("codigo_categoria"), ",")
codigo_categoria = categoria_temp(0)

'Definição da mensagem de resposta da ação administrativa (acao_admin)
If myFileUpload.form("acao_admin") = "novo registro" Then
    msg_resultado = "Produto cadastrado com sucesso. <A HREF='adm_cria_produto.asp?codigo_categoria="&codigo_categoria&"' class='TextoPage'>Clique aqui para continuar cadastrando na mesma categoria.</A>"
    actionForm = "ADM_altera_produto.asp"
ElseIf myFileUpload.form("acao_admin") = "alterar registro" Then
    msg_resultado = "Produto alterado com sucesso."
    actionForm = "ADM_altera_produto.asp"
End if

codigo_chave = myFileUpload.Form("codigo_chave")
apagaresteproduto = myFileUpload.Form("apagaresteproduto")
codigo_produto_loja = myFileUpload.Form("codigo_produto_loja")

codigo_cambio = myFileUpload.Form("codigo_cambio")
peso_produto = myFileUpload.Form("peso_produto")
quantidade_produto = myFileUpload.Form("quantidade_produto")
cor = myFileUpload.Form("cor")
grup = myFileUpload.Form("grup")
tamanho = myFileUpload.Form("tamanho")
codigo_isbn = myFileUpload.Form("codigo_isbn")
checkIdioma = myFileUpload.Form("sigla_idioma")
idiomaExbicao = myFileUpload.Form("idioma")
destaque_vitrine = myFileUpload.Form("destaque_vitrine")
disponivel = myFileUpload.Form("disponivel")
destaque1 = myFileUpload.Form("destaque_lateral1")
destaque2 = myFileUpload.Form("destaque_lateral2")


video = myFileUpload.Form("video")
largura = myFileUpload.Form("largura")
' Retira virgula e repoe por ponto, para evitar problemas no UPDATE
preco_unitario       = replace(myFileUpload.Form("preco_unitario"),".","")
preco_unitario       = replace(preco_unitario,",",".")

If myFileUpload.Form("promocao") = "1" Then
    promocao = myFileUpload.Form("promocao")
    desconto = myFileUpload.Form("desconto")
    dataInicio = myFileUpload.Form("dataInicio")
    dataFim = myFileUpload.Form("dataFim")
Else
    promocao = "0"
    desconto = "0"
    dataInicio = empty
    dataFim = empty
End if

If myFileUpload.Form("codigo_marca") <> "" Then
    codigo_marca = myFileUpload.Form("codigo_marca")
Else
    codigo_marca = empty
End If  

If myFileUpload.Form("codigo_subcategoria") <> "" Then
    codigo_subcategoria = myFileUpload.Form("codigo_subcategoria")
Else
    codigo_subcategoria = empty
End If

If myFileUpload.form("remover") = "Apagar Produto" Then


    'O bloco abaixo se encarrega de apagar as imagens do produto quando o mesmo for excluido do banco.
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

        If objFSO.FileExists(Application("DiretorioLoja") & myFileUpload.Form("Del_img_produtoGRD")) Then
            objFSO.DeleteFile Application("DiretorioLoja") & myFileUpload.Form("Del_img_produtoGRD")
            objFSO.DeleteFile Application("DiretorioLoja") & myFileUpload.Form("Del_img_produtoPQN")
            objFSO.DeleteFile Application("DiretorioLoja") & myFileUpload.Form("Del_img_produtoPQN2")
        End If

        If objFSO.FileExists(Application("DiretorioLoja") & myFileUpload.Form("Del_img_produto_adic01GRD")) Then
            objFSO.DeleteFile Application("DiretorioLoja") & myFileUpload.Form("Del_img_produto_adic01GRD")
            objFSO.DeleteFile Application("DiretorioLoja") & myFileUpload.Form("Del_img_produto_adic01PQN")
        End If

        If objFSO.FileExists(Application("DiretorioLoja") & myFileUpload.Form("Del_img_produto_adic02GRD")) Then
            objFSO.DeleteFile Application("DiretorioLoja") & myFileUpload.Form("Del_img_produto_adic02GRD")
            objFSO.DeleteFile Application("DiretorioLoja") & myFileUpload.Form("Del_img_produto_adic02PQN")
        End If

        If objFSO.FileExists(Application("DiretorioLoja") & myFileUpload.Form("Del_img_produto_adic03GRD")) Then
            objFSO.DeleteFile Application("DiretorioLoja") & myFileUpload.Form("Del_img_produto_adic03GRD")
            objFSO.DeleteFile Application("DiretorioLoja") & myFileUpload.Form("Del_img_produto_adic03PQN")
        End If

    Set objFSO = nothing
    'Exclui o produto do banco
    Conexao.Execute "DELETE FROM Produtos WHERE codigo_produto = " & request.querystring("codigo_produto")&""

    Call Fecha_conexao()

    msg_resultado = "Produto excluido com sucesso."

    'Redireciona para a página de pesquisa de produtos
    Response.redirect "adm_lista_produto.asp?msg_resultadoProduto="&msg_resultado
    Response.end

Else
    'Se a ação for a inclusão de um produto
    If myFileUpload.form("acao_admin") = "novo registro" Then
        Set RS_PegaCodigoProduto = Server.CreateObject("ADODB.Recordset")
        RS_PegaCodigoProduto.CursorLocation = 3
        RS_PegaCodigoProduto.CursorType = 0
        RS_PegaCodigoProduto.LockType = 3

        RS_PegaCodigoProduto.Open "SELECT MAX(codigo_produto) AS novo_codigo_produto FROM Produtos" , Conexao

        If IsNull(RS_PegaCodigoProduto("novo_codigo_produto")) Then
            novo_codigo_produto = 1
        Else
            novo_codigo_produto = RS_PegaCodigoProduto("novo_codigo_produto") + 1
        End If

        RS_PegaCodigoProduto.Close
        Set RS_PegaCodigoProduto = Nothing
    End IF        
    
    'Define o código do produto    
    If novo_codigo_produto <> "" Then
        codigo_produto = novo_codigo_produto
    Else
        codigo_produto =  request.querystring("codigo_produto")
    End If

    Set jpg = Server.CreateObject("Persits.Jpeg")
    'Define o tamanho da imagem pequenas
    L = 224
    G = 800
    M = 500

        ' diretório em que a imagem será salva
        If myFileUpload.Form("img_produto").UserFilename <> "" Then  

            'Salva a imagem enviada
            myFileUpload.Form("img_produto").Path = Application("DiretorioImagensConteudo") & "\produtos\temp"
            myFileUpload.Form("img_produto").Save  
            ArquivoTemp = Mid(myFileUpload.Form("img_produto").UserFilename, InstrRev(myFileUpload.Form("img_produto").UserFilename, "\") + 1)

            'Gera imagem pequena usando o componente aspjpeg
            jpg.Open( myFileUpload.Form("img_produto").Path & "\" & ArquivoTemp)
            jpg.Width = Jpg.OriginalWidth * L / Jpg.OriginalHeight
            jpg.Height = L
            jpg.Sharpen 1, "101"
            jpg.Save Application("DiretorioImagensConteudo") & "\produtos\imagensPQN\PQN_" & codigo_produto & "_" & ArquivoTemp
            img_produtoPQN = "config/imagens_conteudo/produtos/imagensPQN/PQN_" & codigo_produto & "_" & ArquivoTemp

           'Gera imagem pequena usando o componente aspjpeg
            jpg.Open( myFileUpload.Form("img_produto").Path & "\" & ArquivoTemp)
            'Caso a opção de redimensionar a imagem esteja marcada aqui abaixo ocorre a mudança
             If myFileUpload.Form("redimimg_produto") = "sim" Then                
                jpg.Width = Jpg.OriginalWidth * M / Jpg.OriginalHeight
                jpg.Height =  M
                jpg.Sharpen 1, "101"
            End if
            jpg.Save Application("DiretorioImagensConteudo") & "\produtos\imagensPQN2\MED_" & codigo_produto & "_" & ArquivoTemp
            img_produtoPQN2 = "config/imagens_conteudo/produtos/imagensPQN2/MED_" & codigo_produto & "_" & ArquivoTemp
            
            'Gera imagem pequena usando o componente aspjpeg
            jpg.Open( myFileUpload.Form("img_produto").Path & "\" & ArquivoTemp)
            'Caso a opção de redimensionar a imagem esteja marcada aqui abaixo ocorre a mudança
             If myFileUpload.Form("redimimg_produto") = "sim" Then                
                jpg.Width = Jpg.OriginalWidth * G / Jpg.OriginalHeight
                jpg.Height = G
                jpg.Sharpen 1, "101"
            End if
            jpg.Save Application("DiretorioImagensConteudo") & "\produtos\imagensGRD\GRD_" & codigo_produto & "_" & ArquivoTemp
            img_produtoGRD = "config/imagens_conteudo/produtos/imagensGRD/GRD_" & codigo_produto & "_" & ArquivoTemp

            'Deleta a imagem enviada
            Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
                If objFSO.FileExists(Application("DiretorioImagensConteudo") & "\produtos\temp\" & ArquivoTemp) Then
                    objFSO.DeleteFile Application("DiretorioImagensConteudo") & "\produtos\temp\" & ArquivoTemp
                End If
            Set objFSO = Nothing
            
        End If

        If myFileUpload.Form("img_produto_adic01").UserFilename <> "" Then  

            'Salva a imagem enviada
            myFileUpload.Form("img_produto_adic01").Path = Application("DiretorioImagensConteudo") & "\produtos\temp"
            myFileUpload.Form("img_produto_adic01").Save  
            ArquivoTemp01 = Mid(myFileUpload.Form("img_produto_adic01").UserFilename, InstrRev(myFileUpload.Form("img_produto_adic01").UserFilename, "\") + 1)

            'Gera imagem pequena usando o componente aspjpeg
            jpg.Open( myFileUpload.Form("img_produto_adic01").Path & "\" & ArquivoTemp01)
            jpg.Width = L
            jpg.Height = Jpg.OriginalHeight * L / Jpg.OriginalWidth
            jpg.Sharpen 1, "101"
            jpg.Save Application("DiretorioImagensConteudo") & "\produtos\imagensPQN\PQN_adic01_" & codigo_produto & "_" & ArquivoTemp01

            img_produto_adic01PQN = "config/imagens_conteudo/produtos/imagensPQN/PQN_adic01_" & codigo_produto & "_" & ArquivoTemp01

            
            'Gera imagem pequena usando o componente aspjpeg
            jpg.Open( myFileUpload.Form("img_produto_adic01").Path & "\" & ArquivoTemp01)
            'Caso a opção de redimensionar a imagem esteja marcada aqui abaixo ocorre a mudança
            If myFileUpload.Form("redimimg_produto_adic01") = "sim" then
                jpg.Width = G
                jpg.Height = Jpg.OriginalHeight * G / Jpg.OriginalWidth
                jpg.Sharpen 1, "101"
            End If
            
            jpg.Save Application("DiretorioImagensConteudo") & "\produtos\imagensGRD\GRD_adic01_" & codigo_produto & "_" & ArquivoTemp01

            img_produto_adic01GRD = "config/imagens_conteudo/produtos/imagensGRD/GRD_adic01_" & codigo_produto & "_" & ArquivoTemp01

            'Deleta a imagem enviada
            Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
                If objFSO.FileExists(Application("DiretorioImagensConteudo") & "\produtos\temp\" & ArquivoTemp01) Then
                    objFSO.DeleteFile Application("DiretorioImagensConteudo") & "\produtos\temp\" & ArquivoTemp01
                End If
            Set objFSO = Nothing
            
        End If

        If myFileUpload.Form("img_produto_adic02").UserFilename <> "" Then  

            'Salva a imagem enviada
            myFileUpload.Form("img_produto_adic02").Path = Application("DiretorioImagensConteudo") & "\produtos\temp"
            myFileUpload.Form("img_produto_adic02").Save  
            ArquivoTemp02 = Mid(myFileUpload.Form("img_produto_adic02").UserFilename, InstrRev(myFileUpload.Form("img_produto_adic02").UserFilename, "\") + 1)

            'Gera imagem pequena usando o componente aspjpeg
            jpg.Open( myFileUpload.Form("img_produto_adic02").Path & "\" & ArquivoTemp02)
            jpg.Width = L
            jpg.Height = Jpg.OriginalHeight * L / Jpg.OriginalWidth
            jpg.Sharpen 1, "101"
            jpg.Save Application("DiretorioImagensConteudo") & "\produtos\imagensPQN\PQN_adic02_" & codigo_produto & "_" & ArquivoTemp02

            img_produto_adic02PQN = "config/imagens_conteudo/produtos/imagensPQN/PQN_adic02_" & codigo_produto & "_" & ArquivoTemp02

            'Gera imagem pequena usando o componente aspjpeg
            jpg.Open( myFileUpload.Form("img_produto_adic02").Path & "\" & ArquivoTemp02)
            'Caso a opção de redimensionar a imagem esteja marcada aqui abaixo ocorre a mudança
            If myFileUpload.Form("redimimg_produto_adic02") = "sim" then
                jpg.Width = G
                jpg.Height = Jpg.OriginalHeight * G / Jpg.OriginalWidth
                jpg.Sharpen 1, "101"
            End if
            jpg.Save Application("DiretorioImagensConteudo") & "\produtos\imagensGRD\GRD_adic02_" & codigo_produto & "_" & ArquivoTemp02

            img_produto_adic02GRD = "config/imagens_conteudo/produtos/imagensGRD/GRD_adic02_" & codigo_produto & "_" & ArquivoTemp02

            'Deleta a imagem enviada
            Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
                If objFSO.FileExists(Application("DiretorioImagensConteudo") & "\produtos\temp\" & ArquivoTemp02) Then
                    objFSO.DeleteFile Application("DiretorioImagensConteudo") & "\produtos\temp\" & ArquivoTemp02
                End If
            Set objFSO = Nothing
            
        End If

        If myFileUpload.Form("img_produto_adic03").UserFilename <> "" Then  

            'Salva a imagem enviada
            myFileUpload.Form("img_produto_adic03").Path = Application("DiretorioImagensConteudo") & "\produtos\temp"
            myFileUpload.Form("img_produto_adic03").Save  
            ArquivoTemp03 = Mid(myFileUpload.Form("img_produto_adic03").UserFilename, InstrRev(myFileUpload.Form("img_produto_adic03").UserFilename, "\") + 1)

            'Gera imagem pequena usando o componente aspjpeg
            jpg.Open( myFileUpload.Form("img_produto_adic03").Path & "\" & ArquivoTemp03)
            jpg.Width = L
            jpg.Height = Jpg.OriginalHeight * L / Jpg.OriginalWidth
            jpg.Sharpen 1, "101"
            jpg.Save Application("DiretorioImagensConteudo") & "\produtos\imagensPQN\PQN_adic03_" & codigo_produto & "_" & ArquivoTemp03

            img_produto_adic03PQN = "config/imagens_conteudo/produtos/imagensPQN/PQN_adic03_" & codigo_produto & "_" & ArquivoTemp03

            'Gera imagem pequena usando o componente aspjpeg
            jpg.Open( myFileUpload.Form("img_produto_adic03").Path & "\" & ArquivoTemp03)
            'Caso a opção de redimensionar a imagem esteja marcada aqui abaixo ocorre a mudança
            If myFileUpload.Form("redimimg_produto_adic03") = "sim" then
                jpg.Width = G
                jpg.Height = Jpg.OriginalHeight * G / Jpg.OriginalWidth
                jpg.Sharpen 1, "101"
            End if
            jpg.Save Application("DiretorioImagensConteudo") & "\produtos\imagensGRD\GRD_adic03_" & codigo_produto & "_" & ArquivoTemp03

            img_produto_adic03GRD = "config/imagens_conteudo/produtos/imagensGRD/GRD_adic03_" & codigo_produto & "_" & ArquivoTemp03

            'Deleta a imagem enviada
            Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
                If objFSO.FileExists(Application("DiretorioImagensConteudo") & "\produtos\temp\" & ArquivoTemp03) Then
                    objFSO.DeleteFile Application("DiretorioImagensConteudo") & "\produtos\temp\" & ArquivoTemp03
                End If
            Set objFSO = nothing
        End If

    Set jpg = Nothing


    'Define os valos para consulta ao banco a partir dos idiomas configurados
    'Esta primeira condição é quando apenas um idioma está configurado
    If InStr(checkIdioma,",") = 0 Then
        'Idiomas configurados na loja
        VetorIdi = varLang
        'Idioma a ser consultado
        VetorIdioma = VetorIdi
        If InStr(codigo_chave,",") = 0 Then
            'Código chave a ser consultado
            VetorCodigoChave = codigo_chave
        Else
            VetorCod = Split(codigo_chave, ",")
        End if
        'Contador (array). O valor é definido pelo número de idiomas configurados, neste caso 1
        VetorCount = 0
    'Quando vários idiomas estão configurados.        
    Else
        'Idiomas configurados na loja
        VetorIdi = Split(checkIdioma, ",")
        'Codigos chave enviados nesta consulta
        VetorCod = Split(codigo_chave, ",")
        'Contador (array). O valor é definido pelo número de idiomas configurados, neste caso 1
        VetorCount =  Ubound(VetorIdi)
    End if
       
    For I = 0 To VetorCount
    'Se VetorIdioma for vazio indica que a consulta se dará conforme o número de idiomas configurados.
    If VetorIdioma = "" Then
        'Atribui o valor do idioma a ser consultado, conforme sua posição no array de VetorCount
        VetorIdioma = VetorIdi(I)
    End If

    If codigo_chave <> "" Then
        'Se VetorIdioma for vazio indica que a consulta se dará conforme o número de idiomas configurados.
        If VetorCodigoChave = "" Then
            'Atribui o valor do codigo_chave a ser consultado, conforme sua posição no array de VetorCount
            VetorCodigoChave = VetorCod(I)
        End If
    End If

    'Cria o objeto de recordset para consulta ao banco
    Set RS_Produto = Server.CreateObject("ADODB.Recordset")
    RS_Produto.CursorLocation = 3
    RS_Produto.CursorType = 0
    RS_Produto.LockType = 3

    'Se a se acao_admin for alterar registro    
    If myFileUpload.Form("acao_admin") = "alterar registro" Then

        'Se existir um codigo chave para este registro, indica que categoria está cadastrada com idioma da consulta
        If codigo_produto <> "" And Replace(VetorCodigoChave,",","") <> 0 Then
        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, produtos_grupo, preco_base, preco_unitario, desconto, moeda, quantidade_produto,video,largura, img_produtoPQN,img_produtoPQN2, 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,destaque1,destaque2, grupo, grup, sigla_idioma FROM Produtos WHERE codigo_chave = " & Replace(VetorCodigoChave,",","") & " AND sigla_idioma = '"& Trim(VetorIdioma) &"'", Conexao

        'Se não existir um codigo chave para este registro, indica que categoria não está cadastrada com idioma da consulta
        Else
            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, produtos_grupo, preco_base, preco_unitario, desconto, moeda, quantidade_produto,video,largura, img_produtoPQN,img_produtoPQN2, 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,destaque1,destaque2, grupo, grup, sigla_idioma FROM Produtos WHERE sigla_idioma = '"& Trim(VetorIdioma) &"'", Conexao
            'Metodo que define a ação de novo registro
            RS_Produto.AddNew
            'Registra o codigo de categoria passado para este novo registro
            RS_Produto("codigo_produto") = request.querystring("codigo_produto")
        End If

     'Se a se acao_admin for novo registro
    ElseIf myFileUpload.Form("acao_admin") = "novo registro" Then
        RS_Produto.Open "SELECT Produtos.* FROM Produtos", Conexao
        'Metodo que define a ação de novo registro
        RS_Produto.AddNew
        'Registra o novo codigo_produto
        RS_Produto("codigo_produto") = codigo_produto
    End if
        
   
        If InStr(myFileUpload.form("codigo_chave"),",") Then    
            VetorCodigo_chaveTemp = Split(myFileUpload.form("codigo_chave"),",")
            VetorCodigo_chave      = VetorCodigo_chaveTemp(I)
        Else
            VetorCodigo_chave      = myFileUpload.form("codigo_chave")
        End if
   
           
        If  Not RS_Produto.Eof Then

            'Captura o valor das imagens
            If img_produtoPQN = "" Then
                img_produtoPQN = RS_Produto("img_produtoPQN")
            End If
            'Captura o valor das imagens
            If img_produtoPQN2 = "" Then
                img_produtoPQN2 = RS_Produto("img_produtoPQN2")
            End If
            If img_produtoGRD = "" Then
                img_produtoGRD = RS_Produto("img_produtoGRD")
            End If

            'O Bloco abaixo recurepa os valores das imagens se necessário
            'Se a imagem não for postada e a opção de excluir imagem não estiver checada o valor da imagem será o ja registrado no banco.
            If img_produto_adic01PQN = "" And img_produto_adic01PQN_apagada <> "sim" Then
                img_produto_adic01PQN = RS_Produto("img_produto_adic01PQN")
            End If
            If img_produto_adic01GRD = "" And img_produto_adic01GRD_apagada <> "sim" Then
                img_produto_adic01GRD = RS_Produto("img_produto_adic01GRD")
            End If
            If img_produto_adic02PQN = "" And img_produto_adic02PQN_apagada <> "sim" Then
                img_produto_adic02PQN = RS_Produto("img_produto_adic02PQN")
            End If
            If img_produto_adic02GRD = "" And img_produto_adic02GRD_apagada <> "sim" Then
                img_produto_adic02GRD = RS_Produto("img_produto_adic02GRD")
            End If
            If img_produto_adic03PQN = "" And img_produto_adic03PQN_apagada <> "sim" Then
                img_produto_adic03PQN = RS_Produto("img_produto_adic03PQN")
            End If
            If img_produto_adic03GRD = "" And img_produto_adic03GRD_apagada <> "sim" Then
                img_produto_adic03GRD = RS_Produto("img_produto_adic03GRD")
            End if

            'Insere o número do produto quando é um novo produto - Cadastro
            RS_Produto("codigo_produto") = codigo_produto

        End If
        
        'A condição abaixo serve para validar em qual idioma o produto será gravado
        If myFileUpload.form("nome_produto|"&Trim(VetorIdioma)) <> "" Then
            
            'O bloco abaixo grava os valores no banco de dados
            RS_Produto("nome_produto") = myFileUpload.form("nome_produto|"&Trim(VetorIdioma))
            RS_Produto("descricao_produto") = myFileUpload.form("descricao_produto|"&Trim(VetorIdioma))
            RS_Produto("codigo_categoria") = Codigo_categoria
            RS_Produto("codigo_subcategoria") = Codigo_subcategoria
            RS_Produto("codigo_marca") = codigo_marca
            RS_Produto("codigo_produto_loja") = codigo_produto_loja
            RS_Produto("codigo_isbn") = codigo_isbn
           If preco_unitario <> "" AND myFileUpload.Form("acao_admin") = "novo registro"  Then
                RS_Produto("preco_base") = preco_unitario
                RS_Produto("preco_unitario") = preco_unitario
            End if
            RS_Produto("quantidade_produto") = quantidade_produto
            
            if myFileUpload.Form("acao_admin") = "novo registro" Then
            RS_Produto("peso") = peso_produto
            End if
            
            RS_Produto("destaque_vitrine") = destaque_vitrine
            
            
            
            if len(grup) > 0 then
            RS_Produto("grup") = 1
            RS_Produto("produtos_grupo") = grup
            end if
            RS_Produto("promocao") = promocao
            RS_Produto("desconto") = desconto
            
            if largura <> "" Then
            RS_Produto("largura") = largura
            Else
            RS_Produto("largura") = 0
            End if
            if video <> "" Then
            RS_Produto("video") = video
            else
            RS_Produto("video") = ""
            End if

            RS_Produto("data_inicio") = dataInicio
            RS_Produto("data_fim") = dataFim

            RS_Produto("disponivel") = disponivel
            RS_Produto("destaque1") = destaque1
            RS_Produto("destaque2") = destaque2

            'Se a imagem principal não for enviada e não existir registro de anterior, será registrada as imagens pequena e grande de produto não disponível
            If Isnull(img_produtoPQN) Then
                img_produtoPQN = "config/imagens_conteudo/produtos/imagensPQN/PQN_naodisponivel.gif"
            End If
            If Isnull(img_produtoPQN2) Then
                img_produtoPQN2 = "config/imagens_conteudo/produtos/imagensPQN/PQN_naodisponivel.gif"
            End If
            If Isnull(img_produtoGRD) Then
                img_produtoPQN2 = "config/imagens_conteudo/produtos/imagensGRD/GRD_naodisponivel.gif"
                img_produtoGRD = "config/imagens_conteudo/produtos/imagensGRD/GRD_naodisponivel.gif"
            End If

            If img_produtoPQN <> "" Then
                RS_Produto("img_produtoPQN") = img_produtoPQN
            End if
            If img_produtoPQN2 <> "" Then
                RS_Produto("img_produtoPQN2") = img_produtoPQN
            End if

            If img_produtoGRD <> "" Then
                RS_Produto("img_produtoPQN2") = img_produtoPQN2
                RS_Produto("img_produtoGRD") = img_produtoGRD
            End If
            

            RS_Produto("img_produto_adic01PQN") = img_produto_adic01PQN
            RS_Produto("img_produto_adic01GRD") = img_produto_adic01GRD
            RS_Produto("img_produto_adic02PQN") = img_produto_adic02PQN
            RS_Produto("img_produto_adic02GRD") = img_produto_adic02GRD
            RS_Produto("img_produto_adic03PQN") = img_produto_adic03PQN
            RS_Produto("img_produto_adic03GRD") = img_produto_adic03GRD
            
            RS_Produto("cores") = cor
            
            if len(grup) > 0 then
            RS_Produto("grup") = 1
            RS_Produto("produtos_grupo") = grup
            else
            RS_Produto("grup") = 0
            end if
            RS_Produto("tamanhos") = tamanho
            RS_Produto("sigla_idioma") = Trim(VetorIdioma)
            
            RS_Produto.Update
            
             If myFileUpload.Form("acao_admin") = "alterar registro" Then
                Conexao.execute "UPDATE Produtos SET peso = '"& peso_produto &"', preco_base= '"&preco_unitario&"', preco_unitario='"&preco_unitario&"' WHERE codigo_chave = " & Replace(VetorCodigoChave,",","") & " AND sigla_idioma = '"& Trim(VetorIdioma) &"'"
            End If
            
        End if
    'Torna vazio a variáveis para reaproveitá-las nesta ação
    VetorIdioma = ""
    VetorCodigoChave = ""
    Next

Set RS_Produto = Nothing

End If


If apagaresteproduto <> "" Then
    Conexao.Execute "DELETE FROM Produtos WHERE codigo_chave IN (" & apagaresteproduto &")"
End If

Set myfileupload = Nothing

Call Fecha_conexao()
%>
<html>
<body>
<form method="get" action="<%=actionForm%>" name="alteracao">
    <input type="hidden" name="codigo_produto" value="<%=codigo_produto%>">
    <input type="hidden" name="codigo_categoria" value="<%=codigo_categoria%>">
    <input type="hidden" name="msg_resultado" value="<%=msg_resultado%>">
</form>
<SCRIPT LANGUAGE=javascript>
<!--
   document.alteracao.submit();
//-->
</SCRIPT>
</body>
</html>
 


Viewing all articles
Browse latest Browse all 1214

Trending Articles