<%option explicit DIM fazer,cat_id,sub_id, Subcat, inicial,subCategoria, desProduto, descricaomenu, descricaocat,categoriamenu, teste fazer=request.queryString("fazer") %> ||:::: UPV - COMERCIAL NORTE ::::||

 

 |  Sugestões  |  Politica de Privacidade

 

 

EmpresaProdutosContactos

<% '---------------------------------lista de categorias---------------------------------- dim categoria set categoria = conn.Execute("select * from categorias where label='u' order by nome") while not categoria.EOF %>

 

"><%=UCASE(categoria("nome"))%>

<%'descricaomenu=categoria("nome") categoria.MoveNext Wend %>

 

 

<% if fazer<>"categoria" and fazer<>"subCategoria" then response.write descricaomenu%>

<%else%>

PRODUTO                           <%'------------------------ Procura os produtos com a categoria pretendida ------------ cat_id=request.queryString("cat_id") if fazer="categoria" then set categoriamenu=conn.execute("select * from categorias where id="& cat_id &"") if not categoriamenu.eof then descricaomenu=categoriamenu("nome") response.write descricaomenu end if categoriamenu.close %>

<%'------------------------ Procura os produtos com a categoria pretendida ------------ set inicial=conn.execute("select * from produtos where label='u' and cat_id="& cat_id &"") if inicial.eof then response.write"" response.write "Neste momento não existe nenhum produto com essa categoria" response.write"" else set subCategoria=conn.execute("select * from subCategorias where label='u' and subcategorias.id_Categoria="& cat_id &"") '--------------------------verifica se existe alguma subCategoria------------------------ if not subcategoria.eof then %>

SELECCIONE A MARCA PRETENDIDA  

<% dim cont cont=0 while not subcategoria.EOF%><%if cont=0 then%>

<%' cont=1 'else%>

">

" class="subcategoria"><%=subcategoria("descricao")%><% cont=1 else%>

">

" class="subcategoria"><%=subcategoria("descricao")%>

<%cont=0 end if%> <% subcategoria.MoveNext Wend subcategoria.close %>

<%else ' ----------senaõ mostra os produtos da tabela produtos--------------------- response.write descricaomenu set desProduto=conn.execute("select * from produtos where cat_id="& cat_id &" and label='r' order by nome") while not desproduto.eof %>
 

 PRODUTO: <%=desproduto("nome")%>

 

 

', 150, 200, 1036, 600,68, 0, 0, 0, " target="_self"><%=desproduto("infor")%>

<%=desproduto("descricaog")%>

', 150, 100, 800, 600, 0, 0, 0, 1, 0)" target="_self"><%=desproduto("novoinfor")%>

<% desProduto.movenext wend end if end if end if if fazer ="subCategoria" then sub_id=request.queryString("sub_id") set Subcat=conn.execute("select * from produtos where produtos.sub_id="&sub_id&"") if not Subcat.eof then while not Subcat.eof %>

 

PRODUTO: <%=Subcat("nome")%>

 

 

',150, 200, 1036, 600, 0, 0, 0, 1, 0)" target="_self"><%=Subcat("infor")%>

<%=Subcat("descricaog")%>

', 150, 200, 1036, 600, 0, 0, 0, 1, 0)" target="_self"><%=Subcat("novoinfor")%>

<%Subcat.movenext wend end if end if Set subCat = Nothing %> <%Conn.Close Set Conn = Nothing end if%>

voltar