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

• Alterar Marcas <% Call abre_conexao(conexao) Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp") Set RS_Marca = Server.CreateObject("ADODB.Recordset") RS_Marca.CursorLocation = 3 RS_Marca.CursorType = 0 RS_Marca.LockType = 3 If myFileUpload.form("remover") = "Apagar Marca" Then Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(Application("DiretorioLoja") & myFileUpload.Form("img_marca_atual")) Then objFSO.DeleteFile Application("DiretorioLoja") & myFileUpload.Form("img_marca_atual") End If Set objFSO = nothing Conexao.Execute "DELETE FROM Marcas WHERE codigo_marca = " & request.querystring("codigo_marca") msg_resultado = "Marca excluida com sucesso." Response.redirect "ADM_lista_marca.asp?msg_resultado=" & msg_resultado Response.end End if If myFileUpload.form("acao_admin") = "novo registro" Then Set RS_MarcaNova = Server.CreateObject("ADODB.Recordset") RS_MarcaNova.CursorLocation = 3 RS_MarcaNova.CursorType = 0 RS_MarcaNova.LockType = 3 RS_MarcaNova.Open "SELECT MAX(codigo_marca) AS novo_codigo_marca FROM Marcas" , Conexao 'Checa se existem Marcas no banco de dados If IsNull(RS_MarcaNova("novo_codigo_marca")) Then novo_codigo_marca = 1 Else novo_codigo_marca = RS_MarcaNova("novo_codigo_marca") + 1 End If RS_MarcaNova.Close Set RS_MarcaNova = Nothing End if If novo_codigo_marca <> "" Then codigo_marca = novo_codigo_marca Else codigo_marca = request.querystring("codigo_marca") End if If myFileUpload.Form("acao_admin") <> "" Then Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Checa se o diretório MARCAS existe If objFSO.FolderExists(Application("DiretorioImagensConteudo") & "\marcas") = false then 'Cria o diretório MARCAS objFSO.CreateFolder(Application("DiretorioImagensConteudo") & "\marcas") End If Set objFSO = Nothing ' diretório em que a imagem será salva If myFileUpload.Form("img_marca").UserFilename <> "" Then ArquivoGRD = Mid(myFileUpload.Form("img_marca").UserFilename, InstrRev(myFileUpload.Form("img_marca").UserFilename, "\") + 1) img_marca = "config/imagens_conteudo/marcas/" & codigo_marca & "_" & ArquivoGRD myFileUpload.Form("img_marca").Path = Application("DiretorioImagensConteudo") & "\marcas" myFileUpload.Form("img_marca").SaveAs codigo_marca & "_" & ArquivoGRD End If End If ' Insere produto nome = myFileUpload.Form("nome") desc = myFileUpload.Form("desc") RS_Marca.Open "SELECT codigo_marca, nome_marca, descricao_marca, url_imagem FROM Marcas WHERE codigo_marca = " & codigo_marca , Conexao If myFileUpload.form("acao_admin") = "novo registro" Then RS_Marca.AddNew RS_Marca("codigo_marca") = novo_codigo_marca End if If myFileUpload.form("acao_admin") = "novo registro" Then msg_resultado = "Marca cadastrada com sucesso." ElseIf myFileUpload.form("acao_admin") = "alterar registro" Then msg_resultado = "Marca alterada com sucesso." End if If myFileUpload.Form("acao_admin") <> "" Then RS_Marca("nome_marca") = nome RS_Marca("descricao_marca") = desc If img_marca <> "" Then RS_Marca("url_imagem") = img_marca End if RS_Marca.Update End if %> " enctype="multipart/form-data"> <%If msg_resultado <> "" Then%> <%End if%> <%=msg_resultado%>  NOME DA MARCA: " size=75 class="FORMbox"> DESCRIÇÃO DA MARCA <% Dim sBasePath sBasePath = Request.ServerVariables("PATH_INFO") sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) ) Dim oFCKeditor If RS_Marca("descricao_marca") <> "" Then descricao_marca = RS_Marca("descricao_marca") Else descricao_marca = Empty End if Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = sBasePath oFCKeditor.Value = descricao_marca oFCKeditor.Height = "300" oFCKeditor.Width = "100%" oFCKeditor.Create "desc" %>  IMAGEM DA MARCA: PREVIVEW DA IMAGEM <%If RS_Marca("url_imagem") <> "" Then%>" name="imagemrel"><%Else%><%End if%>">    OBS: Se apagar a marca, todos os produtos e pedidos relativos a essa marca serão removidos. <% RS_Marca.Close Set RS_Marca = Nothing Set myFileUpload = Nothing %>