<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.5 ' Data: 12/09/06 ' Arquivo: ADM_cria_categoria.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 30/08/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&"") %>

• Cria Categoria <% Call abre_conexao(conexao) If checkIdioma <> "" Then array_checkIdioma = checkIdioma Vetor = Split(checkIdioma, ",") For I = 0 To Ubound(Vetor) If Vetor(I) = varLang Then varAbaClass = "abasON" Else varAbaClass = "abas" End If %> <% Next End If %> <%= Pega_DadoBanco("IdiomaseCambios","idioma","sigla_idioma","'"&Vetor(I)&"'")%> <% If checkIdioma <> "" Then If InStr(checkIdioma,",") = 0 Then Vetor = checkIdioma VetorIdioma = Vetor VetorCount = 0 Else Vetor = Split(checkIdioma, ",") 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 %> <% VetorIdioma = "" Next End If Call fecha_conexao() %>  NOME DA CATEGORIA DESCRIÇÃO DA CATEGORIA <% Dim sBasePath sBasePath = Request.ServerVariables("PATH_INFO") sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) ) Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = sBasePath oFCKeditor.Value = "" oFCKeditor.Height = "300" oFCKeditor.Width = "100%" oFCKeditor.Create "descricao_categoria|"&VetorIdioma %>