<!--#include file="../funcoes.asp"-->
<%

Function prep(strString)

			strString = replace(strString,"*","")
			strString = replace(strString,"'","")
			strString = replace(strString,"#","")
			
			   prep = strString
End Function

If Len(Day(Date)) = 1 Then
dia = "0" & Day(Date)
Else
dia = Day(Date)
End If
If Len(Month(Date)) = 1 Then
mes = "0" & Month(Date)
Else
mes = Month(Date)
End If
'**** FUNÇÃO PARA GRAVAR CONFIGURAÇÕES ESSENCIAIS
if request("acao") = "configloja" then
			nome = request.form("seu_nome")
			nome_loja = request.form("nome_loja")
			'response.write nome_loja
			cnpj = request.form("cnpj")
			razao = request.form("razao_social")
			email = request.form("email")
			slogan = request.form("slogan")
			url = request.form("url")
			endloja = request.form("endereco_loja")
			bairro = request.form("bairro")
			cidade = request.form("cidade")
			estado = request.form("estado")
			telefone = request.form("telefone")
		
			cotacao = request.form("cotacao")
			retratil = request.form("retratil")
			host_email = request.form("host_email")
			componente_email = request.form("componente")
			qtn_index = request.form("qtn_index")
			sql = "UPDATE loja SET qtn_index = '"&qtn_index&"', componente_email='"&componente_email&"', host_email='"&host_email&"', retratil='"&retratil&"', cotacao_dia='"&cotacao&"', nome_loja = '" & nome_loja & "', slogan_loja = '" & slogan & "', endereco = '" & endloja & "', telefone = '" & telefone & "', bairro =  '" & bairro & "', cidade = '" & cidade & "', estado = '" & estado & "', cnpj = '" & cnpj & "' , razao_social = '" & razao & "', url_loja = '" & url & "', seu_nome = '" & nome & "', email = '" & email & "'"
			Set atualizaloja = conexao.Execute(sql)
Response.redirect "geral.asp?link=essencial&mensagem=As alterações foram gravadas com sucesso!"
'**** FUNÇÃO PARA GRAVAR CONFIGURAÇÕES ESSENCIAIS

'**** FUNÇÃO PARA GRAVAR CONFIGURAÇÕES BANCÁRIAS
elseif request("acao") = "banco" then
desconto = request.form("desconto")
url_pagto_deposito = request.form("url_pagto_deposito")
			banco1 = request.form("banco1")
			ag1 = request.form("ag1")
			conta1 = request.form("conta1")
			cedente1 = request.form("cedente1")
			documento1 = request.form("documento1")
			
			banco2 = request.form("banco2")
			ag2 = request.form("ag2")
			conta2 = request.form("conta2")
			cedente2 = request.form("cedente2")
			documento2 = request.form("documento2")
			textozql = "UPDATE config_banco SET desconto='"&desconto&"', url_pagto_deposito='"&url_pagto_deposito&"', banco1 = '" & banco1 & "', banco2 = '" & banco2 & "', ag1 = '" & ag1 & "', documento1='"&documento1&"', ag2 = '" & ag2 & "', conta1 =  '" & conta1 & "', conta2 = '" & conta2 & "', cedente1 = '" & cedente1 & "', cedente2 = '" & cedente2 & "', documento2='"&documento2&"'"

			Set atualizabanco = conexao.Execute(textozql)
			Response.redirect "geral.asp?link=contas&mensagem=As informações bancárias foram gravadas com sucesso!"
'**** FUNÇÃO PARA GRAVAR CONFIGURAÇÕES BANCÁRIAS


'**** FUNÇÃO PARA GRAVAR CONFIGURAÇÕES DE FRETE
elseif request("acao") = "frete" then
			cep = request.form("cep")
			estadofrete = request.form("estadofrete")
			utilizarsedex = request.form("utilizarsedex")
			calculoonline = request.form("calculoonline")
			maopropria = request.form("maopropria")
			avisorecebimento = request.form("avisorecebimento")
			sedexcobrar = request.form("sedexcobrar")
			utilizarencomenda = request.form("utilizarencomenda")
			utilizarmotoboy = request.form("utilizarmotoboy")
			descricaomotoboy = request.form("descricaomotoboy")
			regiaomotoboy = request.form("regiaomotoboy")
			valormotoboy = request.form("valormotoboy")
			mtb = request.form("mtb")
			sedex10=request.form("sedex10")
			transportadora = request.form("transportadora")
					carta_registrada = request.form("carta_registrada")		
					peso_cartaregistrada = request.form("peso_cartaregistrada")	
						valor_cartaregistrada = request.form("valor_cartaregistrada")
			textozql = "UPDATE loja SET carta_registrada='"&carta_registrada&"', carta_registradapeso='"&peso_cartaregistrada&"', carta_registradavalor='"&valor_cartaregistrada&"',  transportadora='"&transportadora&"', mtb='"&mtb&"', cep = '" & cep & "', estado_frete = '" & estadofrete & "', utilizar_sedex = '" & utilizarsedex & "', calculo_online = '" & calculoonline & "', mao_propria =  '" & maopropria & "', aviso_recebimento = '" & avisorecebimento & "', sedex_cobrar = '" & sedexcobrar & "', utilizar_encomenda = '" & utilizarencomenda & "' , utilizar_motoboy = '" & utilizarmotoboy & "', descricao_motoboy = '" & descricaomotoboy & "', regiao_motoboy = '" & regiaomotoboy & "', valor_motoboy = '" & valormotoboy & "', sedex_10='"&sedex10&"'"
			
Set atualizafrete = conexao.Execute(textozql)
Response.Redirect "geral.asp?link=frete&mensagem=As configurações de frete foram gravadas com sucesso!"
'**** FUNÇÃO PARA GRAVAR CONFIGURAÇÕES DE FRETE


