<% '##### DEPARTAMENTOS 'Sub DepartamentosASP() If Request("acaba") = "sim" Then Session("adm_descprod") = "" Session("adm_email") = "" End If Select Case strAcao Case "inserir" strTextoHtml = strTextoHtml & " Incluir novo departamento na loja
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "" varimg = " " strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
Data:" & dia & "/" & mez & "/" & Year(Date) & "
Departamento: "sim" Then strTextoHtml = strTextoHtml & Request.QueryString("erro1") End If strTextoHtml = strTextoHtml & """ size=50 style=font-size:11px;font-family:tahoma>" If Request.QueryString("erro1") = "sim" Then strTextoHtml = strTextoHtml & varimg End If strTextoHtml = strTextoHtml & "
Dica: Para criar apenas um Departamento e inserir Produtos nele (sem ter Sub-Departamentos), crie um Sub-Departamento chamado ""Todos"" e cadastre os produtos neste Sub-Departamento
Descrição (opcional):
Visível:
    

Voltar para página inicial

" Case "gravanovo" nome = Trim(Request("nomedep")) descri = Trim(Request("descri")) ver = Trim(Request("ver")) If nome = "" Then If nome = "" Then erro1 = "sim" Else erro1 = nome erro3 = descri If ver = "" Then erro2 = "sim" Else erro2 = ver Response.Redirect "?link=dep&acao=inserir&erro1=" & erro1 & "&erro2=" & erro2 & "&erro3=" & erro3 End If If descri = "" Then descri = "-" End If If CStr(Len(Day(Now))) = CStr("1") Then diazz = "0" & Day(Now) Else diazz = Day(Now) End If If CStr(Len(Month(Now))) = CStr("1") Then meszz = "0" & Month(Now) Else meszz = Month(Now) End If dataz = diazz & "/" & meszz & "/" & Year(Now) textosql = "INSERT INTO sessoes (data, nome, descr,ver) VALUES ('" & dataz & "', '" & nome & "', '" & descri & "','" & ver & "');" Set gravadep = conexao.Execute(textosql) strTextoHtml = strTextoHtml & " Novo departamento incluído na loja com sucesso
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "
Inserir um novo departamento na loja
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "

" strTextoHtml = strTextoHtml & "" varimg = " " strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
Data:" & dataz & "
Departamento:" & nome & "
Descrição (opcional):" If descri = "" Then strTextoHtml = strTextoHtml & "-" Else strTextoHtml = strTextoHtml & descri End If strTextoHtml = strTextoHtml & "
Visível:" If CStr(ver) = "s" Then strTextoHtml = strTextoHtml & "Sim" Else strTextoHtml = strTextoHtml & "Não" End If strTextoHtml = strTextoHtml & "
Voltar para página inicial

" Case "editar" Set rs = conexao.Execute("SELECT * FROM sessoes ORDER by nome") If rs.EOF Or rs.bof Then strTextoHtml = strTextoHtml & " Editar departamentos na loja
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "Departamentos(s) encontrado(s): 0
" strTextoHtml = strTextoHtml & "

" strTextoHtml = strTextoHtml & "


Nenhum departamento foi encontrado na base de dados da loja.



" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
Voltar para Página Inicial
" Else Set rs2 = conexao.Execute("SELECT count(nome) AS total FROM sessoes;") totalreg = rs2("total") rs2.Close Set rs2 = Nothing numiz = Request("pagina") & "0" numiz = CInt(numiz) iz = iz + numiz strTextoHtml = strTextoHtml & " Editar departamentos na loja
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "Departamentos(s) encontrado(s): " & totalreg & "
" strTextoHtml = strTextoHtml & "
" While Not rs.EOF iz = iz + 1 If rs("ver") = "s" Then varestoq = "Sim" Else varestoq = "Não" End If strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "
" & iz & ") " & UCase(rs("nome")) & "
      Data: " & rs("data") & "    Visível: " & varestoq & "		Ação: Ver | Editar 
" rs.movenext Wend strTextoHtml = strTextoHtml & "

Voltar para Página Inicial
" rs.Close Set rs = Nothing End If Case "excluir" Set rs = conexao.Execute("SELECT * FROM sessoes ORDER by nome") If rs.EOF Or rs.bof Then strTextoHtml = strTextoHtml & " Excluir departamentos na loja
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "Departamentos(s) encontrado(s): 0
" strTextoHtml = strTextoHtml & "

" strTextoHtml = strTextoHtml & "


Nenhum departamento foi encontrado na base de dados da loja.



" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
Voltar para Página Inicial
" Else Set rs2 = conexao.Execute("SELECT count(nome) AS total FROM sessoes;") totalreg = rs2("total") rs2.Close Set rs2 = Nothing numiz = Request("pagina") & "0" numiz = CInt(numiz) iz = iz + numiz strTextoHtml = strTextoHtml & " Excluir departamentos na loja
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "Departamentos(s) encontrado(s): " & totalreg & "
" strTextoHtml = strTextoHtml & "
" If Request("status") = "sucesso" Then strTextoHtml = strTextoHtml & "
DEPARTAMENTO EXCLIUDO COM SUCESSO!

" Else End If While Not rs.EOF iz = iz + 1 If rs("ver") = "s" Then varestoq = "Sim" Else varestoq = "Não" End If strTextoHtml = strTextoHtml & "" & vbNewLine strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "
" & vbNewLine strTextoHtml = strTextoHtml & "
" & iz & ") " & UCase(rs("nome")) & "
      Data: " & rs("data") & "    Visível: " & varestoq & "		Ação: Ver | Excluir 
" rs.movenext Wend strTextoHtml = strTextoHtml & "

Voltar para Página Inicial
" rs.Close Set rs = Nothing End If Case "exclui" notz = Request.QueryString("dep") set rs_delete = abredb.execute("SELECT idcategoria from categoria where idsessao=" & notz & ";") if not rs_delete.eof then delete_idcategoria=rs_delete("idcategoria") end if rs_delete.close set rs_delete = nothing conexao.Execute("delete from categoria where idsessao=" & notz & ";") conexao.Execute("delete from sessoes where id=" & notz & ";") conexao.Execute("delete from produtos where idsessao='" & delete_idcategoria & "';") Response.Redirect "?link=dep&acao=excluir&status=sucesso" Case "ver" Set setdep = conexao.Execute("SELECT * FROM sessoes WHERE id = " & Request("dep") & ";") nome = setdep("nome") data = setdep("data") descri = setdep("descr") ver = setdep("ver") If Request("status") = "sucesso" Then strTextoHtml = strTextoHtml & " Departamento editado com sucesso
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "
Editar novamente este departamento | Ver novamente todos os departamentos
" Else strTextoHtml = strTextoHtml & " Ver departamento cadastrado na loja
" strTextoHtml = strTextoHtml & "
" If Request("modo") = "exclui" Then strTextoHtml = strTextoHtml & "" & vbNewLine strTextoHtml = strTextoHtml & "
Excluir este departamento | Ver todos os departamentos
" Else strTextoHtml = strTextoHtml & "
Editar este departamento | Ver todos os departamentos
" End If End If strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "

" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
Data:" & dataz & "
Departamento:" & nome & "
Descrição (opcional):" If setdep("descr") = "" Then strTextoHtml = strTextoHtml & "-" Else strTextoHtml = strTextoHtml & descri End If strTextoHtml = strTextoHtml & "
Visível:" If CStr(ver) = "s" Then strTextoHtml = strTextoHtml & "Sim" Else strTextoHtml = strTextoHtml & "Não" End If strTextoHtml = strTextoHtml & "
Voltar para página inicial

" Case "edita" Set depz = conexao.Execute("SELECT * FROM sessoes WHERE id = " & Request("dep") & ";") strTextoHtml = strTextoHtml & " Editar departamento na loja
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" varimg = " " strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
Data:" & depz("data") & "
Departamento:" If Request.QueryString("erro1") = "sim" Then strTextoHtml = strTextoHtml & varimg End If strTextoHtml = strTextoHtml & "
Descrição (opcional):
Visível:
    

Voltar para página inicial

" Case "gravavelho" nome = Trim(Request("nomedep")) descri = Trim(Request("descri")) ver = Trim(Request("ver")) If nome = "" Then If nome = "" Then erro1 = "sim" Else erro1 = nome erro3 = descri If ver = "" Then erro2 = "sim" Else erro2 = ver Response.Redirect "?link=dep&acao=edita2&erro1=" & erro1 & "&erro2=" & erro2 & "&erro3=" & erro3 & "&dep=" & Request("dep") End If If descri = "" Then descri = "-" End If textosql = "UPDATE sessoes SET nome = '" & nome & "', descr = '" & descri & "', ver = '" & ver & "' WHERE id = " & Request("dep") & ";" Set gravadep = conexao.Execute(textosql) Response.Redirect "?link=dep&acao=ver&status=sucesso&dep=" & Request("dep") Case "edita2" strTextoHtml = strTextoHtml & " Editar departamento na loja
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" varimg = " " strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
Data:" & dia & "/" & mez & "/" & Year(Date) & "
Departamento: "sim" Then strTextoHtml = strTextoHtml & Request.QueryString("erro1") End If strTextoHtml = strTextoHtml & """ size=50 style=font-size:11px;font-family:tahoma>" If Request.QueryString("erro1") = "sim" Then strTextoHtml = strTextoHtml & varimg End If strTextoHtml = strTextoHtml & "
Descrição (opcional):
Visível:
    

Voltar para página inicial

" End Select 'End Sub %>