<% Cat = Cat & " " Cat = Cat & " " Cat = Cat & " [--NOME--]" Cat = Cat & "" Cat = Cat & " " Cat = Cat & "" Cat = Cat & "" Cat2 = "" Set RsCat = DB.Execute ("Select * From Categorias order by nome_categoria") Do while not RsCat.EOF Coption = Coption & "" Cat2 = Cat2 & Cat Cat2 = Replace(Cat2,"[--NOME--]",RsCat("nome_categoria")) Cat2 = Replace(Cat2,"[--COD--]",RsCat("codigo_categoria")) RsCat.Movenext Loop RsCat.close Set RsCat = Nothing %> <% If request("cod_registro") <>"" Then Set rs=DB.execute("SELECT Produtos.*, Categorias.nome_categoria FROM Categorias INNER JOIN Produtos ON Categorias.codigo_categoria=Produtos.codigo_categoria Where codigo_produto="&request("cod_registro")) If rs.EOF=False Then nome_categoria=rs("nome_categoria") nome_produto = rs("nome_produto") codigo_produto = rs("codigo_produto") descricao_produto = rs("descricao_produto") preco_produto = rs("preco_unitario") url_imagem = rs("url_imagem") disponivel = rs("disponivel") vitrini = rs("vitrine") Else response.Redirect("index.asp") End If rs.close Set rs=Nothing End If %> :::: Total Utilidades :::::

 


<%=Cat2%>
 
<% SQL="SELECT TOP 2 Produtos.*, Categorias.nome_categoria FROM Categorias INNER JOIN Produtos ON Categorias.codigo_categoria=Produtos.codigo_categoria where Produtos.vitrine=true and (Categorias.nome_categoria='Computadores' or Categorias.nome_categoria='Computador') and Produtos.disponivel>0 " SQL = SQL & " ORDER BY Produtos.nome_produto" Set Comp = DB.execute(SQL) If Comp.EOF=False Then %> <% Comp.movenext End If %> <%If Comp.Eof=False Then%> <%End If Comp.close Set Comp = Nothing %> <% SQL="SELECT Produtos.*, Categorias.nome_categoria FROM Categorias INNER JOIN Produtos ON Categorias.codigo_categoria=Produtos.codigo_categoria where Produtos.vitrine=true and Produtos.disponivel>0" SQL = SQL & " ORDER BY Produtos.nome_produto asc" Function Dados(Instrucao) Dados = DB.Execute(Instrucao).GetRows() End Function Dim SQL Dim arrDados Dim intI arrDados = Dados(SQL) x = UBound(arrDados,2) For i=0 to 4 Randomize intI=CInt(Rnd()* x) codigo = arrDados(0,intI) categoria = arrDados(1,intI) nome = arrDados(2,intI) descricao = arrDados(3,intI) preco = arrDados(4,intI) imagem = arrDados(5,intI) %> <% next %>
 
 



<%=nome%>

:::: Detalhes ::::
 

 

 
 
 "> Voltar

 

 


<%=nome_produto%>

<%If url_imagem<>"" Then%>
<%End If%>

* Foto do Produto Meramente Ilustrativa
 


ESPECIFICAÇÕES TÉCNICAS DO PRODUTO

Codigo do Produto: <%=(Codigo_produto)%>

Nome Categoria:
<%=nome_categoria%>

Produto:

<%=nome_produto%>

Descrição:
<%=descricao_produto%>

Quantidade em estoque:
<%=disponivel%>

 

© 2008 - Total Utilidades
Todos os direitos Reservados

Desenvolvimento: Criart Digital