<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: ADM_altera_tamanho.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 Tamanho <% Call abre_conexao(conexao) Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp") Set RS_Tamanho = Server.CreateObject("ADODB.Recordset") RS_Tamanho.CursorLocation = 3 RS_Tamanho.CursorType = 0 RS_Tamanho.LockType = 3 If request.form("remover") = "Apagar Tamanho" Then Conexao.Execute "DELETE FROM Tamanhos WHERE codigo_tamanho = " & request.querystring("codigo_tamanho") %> Tamanho apagado do servidor.

<% Response.end End if If request.form("acao_admin") = "novo registro" Then Set RS_Tamanhos = Server.CreateObject("ADODB.Recordset") RS_Tamanhos.CursorLocation = 3 RS_Tamanhos.CursorType = 0 RS_Tamanhos.LockType = 3 RS_Tamanhos.Open "SELECT MAX(codigo_tamanho) AS novo_codigo_tamanho FROM Tamanhos" , Conexao 'Checa se existem Tamanhos no banco de dados If IsNull(RS_Tamanhos("novo_codigo_tamanho")) Then novo_codigo_tamanho = 1 Else novo_codigo_tamanho = RS_Tamanhos("novo_codigo_tamanho") + 1 End If RS_Tamanhos.Close Set RS_Tamanhos = Nothing End if If novo_codigo_tamanho <> "" Then codigo_tamanho = novo_codigo_tamanho Else codigo_tamanho = request.querystring("codigo_tamanho") End if ' Insere produto nome = request.form("nome") desc = request.form("desc") RS_Tamanho.Open "SELECT codigo_tamanho, nome_tamanho, descricao_tamanho FROM Tamanhos WHERE codigo_tamanho = " & codigo_tamanho , Conexao If request.form("acao_admin") = "novo registro" Then RS_Tamanho.AddNew RS_Tamanho("codigo_tamanho") = novo_codigo_tamanho End if If request.form("acao_admin") = "novo registro" Then msg_resultado = "Tamanho cadastrada com sucesso." ElseIf request.form("acao_admin") = "alterar registro" Then msg_resultado = "Tamanho alterado com sucesso." End if If request.form("acao_admin") <> "" Then RS_Tamanho("nome_tamanho") = nome RS_Tamanho("descricao_tamanho") = desc RS_Tamanho.Update End if %>

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

<%=msg_resultado%>

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

DESCRIÇÃO DO TAMANHO <% Dim sBasePath sBasePath = Request.ServerVariables("PATH_INFO") sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) ) Dim oFCKeditor Set oFCKeditor = New FCKeditor If RS_Tamanho("descricao_tamanho") <> "" Then descricao_tamanho = RS_Tamanho("descricao_tamanho") Else descricao_tamanho = Empty End if oFCKeditor.BasePath = sBasePath oFCKeditor.Value = descricao_tamanho oFCKeditor.Height = "300" oFCKeditor.Width = "100%" oFCKeditor.Create "desc" %>

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

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