'**** FUNÇÃO PARA GRAVAR CONFIGURAÇÕES DE BOLETO
elseif request("acao") = "boleto" then
			boleto_utilizar = request.form("boleto_utilizar")
			banco = request.form("banco")
			desconto = request.form("desconto")
			url_pagto_boleto = request.form("url_pagto_boleto")
			codigo_cedente = request.form("codigo_cedente")
			agencia = request.form("agencia")
			ag_digito = request.form("ag_digito")
			conta = request.form("conta")
			ct_digito = request.form("ct_digito")
			carteira = request.form("carteira")
			convenio = request.form("convenio")
			cedente = request.form("cedente")
			obs_linha1 = request.form("obs_linha1")
			obs_linha2 = request.form("obs_linha2")
			obs_linha3 = request.form("obs_linha3")
			obs_linha4 = request.form("obs_linha4")
			instr_linha1 = request.form("instr_linha1")
			instr_linha2 = request.form("instr_linha2")
			instr_linha3 = request.form("instr_linha3")
			instr_linha4 = request.form("instr_linha4")
			textozql = "UPDATE config_boleto SET boleto_utilizar='"&boleto_utilizar&"', banco='"&banco&"', desconto='"&desconto&"', url_pagto_boleto='"&url_pagto_boleto&"', codigo_cedente='"&codigo_cedente&"', agencia='"&agencia&"', ag_digito='"&ag_digito&"', conta='"&conta&"', ct_digito='"&ct_digito&"', carteira='"&carteira&"', convenio='"&convenio&"', cedente='"&cedente&"', obs_linha1='"&obs_linha1&"', obs_linha2='"&obs_linha2&"', obs_linha3='"&obs_linha3&"', obs_linha4='"&obs_linha4&"', instr_linha1='"&instr_linha1&"', instr_linha2='"&instr_linha2&"', instr_linha3='"&instr_linha3&"', instr_linha4='"&instr_linha4&"'"
			Set atualizaboleto = conexao.Execute(textozql)
Response.Redirect "geral.asp?link=boleto&mensagem=As configurações de boleto foram gravadas com sucesso!"
'**** FUNÇÃO PARA GRAVAR CONFIGURAÇÕES DE BOLETO


'**** FUNÇÃO PARA GRAVAR CONFIGURAÇÕES DE CARTÕES
elseif request("acao") = "cartoes" then
'pega os dados do cartão
'visa
url_pagto_visa = request.Form("url_pagto_visa")
visa_parcelas = request.Form("visa_parcelas")
visa_minima = request.Form("visa_minima")
visa_sjuros = request.Form("visa_sjuros")
visa_utilizar = request.Form("visa_utilizar")
filiacao_visa = request.Form("filiacao_visa")
cfgloja= request.Form("cfgloja") 

sqlv = "UPDATE config_visa SET filiacao='"&filiacao_visa&"', cfgloja='"&cfgloja&"', url_pagto_visa='"&url_pagto_visa&"', visa_quantidade_parcelas='"&visa_parcelas&"', visa_parcela_minima='"&visa_minima&"',  visa_quantidade_sjuros='"&visa_sjuros&"', visa_utilizar='"&visa_utilizar&"'"
set visa = conexao.execute(sqlv)
set visa = nothing


url_pagto_master = request.Form("url_pagto_master")
master_parcelas = request.Form("master_parcelas")
master_minima = request.Form("master_minima")
master_sjuros = request.Form("master_sjuros")
master_utilizar = request.Form("master_utilizar")
filiacao = request.form("filiacao")
urlback = request.form("urlback")
sqlm = "UPDATE config_master SET urlback='"&urlback&"', filiacao='"&filiacao&"',  url_pagto_master='"&url_pagto_master&"', master_quantidade_parcelas='"&master_parcelas&"', master_parcela_minima='"&master_minima&"',  master_quantidade_sjuros='"&master_sjuros&"', master_utilizar='"&master_utilizar&"'"

set master = conexao.execute(sqlm)
set master = nothing
response.redirect "geral.asp?link=cartao&mensagem=As configurações de cartões foram gravadas com sucesso!"
'**** FUNÇÃO PARA GRAVAR CONFIGURAÇÕES DE CARTÕES


'**** FUNÇÃO PARA TROCAR A SENHA DO ADMINISTRADOR
elseif request("acao") = "admtrocasenha" then
codigo = request.form("id")
senha = request.form("senha")
sql = "UPDATE acesso SET senha='"& hash(senha) &"' WHERE id='"&codigo&"'"
set excluir= conexao.execute(sql)
response.redirect "usuarios.asp?link=ver&mensagem=A senha do usuário foi trocada com sucesso!"
'**** FUNÇÃO PARA TROCAR A SENHA DO ADMINISTRADOR


'**** FUNÇÃO PARA TROCAR A SENHA DO ATENDENTE
elseif request("acao") = "atendentetrocasenha" then
codigo = request.form("id")
senha = request.form("senha")
sql = "UPDATE atendentes SET senha='"& senha &"' WHERE id='"&codigo&"'"
set excluir= conexao.execute(sql)
response.redirect "usuarios.asp?link=chat&mensagem=A senha do atendente foi trocada com sucesso!"
'**** FUNÇÃO PARA TROCAR A SENHA DO ADMINISTRADOR


'**** FUNÇÃO PARA EXCLUIR ADMINISTRADOR
elseif request("acao") = "excluiradm" then
codigo = request("id")
sql = "DELETE FROM acesso WHERE id='"&codigo&"'"
set excluir= conexao.execute(sql)
response.redirect "usuarios.asp?link=ver&mensagem=O usuário foi excluido com sucesso!"
'**** FUNÇÃO PARA EXCLUIR ADMINISTRADOR


'**** FUNÇÃO PARA EXCLUIR ATENDENTE
elseif request("acao") = "excluiratendente" then
codigo = request("id")
sql = "DELETE FROM atendentes WHERE id='"&codigo&"'"
set excluir= conexao.execute(sql)
response.redirect "usuarios.asp?link=chat&mensagem=O Atendente foi excluido com sucesso!"
'**** FUNÇÃO PARA EXCLUIR ADMINISTRADOR


'**** FUNÇÃO PARA INCLUIR ADMINISTRADOR
elseif request("acao") = "incluiadm" then
login = request.form("login")
email = request.form("email")
senha = request.form("senha")
textosql = "INSERT INTO acesso (email,login, senha) VALUES ('"&  hash(email)  &"','"&  hash(login)  &"','"&  hash(senha)  &"')"
Set gravaadm = conexao.Execute(textosql)
Response.redirect "usuarios.asp?link=incluir&mensagem=O Usuário foi cadastrado com sucesso!"
'**** FUNÇÃO PARA INCLUIR ADMINISTRADOR


