<% 'dim conexaodb pag = request("pag") action = request("action") %> <% IF action = "" Then SQL = "SELECT * FROM produtos ORDER BY nome ASC" 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" and request("submit") = "Incluir" then vnome = request("txtnome") vcategoria = request("txtcategoria") vsubcategoria = request("txtsubcategoria") vdescricao = request("txtdescricao") vimagp = request("imag_peq") vimagg = request("imag_gr") ' altero ' por " para não dar erro no banco vnome = replace(vnome,"'",""") vdescricao = replace(vdescricao,"'",""") 'vnome = replace(vnome,"'",""") vlancamento = request("txtlancamento") 'response.Write(vnome & vcategoria & vsubcategoria & vdescricao & vimagp & vimagg) 'response.end() SQL = "INSERT INTO produtos (nome, categoria, subcategoria, descricao, fotop, fotog, lancamento) VALUES ('"&vnome&"', '"&vcategoria&"', '"&vsubcategoria&"', '"&vdescricao&"', '"&vimagp&"', '"&vimagg&"', '"&vlancamento&"')" Call abreconexao conexaodb.execute(SQL) %> <% ELSEIF action = "excluir" then codigo = request("codigo") SQL = "DELETE * FROM produtos WHERE id="&codigo Call abreconexao conexaodb.execute (SQL) %> <% ELSEIF action = "alterar" and request("Submit") <> "Alterar" then codigodoproduto = request("codigodoproduto") SQL = "SELECT * FROM produtos WHERE id="&codigodoproduto Call abreconexao Set rsproduto = conexaodb.execute(SQL) 'response.Write(request("Submit")) ELSEIF action = "alterar" and request("Submit") = "Alterar" then vcodigo = request("codigodoproduto") vnome = request("txtnome") vcategoria = request("txtcategoria") vsubcategoria = request("txtsubcategoria") vdescricao = request("txtdescricao") vimagp = request("imag_peq") vimagg = request("imag_gr") ' altero ' por " para não dar erro no banco vnome = replace(vnome,"'",""") vdescricao = replace(vdescricao,"'",""") 'vnome = replace(vnome,"'",""") vlancamento = request("txtlancamento") 'response.Write(vnome& vcategoria & vsubcategoria & vdescricao & vimagp & vimagg & vcodigo) 'response.End() SQL = "UPDATE produtos SET nome='"&vnome&"', categoria="&vcategoria&", subcategoria="&vsubcategoria&", descricao='"&vdescricao&"', fotop='"&vimagp&"', fotog='"&vimagg&"', lancamento='"&vlancamento&"' WHERE id= "&vcodigo Call Abreconexao set Rs = conexaodb.execute(SQL) Call Fechaconexao Set RS = Nothing %> <% END IF 'soaltera = request("txtalterasocategoria") 'if soaltera = "sim" then 'vcategoria = request("txtcategoria") 'vcodigo = request("codigodoproduto") ' SQL = "UPDATE produtos SET categoria="&vcategoria&"' WHERE id= "&vcodigo ' 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 > Adicionar
<% categoria = request("txtcategoria") IF categoria <> "" Then SQL = "SELECT * FROM produtoscategorias WHERE id="&categoria Call abreconexao Set rscod = conexaodb.execute(SQL) codselect = rscod("id") END IF SQL = "SELECT * FROM produtoscategorias ORDER BY nome ASC" Call abreconexao Set rs = conexaodb.execute(SQL) %>
Imagem: 
 <% IF vimag_peq = "" Then vimag_peq = request("imag_peq") vimag_gr = request("imag_gr") END IF if trim(vimag_peq)<>"" then vurlFoto="../../images_foto/" & vimag_peq else vurlFoto="../../images/pixtransp.gif" end if %>
Categoria: 
  
Sub-Categoria: 
Nome: 
Descrição: 
Lançamento:
 Sim     Não
                      
                         <%'botão%>
   
 Produtos > Listar
<% subcategoria = Request("txtsubcategoria") categoria = request("txtcategoria") 'Response.Write(categoria & subcategoria) 'response.end() IF categoria <> "" And subcategoria <> "" Then SQL = "SELECT * FROM produtos Where categoria="&categoria&" and subcategoria=" &subcategoria Call abreconexao Set rs3= conexaodb.execute(SQL) %> <% If Not rs3.EOF Then While Not rs3.EOF 'imagem = Rs("fotop") %> <% rs3.Movenext Wend rs3.close Call FechaConexao Set rs3 = Nothing Else %> <%End IF End IF%>
 
Categoria: 
<% categoria = request("txtcategoria") IF categoria <> "" Then SQL = "SELECT * FROM produtoscategorias WHERE id="&categoria Call abreconexao Set rs = conexaodb.execute(SQL) codselect = rs("id") ELSE SQL = "SELECT * FROM produtoscategorias ORDER BY nome ASC" Call abreconexao Set rs = conexaodb.execute(SQL) END IF %>  
" hspace="3" vspace="3" border="0"> <%=rs3("nome")%>
<%=left(replace(rs3("descricao"),vbcrlf, "
"),120)%>		 )">  )">
Não contem produtos cadastrado com esta categoria ! ! !

Selecione Outra categoria !!!
 Produtos > Alterar
<% codigodoproduto = request("codigodoproduto") categoria = request("txtcategoria") IF categoria <> "" Then SQL = "SELECT * FROM produtoscategorias WHERE id="&categoria Call abreconexao Set rscod = conexaodb.execute(SQL) codselect = rscod("id") END IF SQL = "SELECT * FROM produtoscategorias ORDER BY nome ASC" Call abreconexao Set rs = conexaodb.execute(SQL) %> " method="post" name="Dados"> "> ">
Imagem: 
 <% IF vimag_peq = "" Then vimag_peq = rsproduto("fotop")'request("imag_peq") vimag_gr = rsproduto("fotog")'request("imag_gr") END IF if trim(vimag_peq)<>"" then vurlFoto="../../images_foto/" & vimag_peq else vurlFoto="../imagens/pix_transp.gif" end if %>
Categoria: 
  
Sub-Categoria: 
 <% codigosubcategoria = rsproduto("subcategoria") 'SQL = "SELECT * FROM produtoscategorias Where id="& codigocategoria 'call abreconexao 'set rssubcategoria = conexaodb.execute(SQL) %>
Nome: 
Descrição: 
Lançamento:
 <%if vlancamento <> "sim" Then%> Sim     Não <%ELSE%> Sim     Não <%END IF%>
              
                         <%'botão%>