<% 'dim conexaodb pag = request("pag") action = request("action") %> <% IF action = "" Then SQL = "SELECT * FROM produtoscategorias ORDER BY id DESC" Call abreconexao Set RS = conexaodb.execute(SQL) 'SQL = "SELECT * FROM produtossubcategorias ORDER BY id DESC" 'Call abreconexao 'Set RS = conexaodb.execute(SQL) ELSEIF action = "adicionar" then vnome = request("txtnome") vcategoria = request("txtcategoria") 'vnome = replace(vnome,"'",""") SQL = "INSERT INTO produtossubcategorias (nome, categoria) VALUES ('"&vnome&"', '"&vcategoria&"')" Call abreconexao conexaodb.execute(SQL) %> <% ELSEIF action = "excluir" then codigo = request("codigo") SQL = "DELETE * FROM produtossubcategorias WHERE id="&codigo Call abreconexao conexaodb.execute (SQL) %> <% ELSEIF action = "alterar" then codigo = request("codigo") SQL = "SELECT * FROM produtossubcategorias WHERE id="&codigo Call abreconexao Set rs = conexaodb.execute(SQL) ELSEIF action = "alterar2" then codigo = request("codigo") vnome = request("txtnome") vcategoria = request("txtcategoria") 'vnome = replace(vnome,"'",""") SQL = "UPDATE produtossubcategorias SET nome='"&vnome&"', categoria='"&vcategoria&"' WHERE id="&codigo Call Abreconexao set Rs = conexaodb.execute(SQL) Call Fechaconexao Set RS = Nothing %> <% END IF %> <% IF pag = 1 then %> <% ELSEIF pag = 2 then %> <% ELSEIF pag = 3 then %> <% END IF %>

Produtos > Sub-Categoria > Adicionar

<% SQL = "SELECT * FROM produtoscategorias ORDER BY nome ASC" Call abreconexao Set rs = conexaodb.execute(SQL) %>

Categoria:
Sub-Categoria:

Produtos > Sub-Categoria > Listar

<% If Not RS.EOF Then While Not Rs.EOF SQL = "SELECT * FROM produtossubcategorias WHERE categoria="&rs("id") Call abreconexao Set rs2 = conexaodb.execute(SQL) %> <% If Not RS2.EOF Then While Not Rs2.EOF %> <% Rs2.Movenext Wend %> <%END IF%> <% Rs.Movenext Wend 'Rs.close 'Call FechaConexao 'Set Rs = Nothing Else %> <%END IF%>

<%=rs("nome")%>
<%=RS2("nome")%>	)"> )">


Nenhuma Sub-Categoria cadastrada !!!

Produtos > Sub-Categoria > Alterar

<% 'codigo = request("codigo") SQL = "SELECT * FROM produtoscategorias " Call abreconexao Set rs2 = conexaodb.execute(SQL) %> " method="post">

Categoria:
Sub-Categoria:	">