'**** FUNÇÃO PARA INCLUIR ATENDENTE
elseif request("acao") = "incluiatendente" then
email = request.form("email")
senha = request.form("senha")
textosql = "INSERT INTO atendentes (nome, email, senha, nivel) VALUES ('Atendente', '"&  email  &"','"&  senha  &"','o')"
Set gravaadm = conexao.Execute(textosql)
Response.redirect "usuarios.asp?link=chat&mensagem=O Atendente foi cadastrado com sucesso!"
'**** FUNÇÃO PARA INCLUIR ADMINISTRADOR


'**** FUNÇÃO PARA EXCLUIR CLIENTES
elseif request("acao") = "excluircli" then
codigo = request("id")
textosql = "DELETE FROM clientes WHERE clienteid = " & codigo & ";"
Set excluir = conexao.Execute(textosql)
Response.Redirect "clientes.asp?link=todos&pagina="&request("pagina")&"&mensagem=O cliente foi excluido com sucesso!"
'**** FUNÇÃO PARA EXCLUIR CLIENTES


'**** FUNÇÃO PARA EDITAR CATEGORIA
elseif request("acao") = "editardep" then
nome = request.form("nomedep")
descri = request.form("descri")
ver = request.form("ver")
codigo = request.form("id")
	img_se=replace(replace(request.form("banner"),".../img_se/",""), "../img_se/", "")
	img_lat1=replace(replace(request.form("banner3"),".../img_lat1/",""), "../img_lat1/", "")
	img_lat2=replace(replace(request.form("banner4"),".../img_lat2/",""), "../img_lat2/", "")
	img_lat3=replace(replace(request.form("banner5"),".../img_lat3/",""), "../img_lat3/", "")
	If nome = "" Then
	Response.Redirect "departamentos.asp?link=editarcateg&id="&codigo&"&mensagem=A categoria deve ter um nome!"
	End If
	If descri = "" Then
	descri = "-"
	End If
	If img_se = "" Then
	img_se = "-"
	End If
	textosql = "UPDATE sessoes SET nome = '" & nome & "',  descr = '" & descri & "', ver = '" & ver & "', img_se = '" & img_se & "', img_lat1 = '" & img_lat1 & "', img_lat2 = '" & img_lat2 & "', img_lat3 = '" & img_lat3 & "' WHERE id = " & codigo & ";"
	Set gravadep = conexao.Execute(textosql)
Response.Redirect "departamentos.asp?link=ver&mensagem=A categoria foi alterada com sucesso!"
'**** FUNÇÃO PARA EDITAR CATEGORIA


'**** FUNÇÃO PARA EDITAR CATEGORIA
elseif request("acao") = "editarsubdep" then
	nome = request.form("nomedep")
	descri = request.form("descri")
	ver = request.form("visivel")
	sessao = request.form("sessao")
		codigo = request.form("id")
	If nome = "" Then
	Response.Redirect "departamentos.asp?link=subcateg&id="&codigo&"&mensagem=A sub-categoria deve possuir um nome!"
	End If
	If sessao = "" Then
	Response.Redirect "departamentos.asp?link=subcateg&id="&codigo&"&mensagem=Selecione uma categoria para a sub-categoria'"
	End If
	If descri = "" Then
	descri = "-"
	End If
	textosql = "UPDATE categoria SET nome = '" & nome & "',  descr = '" & descri & "', ver = '" & ver & "', idsessao="&sessao&" WHERE idcategoria = " & codigo & ";"
	Set gravadep = conexao.Execute(textosql)
Response.Redirect "departamentos.asp?link=ver&mensagem=A sub-categoria foi alterada com sucesso!"
'**** FUNÇÃO PARA EDITAR CATEGORIA


'**** FUNÇÃO PARA EXCLUIR CATEGORIA E SUB-CATEGORIA
elseif request("acao") = "excluirdep" then
	tipo = request("tipo")
		codigo = request("id")
if tipo = "dep" then
	
set categ = conexao.execute("SELECT * FROM categoria WHERE idsessao='"&codigo&"'")
while not categ.eof
set subcateg = conexao.execute("DELETE FROM subcategoria WHERE idcategoria='"&categ("idcategoria")&"'")
categ.movenext
wend

textosql = "DELETE FROM sessoes WHERE id = " & codigo & ";"
	Set gravadep = conexao.Execute(textosql)

set del = conexao.execute("DELETE FROM categoria WHERE idsessao='"&codigo&"'")

'set delprod = conexao.execute("DELETE FROM produtos WHERE idsessao='"&categ("idcategoria")&"'")

set categ = nothing
	set ds = conexao.execute("DELETE FROM categoria WHERE idsessao='"&codigo&"'")
	set ds = nothing
elseif tipo = "subdep" then	
set subcc = conexao.execute( "DELETE FROM subcategoria WHERE idcategoria = " & codigo & ";")
	textosql = "DELETE FROM categoria WHERE idcategoria = " & codigo & ";"
	Set gravadep = conexao.Execute(textosql)
	elseif tipo = "subsubdep" then	
	textosql = "DELETE FROM subcategoria WHERE idsubcategoria = " & codigo & ";"
	Set gravadep = conexao.Execute(textosql)

end if
Response.Redirect "departamentos.asp?link=ver&mensagem=A ação foi excluida com sucesso!"
'**** FUNÇÃO PARA EXCLUIR CATEGORIA E SUB-CATEGORIA


elseif request("acao") = "incluirdep" then
	nome = request.form("nomedep")
	color_lat = request.form("url")
	descri = request.form("descri")
	ver = request.form("visivel")
		If nome = "" Then
	Response.Redirect "departamentos.asp?link=incluircateg&mensagem=Informe o nome da Seção a ser criada!"
	End If
	If color_lat = "" Then
	Response.Redirect "departamentos.asp?link=incluircateg&mensagem=É obrigatório o cadastramento do banner sa sessão!"
	End If
	If descri = "" Then
	descri = "-"
	End If
