<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: ADM_cria_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_categoria = request("codigo_categoria") %> <%=Application("NomeLoja")%>
• Cria Produto

"> <% 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 InStr(checkIdiomaBD,",") <> 0 Then%> <%End if%> <% 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%> <%Else%> <%End if%> <% VetorIdioma = "" Next End If %>
INFORMAÇÕES VARIAVEIS NO SITE CONFORME IDIOMA


<%If InStr(checkIdiomaBD,",") <> 0 Then%> <%End if%> <%If VerificaExistenciaDado("codigo_categoria","subcategorias","codigo_categoria",request("codigo_categoria")) Then%> <%Else%> <%End if%> <%If VerificaExistenciaDado("codigo_marca","marcas",VAZIO,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%>
INFORMAÇÕES FIXAS NO SITE INDEPENDENTE DO IDIOMA
 CATEGORIA: <%Call Cria_Combo_Categoria_ADM(request("codigo_categoria"),"disabled",varLang)%>
 SUBCATEGORIA: <%Call Cria_Combo_SubCategoria(codigo_categoria,codigo_subcategoria,varLang)%>
 MARCA: <%Call Cria_Combo_Marca(codigo_marca)%>
 CÓDIGO DO PRODUTO LOJA:  Código de identificação do produto na loja.
Código obrigatório se utilizar a atualização de quantidade/preço via TXT.
 CÓDIGO ISBN:
 VALOR DO PRODUTO:
 PESO DO PRODUTO:  Peso acima de 30 Kg não é atendido pela família SEDEX (SEDEX, E-SEDEX e SEDEX 10).
 QUANTIDADE:
 CORES DISPONÍVEIS: <%Call Cria_Checks_Cores(cores)%>
 TAMANHOS DISPONÍVEIS: <%Call Cria_Checks_Tamanhos(tamanhos)%>
DISPONÍVEL NA LOJA?
>DESTAQUE NA VITRINE?
CONFIGURAR PROMOÇÃO
PUBLIQUE ABAIXO AS IMAGENS DO PRODUTO
 IMG GRANDE DA PRODUTO
 Redimensionar esta imagem ao tamanho GRANDE padrão do site.
 IMG GRANDE ADICIONAL 1
 Redimensionar esta imagem ao tamanho GRANDE padrão do site.
 IMG GRANDE ADICIONAL 2
 Redimensionar esta imagem ao tamanho GRANDE padrão do site.
 IMG GRANDE ADICIONAL 3
 Redimensionar esta imagem ao tamanho GRANDE padrão do site.