<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.3 ' Data: 27/10/08 ' Arquivo: ADM_altera_caixa.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 27/10/08 ' '----------------------------------------------------------------------------- ' 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&"") 'Lê o idioma default da loja varLang = Application("varLang") %>

• Alterar Caixa <% Call abre_conexao(conexao) Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp") Set RS_Caixa = Server.CreateObject("ADODB.Recordset") RS_Caixa.CursorLocation = 3 RS_Caixa.CursorType = 0 RS_Caixa.LockType = 3 If request.form("remover") = "Apagar Caixa" Then Conexao.Execute "DELETE FROM Caixas WHERE codigo_caixa = " & request.querystring("codigo_caixa") %> Caixa apagada do servidor.

<% Response.end End if If request.form("acao_admin") = "novo registro" Then Set RS_Caixas = Server.CreateObject("ADODB.Recordset") RS_Caixas.CursorLocation = 3 RS_Caixas.CursorType = 0 RS_Caixas.LockType = 3 RS_Caixas.Open "SELECT MAX(codigo_Caixa) AS novo_codigo_caixa FROM Caixas" , Conexao 'Checa se existem Tamanhos no banco de dados If IsNull(RS_Caixas("novo_codigo_caixa")) Then novo_codigo_caixa = 1 Else novo_codigo_caixa = RS_Caixas("novo_codigo_caixa") + 1 End If RS_Caixas.Close Set RS_Caixas = Nothing End if If novo_codigo_caixa <> "" Then codigo_caixa = novo_codigo_caixa Else codigo_caixa = request.querystring("codigo_caixa") End if ' Insere produto nome = request.form("nome_caixa") desc = request.form("desc") altura = request.form("altura_caixa") largura = request.form("largura_caixa") comprimento = request.form("comprimento_caixa") RS_Caixa.Open "SELECT codigo_caixa, nome_caixa, descricao_caixa, altura_caixa, largura_caixa, comprimento_caixa, sigla_idioma FROM Caixas WHERE codigo_caixa = " & codigo_caixa , Conexao If request.form("acao_admin") = "novo registro" Then RS_Caixa.AddNew RS_Caixa("codigo_caixa") = novo_codigo_caixa End if If request.form("acao_admin") = "novo registro" Then msg_resultado = "Caixa cadastrada com sucesso." ElseIf request.form("acao_admin") = "alterar registro" Then msg_resultado = "Caixa alterado com sucesso." End if If request.form("acao_admin") <> "" Then RS_Caixa("nome_caixa") = nome RS_Caixa("descricao_caixa") = desc RS_Caixa("altura_caixa") = replace(altura, ",", ".") RS_Caixa("largura_caixa") = replace(largura, ",", ".") RS_Caixa("comprimento_caixa") = replace(comprimento, ",", ".") RS_Caixa("sigla_idioma") = varLang RS_Caixa.Update End if %>

"> <%If msg_resultado <> "" Then%> <%End if%>

<%=msg_resultado%>

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

DESCRIÇÃO DA CAIXA <% Dim sBasePath sBasePath = Request.ServerVariables("PATH_INFO") sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) ) Dim oFCKeditor Set oFCKeditor = New FCKeditor If RS_Caixa("descricao_caixa") <> "" Then descricao_caixa = RS_Caixa("descricao_caixa") Else descricao_caixa = Empty End if oFCKeditor.BasePath = sBasePath oFCKeditor.Value = descricao_caixa oFCKeditor.Height = "300" oFCKeditor.Width = "100%" oFCKeditor.Create "desc" %>  MEDIDAS: Comprimento "> Largura "> Altura ">

OBS: Se apagar a caixa, todos os vinculos com a mesma serão perdidos.

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