If Len(Day(Date)) = 1 Then
dia = "0" & Day(Date)
Else
dia = Day(Date)
End If
If Len(Month(Date)) = 1 Then
mes = "0" & Month(Date)
Else
mes = Month(Date)
End If
	data = dia & "/" & mes & "/" & Year(Now)
	img_se=replace(replace(request.form("banner"),".../img_se/",""), "../img_se/", "")
	img_lat1=replace(replace(request.form("banner3"),".../img_lat1/",""), "../img_lat1/", "")
	img_lat2=replace(replace(request.form("banner4"),".../img_lat2/",""), "../img_lat2/", "")
	img_lat3=replace(replace(request.form("banner5"),".../img_lat3/",""), "../img_lat3/", "")


	textosql = "INSERT INTO sessoes (data, nome, descr,ver, img_se, img_lat1, img_lat2, img_lat3) VALUES ('" & data & "', '" & nome & "', '" & descri & "','" & ver & "','" & img_se & "','" & img_lat1 & "','" & img_lat2 & "','" & img_lat3 & "');"
	Set gravadep = conexao.Execute(textosql)
Response.Redirect "departamentos.asp?link=incluircateg&mensagem=A Seção foi cadastrada com sucesso!"
'**** FUNÇÃO PARA INCLUIR CATEGORIA 


'**** FUNÇÃO PARA INCLUIR SUB-CATEGORIA 
elseif request("acao") = "incluirsubdep" then
	nome = request.form("nomedep")
	descri = request.form("descri")
	ver = request.form("visivel")
	sessao = request.form("categoria")
	If nome = "" Then
	Response.Redirect "departamentos.asp?link=incluirsubcateg&mensagem=Digite o nome da Categoria a ser cadastrada!"
	End If
	If sessao = "" Then
	Response.Redirect "departamentos.asp?link=incluirsubcateg&mensagem=Selecione uma Seção!'"
	End If
	If descri = "" Then
	descri = "-"
	End If
If Len(Day(Date)) = 1 Then
dia = "0" & Day(Date)
Else
dia = Day(Date)
End If
If Len(Month(Date)) = 1 Then
mes = "0" & Month(Date)
Else
mes = Month(Date)
End If
	data = dia & "/" & mes & "/" & Year(Now)
	textosql = "INSERT INTO categoria (data, nome, descr,ver,idsessao) VALUES ('" & data & "', '" & nome & "', '" & descri & "','" & ver & "','"&sessao&"');"
	Set gravadep = conexao.Execute(textosql)
Response.Redirect "departamentos.asp?link=incluirsubcateg&mensagem=A Categoria foi cadastrada com sucesso!"
'**** FUNÇÃO PARA INCLUIR SUB-CATEGORIA 


'**** FUNÇÃO PARA INCLUIR SUB-SUB-CATEGORIA 
elseif request("acao") = "incluirsubsubdep" then
	nome = request.form("subcategoria")
	ver = request.form("visivel")
	sessao = request.form("categoria")
	If nome = "" Then
	Response.Redirect "departamentos.asp?link=incluirsubsubcateg&mensagem=Digite o nome da Sub-Categoria a ser cadastrada!"
	End If
	If sessao = "" Then
	Response.Redirect "departamentos.asp?link=incluirsubcateg&mensagem=Selecione uma Seção/Categoria!'"
	End If
	If descri = "" Then
	descri = "-"
	End If
If Len(Day(Date)) = 1 Then
dia = "0" & Day(Date)
Else
dia = Day(Date)
End If
If Len(Month(Date)) = 1 Then
mes = "0" & Month(Date)
Else
mes = Month(Date)
End If
	data = dia & "/" & mes & "/" & Year(Now)
	textosql = "INSERT INTO subcategoria (data, nome, ver, idcategoria) VALUES ('" & data & "', '" & nome & "', '" & ver & "','"&sessao&"');"

	Set gravadep = conexao.Execute(textosql)
Response.Redirect "departamentos.asp?link=incluirsubsubcateg&mensagem=A Sub-Categoria foi cadastrada com sucesso!"
'**** FUNÇÃO PARA INCLUIR SUB-SUB-CATEGORIA 

elseif request("acao")="alterarsubsubdep" then
sql = "UPDATE subcategoria SET idcategoria='"&request("categoria")&"' , nome='"&request("subcategoria")&"', ver='"&request("visivel")&"' WHERE idsubcategoria='"&request("id")&"'"
set updt = conexao.execute(sql)
Response.Redirect "departamentos.asp?link=editarsubsubcateg&id="&request("id")&"&mensagem=A Sub-Categoria foi alterada com sucesso!"


'**** FUNÇÃO PARA GRAVAR PRODUTO VELHO
elseif request("acao") = "gravaprodvelho" then
If Len(Day(Date)) = 1 Then
dia = "0" & Day(Date)
Else
dia = Day(Date)
End If
If Len(Month(Date)) = 1 Then
mes = "0" & Month(Date)
Else
mes = Month(Date)
End If
			codigo = request.form("id")
			nome = prep(request.form("nomeprod"))
			referencia = prep(request.form("referencia"))
			categoria = request.form("categoria")
						sessao = request.form("sessao")
			subcategoria = request.form("subcategoria")

			peso = request.form("peso")
			precov = request.form("precv")
			precon = request.form("precn")
			parcelamento = request.form("parc")
			juros = request.form("juro")
			juropor = request.form("jurodia")
			fabricante = request.form("fabricante")
			descricao = prep(request.form("descri"))
			estoq = request.form("ver")
			figurg = request.form("imagemg")
			transportadora = request.form("transportadora")
						anunciado = request.form("anunciado")


			destaque = request.form("destaque")
			estoque = request.form("estoque")
			if estoque = "" then
			estoque = "0"
			end if

			moeda = request.form("moeda")
			frete_gratis = request.form("frete_gratis")
			
			foto1=replace(replace(request.form("foto1"),"foto1/grande/",""), "../produtos/", "")
			foto2=replace(replace(request.form("foto2"),"foto2/grande/",""), "../produtos/", "")
			foto3=replace(replace(request.form("foto3"),"foto3/grande/",""), "../produtos/", "")
			foto4=replace(replace(request.form("foto4"),"foto4/grande/",""), "../produtos/", "")
			foto5=replace(replace(request.form("foto5"),"foto5/grande/",""), "../produtos/", "")
			foto6=replace(replace(request.form("foto6"),"foto6/grande/",""), "../produtos/", "")
			img_prod=replace(replace(request.form("imagem"),"img_prod/",""), "/img_prod/", "")
            
			
			textozql = "UPDATE produtos SET anunciado='"&anunciado&"', foto1='"&foto1&"',foto2='"&foto2&"', foto3='"&foto3&"',foto4='"&foto4&"', foto5='"&foto5&"',foto6='"&foto6&"',img_prod='"&img_prod&"', moeda='"&moeda&"', transportadora = '"&transportadora&"', nome = '"&nome&"',referencia = '"&referencia&"',fabricante = '"&fabricante&"',detalhe = '"&descricao&"',preco = '"&precon&"',precovelho = '"&precov&"',estoque = '"&estoq&"', idsessao = '"&sessao&"', idcategoria = '"&categoria&"',idsubcategoria = '"&subcategoria&"', peso = '"&peso&"', destaque = '"&destaque&"', frete_gratis = '"&frete_gratis&"' WHERE idprod='"& codigo &"'"
			'response.write textozql
			'response.end
						Set atualizaproduto = conexao.Execute(textozql)
