<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.5 ' Data: 12/09/06 ' Arquivo: ADM_altera_conceito.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 11/12/08 ' por: Victor B Volker (Lápis Raro) ' '----------------------------------------------------------------------------- ' 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 Conceito <% Call abre_conexao(conexao) Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp") Set RS_Conceito = Server.CreateObject("ADODB.Recordset") RS_Conceito.CursorLocation = 3 RS_Conceito.CursorType = 0 RS_Conceito.LockType = 3 If request.form("remover") = "Apagar Conceito" Then Conexao.Execute "DELETE FROM Conceitos WHERE codigo_conceito = " & request.querystring("codigo_conceito") %> Conceito apagado do servidor.

<% Response.end End if If request.form("acao_admin") = "novo registro" Then Set RS_Conceitos = Server.CreateObject("ADODB.Recordset") RS_Conceitos.CursorLocation = 3 RS_Conceitos.CursorType = 0 RS_Conceitos.LockType = 3 RS_Conceitos.Open "SELECT MAX(codigo_conceito) AS novo_codigo_conceito FROM Conceitos" , Conexao 'Checa se existem Conceitos no banco de dados If IsNull(RS_Conceitos("novo_codigo_conceito")) Then novo_codigo_conceito = 1 Else novo_codigo_conceito = RS_Conceitos("novo_codigo_conceito") + 1 End If RS_Conceitos.Close Set RS_Conceitos = Nothing End if If novo_codigo_conceito <> "" Then codigo_conceito = novo_codigo_conceito Else codigo_conceito = request.querystring("codigo_conceito") End if ' Insere produto nome = request.form("nome") desc = request.form("desc") RS_Conceito.Open "SELECT codigo_conceito, nome_conceito, descricao_conceito FROM Conceitos WHERE codigo_conceito = " & codigo_conceito , Conexao If request.form("acao_admin") = "novo registro" Then RS_Conceito.AddNew RS_Conceito("codigo_conceito") = novo_codigo_conceito End if If request.form("acao_admin") = "novo registro" Then msg_resultado = "Conceito cadastrado com sucesso." ElseIf request.form("acao_admin") = "alterar registro" Then msg_resultado = "Conceito alterado com sucesso." End if If request.form("acao_admin") <> "" Then RS_Conceito("nome_conceito") = nome RS_Conceito("descricao_conceito") = desc RS_Conceito.Update End if %>

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

<%=msg_resultado%>

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

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

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

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