<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: ADM_cria_subcategoria.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&"") Call abre_conexao(conexao) %> <%=Application("NomeLoja")%>
• Cria Subcategoria

"> <% 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 checkIdiomaBD <> "" Then 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 %> <% VetorIdioma = "" Next End If %>
 NOME DA SUBCATEGORIA
DESCRIÇÃO DA SUBCATEGORIA
<% 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_subcategoria|"&VetorIdioma %>