set ve = conexao.execute("SELECT * from estoque where idproduto='"&codigo&"'")						
if ve.eof or ve.bof then
sql = "INSERT INTO estoque (idproduto, estoque) values ('"&codigo&"','"&estoque&"')"
set ie = conexao.execute(sql)
ELSE
sql = "UPDATE estoque SET estoque='"&estoque&"' WHERE idproduto='"&codigo&"'"
set grava = conexao.execute(sql)
end if
Response.Redirect "produtos.asp?link=editar&id="&codigo&"&mensagem=Produto alterado com sucesso!"
'**** FUNÇÃO PARA GRAVAR PRODUTO VELHO


'**** FUNÇÃO PARA GRAVAR PRODUTO NOVO
elseif request("acao") = "incluiproduto" then
If Len(Day(Date)) = 1 Then
dia = "0" & Day(Date)
Else
dia = Day(Date)
End If
If Len(Month(Date)) = 1 Then
mes = "0" & Month(Date)
Else
mes = Month(Date)
End If
			nome = prep(request.form("nomeprod"))
			sessao = request.form("sessao")
						categoria = request.form("categoria")
						subcategoria = request.form("subcategoria")

			peso = request.form("peso")
			precov = request.form("precv")
			precon = request.form("precn")
			parcelamento = request.form("parc")
			juros = request.form("juro")
			juropor = request.form("jurodia")
			fabricante = request.form("fabricante")
			descricao = prep(request.form("descri"))
			estoq = request.form("ver")
			figurg = request.form("imagemg")
			transportadora = request.form("transportadora")
						anunciado = request.form("anunciado")
						

			foto1=replace(replace(request.form("foto1"),"foto1/grande/",""), "../produtos/", "")
			foto2=replace(replace(request.form("foto2"),"foto2/grande/",""), "../produtos/", "")
			foto3=replace(replace(request.form("foto3"),"foto3/grande/",""), "../produtos/", "")
			foto4=replace(replace(request.form("foto4"),"foto4/grande/",""), "../produtos/", "")
			foto5=replace(replace(request.form("foto5"),"foto5/grande/",""), "../produtos/", "")
			foto6=replace(replace(request.form("foto6"),"foto6/grande/",""), "../produtos/", "")

			destaque = request.form("destaque")
			estoque = request.form("estoque")
			
			moeda = request.form("moeda")
			frete_gratis = request.form("frete_gratis")
			
'inclui o novo produto na base de dados
gravador = "INSERT INTO produtos (anunciado, ampliada, moeda, transportadora, nome, fabricante, detalhe, preco, precovelho, estoque, idsessao, idcategoria, idsubcategoria, data, peso, foto1, foto2, foto3, foto4, foto5, foto6, status, destaque,frete_gratis) VALUES ('"&anunciado&"','"&ampliada&"', '"&moeda&"', '" & transportadora & "','" & nome & "', '" & fabricante & "', '" & descricao & "', '" & precon & "', '" & precov & "', '" & estoq & "', '" & sessao & "','" & categoria & "', '" & subcategoria & "','" & dia & "/" & mes & "/" & Year(Date) & "','" & peso & "', '"&foto1&"', '"&foto2&"','"&foto3&"', '"&foto4&"','"&foto5&"', '"&foto6&"', 'nao', '" & destaque & "', '" & frete_gratis & "')"
			Set gravanovo = conexao.Execute(gravador)
'pega o código do produto
textoest = "SELECT idprod from produtos where nome='"&nome&"' and detalhe ='"&descricao&"'"
			Set buscaEst = conexao.Execute(textoest)
			if not buscaEst.eof then
			sql = "INSERT INTO estoque (idproduto,estoque) values ('"& buscaEst("idprod") &"','"& estoque &"')"
			response.write sql
				Saida = conexao.execute(sql)
			end if
response.redirect "produtos.asp?link=incluir&mensagem=O produto foi cadastrado com sucesso!"
'**** FUNÇÃO PARA GRAVAR PRODUTO NOVO


'**** FUNÇÃO PARA GRAVAR PRODUTO NOVO
elseif request("acao") = "excluirpro" then
		codigo = request("id")
				set verprod = conexao.execute("SELECT * FROM produtos WHERE idprod = " & codigo & "")
				
					if verprod("foto1") <> "grande.gif" then
		Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile server.MapPath("../produtos/foto1/pequena"& verprod("foto") )
objFSO.DeleteFile server.MapPath("../produtos/foto1/media"& verprod("foto") )
objFSO.DeleteFile server.MapPath("../produtos/foto1/grande"& verprod("foto") )


set objFSO = nothing
end if


	if verprod("foto2") <> "grande.gif" then
		Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile server.MapPath("../produtos/foto2/"& verprod("foto2") )
