<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: ADM_altera_cor.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 Cor <% Call abre_conexao(conexao) Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp") Set RS_Cor = Server.CreateObject("ADODB.Recordset") RS_Cor.CursorLocation = 3 RS_Cor.CursorType = 0 RS_Cor.LockType = 3 If myFileUpload.form("remover") = "Apagar Cor" Then Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(Application("DiretorioLoja") & myFileUpload.Form("img_cor_atual")) Then objFSO.DeleteFile Application("DiretorioLoja") & myFileUpload.Form("img_cor_atual") End If Set objFSO = nothing Conexao.Execute "DELETE FROM Cores WHERE codigo_cor = " & request.querystring("codigo_cor") %> Cor apagada do servidor.

<% Response.end End if If myFileUpload.form("acao_admin") = "novo registro" Then Set RS_CorCor = Server.CreateObject("ADODB.Recordset") RS_CorCor.CursorLocation = 3 RS_CorCor.CursorType = 0 RS_CorCor.LockType = 3 RS_CorCor.Open "SELECT MAX(codigo_cor) AS novo_codigo_cor FROM Cores" , Conexao 'Checa se existem Cores no banco de dados If IsNull(RS_CorCor("novo_codigo_cor")) Then novo_codigo_cor = 1 Else novo_codigo_cor = RS_CorCor("novo_codigo_cor") + 1 End If RS_CorCor.Close Set RS_CorCor = Nothing End if If novo_codigo_cor <> "" Then codigo_cor = novo_codigo_cor Else codigo_cor = request.querystring("codigo_cor") End if If myFileUpload.Form("acao_admin") <> "" Then Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Checa se o diretório CORES existe If objFSO.FolderExists(Application("DiretorioImagensConteudo") & "\cores") = false then 'Cria o diretório CORES objFSO.CreateFolder(Application("DiretorioImagensConteudo") & "\cores") End If Set objFSO = Nothing ' diretório em que a imagem será salva If myFileUpload.Form("img_cor").UserFilename <> "" Then ArquivoGRD = Mid(myFileUpload.Form("img_cor").UserFilename, InstrRev(myFileUpload.Form("img_cor").UserFilename, "\") + 1) img_cor = "config/imagens_conteudo/cores/" & codigo_cor & "_" & ArquivoGRD myFileUpload.Form("img_cor").Path = Application("DiretorioImagensConteudo") & "\cores" myFileUpload.Form("img_cor").SaveAs codigo_cor & "_" & ArquivoGRD End If End If ' Insere produto nome = myFileUpload.Form("nome") desc = myFileUpload.Form("desc") RS_Cor.Open "SELECT codigo_cor, nome_cor, url_imagem FROM Cores WHERE codigo_cor = " & codigo_cor , Conexao If myFileUpload.form("acao_admin") = "novo registro" Then RS_Cor.AddNew RS_Cor("codigo_cor") = novo_codigo_cor End if If myFileUpload.form("acao_admin") = "novo registro" Then msg_resultado = "Cor cadastrada com sucesso." ElseIf myFileUpload.form("acao_admin") = "alterar registro" Then msg_resultado = "Cor alterada com sucesso." End if If myFileUpload.Form("acao_admin") <> "" Then RS_Cor("nome_cor") = nome If img_cor <> "" Then RS_Cor("url_imagem") = img_cor End if RS_Cor.Update End if %>

" enctype="multipart/form-data"> <%If msg_resultado <> "" Then%> <%End if%>

<%=msg_resultado%>

COR: " size=75 class="FORMbox">

IMAGEM DA COR: PREVIVEW DA IMAGEM <%If RS_Cor("url_imagem") <> "" Then%>" name="imagemrel"><%Else%><%End if%>">

OBS: Se apagar a cor, todos os produtos e pedidos relativos a essa cor serão removidos.

<% RS_Cor.Close Set RS_Cor = Nothing Set myFileUpload = Nothing %>