<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: ADM_insereAltSubCategoria.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 27/04/07 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# %> <% '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 Call abre_conexao(conexao) varLang = Application("varLang") 'Captura o código do produto enviado por GET codigo_categoria = request.form("codigo_categoria") 'Definição da mensagem de resposta da ação administrativa (acao_admin) If request.form("acao_admin") = "novo registro" Then msg_resultado = "Subcategoria cadastrada com sucesso. Clique aqui para continuar cadastrando subcategoria na mesma categoria." actionForm = "ADM_altera_subcategoria.asp" ElseIf request.form("acao_admin") = "alterar registro" Then msg_resultado = "Subcategoria alterada com sucesso." actionForm = "ADM_altera_subcategoria.asp" End if codigo_chave = request.form("codigo_chave") apagarestasubcategoria = request.form("apagarestasubcategoria") checkIdioma = request.form("sigla_idioma") If request.form("remover") = "Apagar Subcategoria" Then Conexao.Execute "DELETE FROM Subcategorias WHERE codigo_subcategoria = " & request.querystring("codigo_subcategoria")&"" Conexao.Execute "DELETE FROM Produtos WHERE codigo_subcategoria = " & request.querystring("codigo_subcategoria")&"" msg_resultado = "Subcategoria excluida com sucesso." actionForm = "adm_altera_categoria.asp?codigo_categoria="&codigo_categoria Else 'Caso seja um novo registro será criado um novo código da categoria. If request.form("acao_admin") = "novo registro" Then Set RS_SubCategoriaNova = Server.CreateObject("ADODB.Recordset") RS_SubCategoriaNova.CursorLocation = 3 RS_SubCategoriaNova.CursorType = 0 RS_SubCategoriaNova.LockType = 3 RS_SubCategoriaNova.Open "SELECT MAX(codigo_subcategoria) AS novo_codigo_subcategoria FROM SubCategorias" , Conexao 'Checa se existem categorias no banco de dados If IsNull(RS_SubCategoriaNova("novo_codigo_subcategoria")) Then novo_codigo_subcategoria = 1 Else novo_codigo_subcategoria = RS_SubCategoriaNova("novo_codigo_subcategoria") + 1 End If RS_SubCategoriaNova.Close Set RS_SubCategoriaNova = Nothing End If If novo_codigo_subcategoria <> "" Then codigo_subcategoria = novo_codigo_subcategoria Else codigo_subcategoria = request.querystring("codigo_subcategoria") End If '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 'Código chave a ser consultado VetorCodigoChave = codigo_chave 'Contador (array). O valor é definido pelo número de idiomas configurados, neste caso 1 'VetorCod = 0 '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 Set RS_SubCategoria = Server.CreateObject("ADODB.Recordset") RS_SubCategoria.CursorLocation = 3 RS_SubCategoria.CursorType = 0 RS_SubCategoria.LockType = 3 If request.form("acao_admin") = "alterar registro" Then If codigo_subcategoria <> "" And VetorCodigoChave <> 0 Then RS_SubCategoria.Open "SELECT codigo_chave, codigo_subcategoria, codigo_categoria, nome_subcategoria, descricao_subcategoria, sigla_idioma FROM SubCategorias WHERE codigo_chave = " & VetorCodigoChave & " AND sigla_idioma = '"& Trim(VetorIdioma) &"'", Conexao Else RS_SubCategoria.Open "SELECT codigo_chave, codigo_subcategoria, codigo_categoria, nome_subcategoria, descricao_subcategoria, sigla_idioma FROM SubCategorias WHERE sigla_idioma = '"& Trim(VetorIdioma) &"'", Conexao infoReg = "novo" RS_SubCategoria.AddNew RS_SubCategoria("codigo_subcategoria") = request.querystring("codigo_subcategoria") End If ElseIf request.form("acao_admin") = "novo registro" Then RS_SubCategoria.Open "SubCategorias", Conexao infoReg = "novo" RS_SubCategoria.AddNew RS_SubCategoria("codigo_subcategoria") = codigo_subcategoria Else Response.end End if If InStr(request.form("codigo_chave"),",") Then VetorCodigo_chaveTemp = Split(request.form("codigo_chave"),",") VetorCodigo_chave = VetorCodigo_chaveTemp(I) Else VetorCodigo_chave = request.form("codigo_chave") End if If Not RS_SubCategoria.Eof Then 'Insere o número da categoria quando é um nova categoria - Cadastro RS_SubCategoria("codigo_subcategoria") = codigo_subcategoria End If If request.form("nome_subcategoria|"&Trim(VetorIdioma)) <> "" Then RS_SubCategoria("codigo_categoria") = request.form("codigo_categoria") RS_SubCategoria("nome_subcategoria") = request.form("nome_subcategoria|"&Trim(VetorIdioma)) RS_SubCategoria("descricao_subcategoria") = request.form("descricao_subcategoria|"&Trim(VetorIdioma)) RS_SubCategoria("sigla_idioma") = Trim(VetorIdioma) RS_SubCategoria.Update End If VetorIdioma = "" VetorCodigoChave = "" 'If novo_codigo_categoria = "" Then 'codigo_categoria = "" 'End if Next End If If apagarestasubcategoria <> "" Then Conexao.Execute "DELETE FROM SubCategorias WHERE codigo_chave IN (" & apagarestasubcategoria &")" End If Set RS_SubCategoria = Nothing Call Fecha_conexao() %>

<%If request.form("remover") <> "Apagar SubCategoria" Then%> <%If novo_codigo_subcategoria = "" Then %> "> <%Else%> <%End if%> <%End if%>