set objFSO = nothing
end if
		if verprod("foto3") <> "grande.gif" then
		Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile server.MapPath("../produtos/foto3/"& verprod("foto3") )
set objFSO = nothing
end if
		if verprod("foto4") <> "grande.gif" then
		Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile server.MapPath("../produtos/foto3/"& verprod("foto4") )
set objFSO = nothing
end if
		if verprod("foto5") <> "grande.gif" then
		Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile server.MapPath("../produtos/foto3/"& verprod("foto5") )
set objFSO = nothing
end if
		if verprod("foto6") <> "grande.gif" then
		Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile server.MapPath("../produtos/foto3/"& verprod("foto6") )
set objFSO = nothing
end if


	textosql = "DELETE FROM produtos WHERE idprod = " & codigo & ";"
		Set excluir = conexao.Execute(textosql)

Response.Redirect "produtos.asp?link=ver&mensagem=O produto foi excluido com sucesso!"
'**** FUNÇÃO PARA GRAVAR PRODUTO NOVO


'**** FUNÇÃO PARA EXCLUIR COMPRA
elseif request("acao") = "excluircompra" then
codigo = request("id")
set compra = conexao.execute("DELETE FROM compras WHERE idcompra='"&codigo&"'")
set pedido = conexao.execute("DELETE FROM pedidos WHERE idcompra='"&codigo&"'")
Response.Redirect "vendas.asp?link=data&dia="&dia&"/"&mes&"/"&Year(now)&"&mensagem=O pedido foi excluido com sucesso!"
'**** FUNÇÃO PARA EXCLUIR COMPRA


'**** FUNÇÃO PARA EXCLUIR COMPRA
elseif request("acao") = "excluircompras" then
codigo = request("id")
set compra = conexao.execute("DELETE FROM compras WHERE idcompra='"&codigo&"'")
set pedido = conexao.execute("DELETE FROM pedidos WHERE idcompra='"&codigo&"'")
Response.Redirect "vendas.asp?link=todas&mensagem=O pedido foi excluido com sucesso!"
'**** FUNÇÃO PARA EXCLUIR COMPRA


'**** FUNÇÃO PARA MUDAR STATUS
elseif request("acao") = "mudastatus" then
compra = request.form("id")
estatus = request.form("status")
textozql = "UPDATE compras SET status = '"&estatus&"' WHERE idcompra='"& compra &"'"
Set mudastatus = conexao.Execute(textozql)
set conecompra = conexao.execute("SELECT * FROM compras WHERE idcompra='"& compra &"'")
set cliente = conexao.execute("SELECT * FROM clientes WHERE email='"&conecompra("clienteid")&"'")


Select Case conecompra("status")
Case "0" 
status = "Estamos aguardando  a confirmação de pagamento do seu pedido. Caso tenha desistido da compra, informe-nos o motivo respondendo esta mensagem."
Case "1"
status = "O pagamento do seu pedido foi confirmado e já encaminhado para envio. Assim que for despachado o Sr(a) receberá o localizador da entrega em seu email."
Case "2"
status = "O produto foi enviado. Assim que receber o produto, por favor nos comunique respondendo a esta mensagem."
Case "3"
status = "Conforme contato o pedido foi entregue com sucesso. Sua venda foi concluida. Agradecemos a preferência, volte sempre!"
Case "4"
status = "Conforme observado pelo Sr(a)., um ou mais produtos do pedido estão extraviados. O(s) produto(s) deverão ser enviados novamente à "&loja("nome_loja")&" para aplicação de garantia ou troca."
Case "5"
status = "O produto extraviado foi recebido com sucesso e foi encaminhado à troca ou aplicação de garantia."
Case "6"
status = "Sua compra foi cancelada por fim do prazo para pagamento. Caso tenha interesse no produto, efetue uma nova compra."
Case "7"
status = "Por favor, pedimos que entre em contato conosco para resolvermos questões de seu interesse."
Case "8"
status = "Sua compra foi cancelada sem motivo informado."
end select

'função exclusiva de emails VIRTUAPLUS			

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objHTML = objFSO.OpenTextFile(server.MapPath("../emails") & "\alterado_status.html", 1, True, 0)
mensagem = objHTML.ReadAll
Set objHTML = Nothing
Set objFSO = Nothing
response.clear
mensagem = Replace(mensagem, "##nome_cliente##",  hash(cliente("nome")) )
mensagem = Replace(mensagem, "##nome_loja##", loja("nome_loja"))
mensagem = Replace(mensagem, "##slogan_loja##", loja("slogan_loja"))
mensagem = Replace(mensagem, "##forma_entrega##", tfrete)
mensagem = Replace(mensagem, "##email_loja##", loja("email"))
mensagem = Replace(mensagem, "##endereco_loja##", loja("endereco"))
mensagem = Replace(mensagem, "##cep_loja##", loja("cep"))
mensagem = Replace(mensagem, "##bairro_loja##", loja("bairro"))
mensagem = Replace(mensagem, "##cidade_loja##", loja("cidade"))
mensagem = Replace(mensagem, "##estado_loja##", loja("estado"))
mensagem = Replace(mensagem, "##url_loja##", "http://" & loja("url_loja"))
mensagem = Replace(mensagem, "##data##", date)


mensagem = Replace(mensagem, "##pedido##", compra)
mensagem = Replace(mensagem, "##status##", status)

Dim send_mail
send_mail = enviar(loja("email"),  hash(cliente("email")) , loja("nome_loja") &" - Pedido "&compra&" foi alterado!", mensagem)


Response.Redirect "vendas.asp?link=ver&id="&compra&"&mensagem=O status da compra foi alterado com sucesso!"
'**** FUNÇÃO PARA MUDAR STATUS


'**** FUNÇÃO PARA GRAVAR LOCALIZADOR 
elseif request("acao") = "gravaloc" then
set verifica = conexao.execute("SELECT * FROM loc WHERE compra='"&request("compra")&"'")
if verifica.eof or verifica.bof then
sql = "INSERT INTO loc (data, hora, compra, localizador, mensagem) values ('"&request("data")&"', '"&request("hora")&"', '"&request("compra")&"', '"&request("localizador")&"', '"&request("mensagem")&"')"
else
sql = "UPDATE loc set data='"&request("data")&"', hora='"&request("hora")&"', localizador='"&request("localizador")&"', mensagem='"&request("mensagem")&"' WHERE compra="&request("compra")&""

end if
set grava = conexao.execute(sql)

'função exclusiva de emails VIRTUAPLUS			
set conecompra = conexao.execute("SELECT * FROM compras WHERE idcompra='"& request("compra") &"'")
set cliente = conexao.execute("SELECT * FROM clientes WHERE email='"&conecompra("clienteid")&"'")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objHTML = objFSO.OpenTextFile(server.MapPath("../emails") & "\envio_loc.html", 1, True, 0)
mensagem = objHTML.ReadAll
Set objHTML = Nothing
Set objFSO = Nothing
mensagem = Replace(mensagem, "##nome_cliente##",  hash(cliente("nome")) )
mensagem = Replace(mensagem, "##nome_loja##", loja("nome_loja"))
mensagem = Replace(mensagem, "##slogan_loja##", loja("slogan_loja"))
mensagem = Replace(mensagem, "##email_loja##", loja("email"))
mensagem = Replace(mensagem, "##endereco_loja##", loja("endereco"))
mensagem = Replace(mensagem, "##cep_loja##", loja("cep"))
mensagem = Replace(mensagem, "##bairro_loja##", loja("bairro"))
mensagem = Replace(mensagem, "##cidade_loja##", loja("cidade"))
mensagem = Replace(mensagem, "##estado_loja##", loja("estado"))
mensagem = Replace(mensagem, "##url_loja##", "http://" & loja("url_loja"))
mensagem = Replace(mensagem, "##pedido##", request("compra"))

dados = "Data do Envio: "&request("data")&"<br>Hora do Envio: "&request("hora")&"<br>Localizador: "&request("localizador")&"<br>Mensagem: "&request("mensagem")&""
mensagem = Replace(mensagem, "##dados##", dados)


enviar loja("email"),  hash(cliente("email")) , loja("nome_loja") &" - Pedido "&compra&" foi alterado!", mensagem


Response.Redirect "vendas.asp?link=ver&id="&request("compra")&"&mensagem=Os dados do envio foram arquivados com sucesso e enviados ao cliente!"
'**** FUNÇÃO PARA MUDAR STATUS


'**** FUNÇÃO PARA TEXTO QUEM SOMOS
elseif request("acao") = "quemsomos" then
textozql = "UPDATE loja SET quemsomos = '"&request("quemsomos")&"'"
set grava = conexao.execute(textozql)
response.redirect "testando.asp?link=quemsomos&mensagem=O texto da página foi alterado com sucesso!"
'**** FUNÇÃO PARA TEXTO QUEM SOMOS

'**** FUNÇÃO PARA TEXTO QUEM SOMOS
elseif request("acao") = "loja" then
textozql = "UPDATE loja SET loja = '"&request("loja")&"'"
set grava = conexao.execute(textozql)
response.redirect "testando.asp?link=loja&mensagem=O texto da página foi alterado com sucesso!"
'**** FUNÇÃO PARA TEXTO QUEM SOMOS

'**** FUNÇÃO PARA TEXTO QUEM SOMOS
elseif request("acao") = "cursos" then
textozql = "UPDATE loja SET cursos = '"&request("cursos")&"'"
set grava = conexao.execute(textozql)
response.redirect "testando.asp?link=cursos&mensagem=O texto da página foi alterado com sucesso!"
'**** FUNÇÃO PARA TEXTO QUEM SOMOS

'**** FUNÇÃO PARA TEXTO QUEM SOMOS
elseif request("acao") = "convenios" then
textozql = "UPDATE loja SET convenios = '"&request("convenios")&"'"
set grava = conexao.execute(textozql)
response.redirect "testando.asp?link=convenios&mensagem=O texto da página foi alterado com sucesso!"
'**** FUNÇÃO PARA TEXTO QUEM SOMOS

'**** FUNÇÃO PARA TEXTO QUEM SOMOS
elseif request("acao") = "laboratorios" then
textozql = "UPDATE loja SET laboratorios = '"&request("laboratorios")&"'"
set grava = conexao.execute(textozql)
response.redirect "testando.asp?link=laboratorios&mensagem=O texto da página foi alterado com sucesso!"
'**** FUNÇÃO PARA TEXTO QUEM SOMOS


'**** FUNÇÃO PARA CADASTRO DE BANNER
elseif request("acao") = "inserebanner" then
local = request.form("local")
link = request.form("link")
imagem = request.form("banner")
imagem = replace(imagem,"../", "")
sql = "INSERT INTO banners (direcao, link, imagem) values ('"&local&"', '"&link&"', '"&imagem&"')"
set rs = conexao.execute(sql)
response.redirect "banner.asp?link=novo&mensagem=O banner foi cadastrado com sucesso!"
'**** FUNÇÃO PARA CADASTRO DE BANNER


'**** FUNÇÃO PARA ALTERAR  BANNER
elseif request("acao") = "alterabanner" then
codigo = request.form("id")
local = request.form("local")
link = request.form("link")
imagem = request.form("banner")
imagem = replace(imagem,"../", "")
sql = "UPDATE banners SET direcao='"&local&"', link='"&link&"', imagem='"&imagem&"' WHERE id='"&codigo&"'"
set rs = conexao.execute(sql)
response.redirect "banner.asp?link=editar&id="&codigo&"&mensagem=O Banner foi alterado com sucesso!"
'**** FUNÇÃO PARA ALTERAR  BANNER


'**** FUNÇÃO PARA EXCLUIR  BANNER
elseif request("acao") = "excluirbanner" then
codigo = request("id")
sql = "DELETE FROM banners WHERE id='"&codigo&"'"
set excluir= conexao.execute(sql)
response.redirect "banner.asp?link=ver&mensagem=O banner foi excluido com sucesso!"
'**** FUNÇÃO PARA EXCLUIR  BANNER


'**** FUNÇÃO PARA INCLUIR CUPOM DESCONTO
elseif request("acao") = "incluircupom" then
sql = "INSERT INTO cupom (data, codigo, valor, tipo, utilizado) values ('"&date&"','"&request.form("codigo")&"','"&request.form("valor")&"','"&request.form("desconto")&"', 'n')"
set grava = conexao.execute(sql)
response.redirect "cupom.asp?link=novo&mensagem=O código de cupom foi cadastrado com sucesso!"
'**** FUNÇÃO PARA INCLUIR CUPOM DESCONTO


'**** FUNÇÃO PARA EDITAR CUPOM DESCONTO
elseif request("acao") = "editarcupom" then
sql = "UPDATE cupom SET valor='"&request.form("valor")&"', tipo='"&request.form("desconto")&"' WHERE id="&request.form("id")&""
set grava = conexao.execute(sql)
response.redirect "cupom.asp?link=editar&id="&request.form("id")&"&mensagem=O cupom desconto foi alterado com sucesso!"
'**** FUNÇÃO PARA EDITAR CUPOM DESCONTO

'**** FUNÇÃO PARA EDITAR CUPOM DESCONTO
elseif request("acao") = "excluircupom" then
sql = "DELETE FROM cupom WHERE id="&request("id")&""
set grava = conexao.execute(sql)
response.redirect "cupom.asp?link=ver&mensagem=O cupom desconto foi excluido com sucesso!"
'**** FUNÇÃO PARA EDITAR CUPOM DESCONTO


'**** FUNÇÃO PARA INCLUIR FABRICANTE
elseif request("acao") = "incluiimg_prod" then
sql = "INSERT INTO produtos (img_prod) values ('"&replace(request.form("imagem"), "../", "")&"')"
set grava = conexao.execute(sql)
response.redirect "produtos.asp?link=incluirimg_prod&mensagem=O Fabricante foi cadastrado com sucesso!"
'**** FUNÇÃO PARA INCLUIR FABRICANTE


'**** FUNÇÃO PARA EDITAR FABRICANTE
elseif request("acao") = "editarimg_prod" then
sql = "UPDATE produtos SET imagem = '"&replace(request.form("imagem"), "../", "")&"' WHERE id='"&request("id")&"'"
set grava = conexao.execute(sql)
response.redirect "produtos.asp?link=editarimg_prod&id="&request("id")&"&mensagem=O Fabricante foi alterado com sucesso!"
'**** FUNÇÃO PARA EDITAR FABRICANTE


elseif request("acao") = "incluimarca" then
sql = "INSERT INTO fabricantes (data, nome, imagem) values ('"&date&"','"&request.form("nome")&"','"&replace(request.form("imagem"), "../", "")&"')"
set grava = conexao.execute(sql)
response.redirect "produtos.asp?link=incluirfabricante&mensagem=O Fabricante foi cadastrado com sucesso!"
'**** FUNÇÃO PARA INCLUIR FABRICANTE


'**** FUNÇÃO PARA EXCLUIR FABRICANTE
elseif request("acao") = "excluirfabricante" then
sql = "DELETE FROM fabricantes WHERE id="&request("id")&""
set grava = conexao.execute(sql)
response.redirect "produtos.asp?link=fabricantes&mensagem=O fabricante foi excluido com sucesso!"
'**** FUNÇÃO PARA EXCLUIR FABRICANTE


'**** FUNÇÃO PARA EDITAR FABRICANTE
elseif request("acao") = "editarmarca" then
sql = "UPDATE fabricantes SET data='"&date&"', nome='"&request.form("nome")&"', imagem = '"&replace(request.form("imagem"), "../", "")&"' WHERE id='"&request("id")&"'"
set grava = conexao.execute(sql)
response.redirect "produtos.asp?link=editarfabricante&id="&request("id")&"&mensagem=O Fabricante foi alterado com sucesso!"
'**** FUNÇÃO PARA EDITAR FABRICANTE


'**** FUNÇÃO PARA BRPAY 
elseif request("acao") = "brpay" then
sql = "UPDATE config_brpay SET utilizar='"&request.form("utilizar")&"', email_cobranca='"&request.form("email_cobranca")&"', moeda = '"&request.form("moeda")&"', tipo='"&request.form("tipo")&"'"
set grava = conexao.execute(sql)

response.redirect "geral.asp?link=brpay&mensagem=As configurações do PagSeguro foram alteradas com sucesso!"
'**** FUNÇÃO PARA BRPAY 


'**** FUNÇÃO PARA PAGDIGITAL 
elseif request("acao") = "pagdigital" then
sql = "UPDATE config_pagdigital SET pagdigital_utilizar='"&request.form("pagdigital_utilizar")&"', pagamentodigital_email='"&request.form("pagamentodigital_email")&"'"
set grava = conexao.execute(sql)

response.redirect "geral.asp?link=pagdigital&mensagem=As configurações do Pagamento Digital foram alteradas com sucesso!"
'**** FUNÇÃO PARA PAGDIGITAL


'**** FUNÇÃO PARA GOOGLE ANALYTICS 
elseif request("acao") = "analytics" then
sql = "UPDATE loja SET analytics='"&request.form("id")&"'"
set grava = conexao.execute(sql)

response.redirect "estatistica.asp?mensagem=A ID de configuração Google Analytics foi alterada com sucesso!"
'**** FUNÇÃO PARA GOOGLE ANALYTICS 


elseif request("acao") = "vip" then
		
		codigo = request("id")
		vip = request("vip")

	textosql = "UPDATE clientes SET vip = '" & vip & "' WHERE clienteid = " & codigo & ";"
		Set vip = conexao.Execute(textosql)
		

Response.Redirect "clientes.asp?resposta=ok"


elseif request("acao") = "limpatudo" then
set ca = conexao.execute("SELECT * FROM compras WHERE status='Compra em Aberto'")
while not ca.eof
set dlpedido = conexao.execute("DELETE FROM pedidos WHERE idcompra='"&ca("idcompra")&"'")
ca.movenext
wend
ca.close
set ca = nothing

set dl = conexao.execute("DELETE FROM compras WHERE status='Compra em Aberto'")
dl.close
set dl = nothing
response.redirect "default.asp"

elseif request("acao") = "atualiza" then
set grava = conexao.execute("update loja set atualizado='"&date(now)&"'")


end if
%>