<% ' **************** ATENÇÃO: NÃO REMOVA OS CRÉDITOS ********************* ' * Este sistema foi desenvolvido por: Francisco Lucivane * ' * Se vc tiver alguma dúvida envie um E-mail para flucivane@gmail.com * ' * Não Remova os Créditos, Desde que não Autorizado por Mim * ' * Celular: (61) 8159-3310 * ' ********************************************************************** 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 %> <% tab_tilulo="" tab_tilulo=tab_tilulo&"" tab_tilulo=tab_tilulo&"" tab_tilulo=tab_tilulo&"" tab_tilulo=tab_tilulo&"" tab_tilulo=tab_tilulo&"" tab_tilulo=tab_tilulo&"" tab_tilulo=tab_tilulo&"" tab_tilulo=tab_tilulo&"" tab_tilulo=tab_tilulo&"
[--TITULO--]
[--CONTEUDO_DA_TABELA--]
" SQL="SELECT Produtos.*, Categorias.nome_categoria FROM Categorias INNER JOIN Produtos ON Categorias.codigo_categoria=Produtos.codigo_categoria " If request("Cod_Categoria")<>"" Then SQL = SQL & " where Produtos.codigo_categoria="&Request("Cod_Categoria") Else response.Redirect("index.asp") End If SQL = SQL & " and Produtos.disponivel>0 ORDER BY Produtos.nome_produto" 'Abrir a Conexão e recordset 'Set Conexao = Server.CreateObject("ADODB.Connection") 'Conexao.Open Application("StringConexaoODBC") '----------------------------------------------------------------- QuantidadeRegistros=10 i=10 PaginaAtual = Request("PaginaAtual") If PaginaAtual = "" Then PaginaAtual = 1 End If '----------------------------------------------------------------- Set rs = Server.CreateObject("ADODB.RecordSet") rs.CursorLocation = 2 rs.cachesize = 2 rs.Open SQL, DB, 1, 3 rs.Pagesize = QuantidadeRegistros TotalPaginas = cint(rs.PageCount) TotalRegistros = cint(rs.PageSize) RegistroAtual = 0 rs.AbsolutePage = PaginaAtual If rs.EOF Then Session("ConsultaErro") = 1 rs.Close Set rs = Nothing Else '[--pagina_detalhes--] '[--codigo_do_registro--] '[--produto--] '[--pagina_acao--] '[--Nome_da_Acao--] registros="" New_tab_imp="" Do while not rs.EOF and RegistroAtual1 then ZeroAEsquerda = " 0" NomeScript = Request.ServerVariables("script_name") PaginaAnterior = "" PaginaPosterior = "" For Contador = 1 to TotalPaginas If Contador >= 10 Then ZeroAEsquerda = " " End If ' Auxiliar = "" & ZeroAEsquerda & Contador & "" ' Response.write " "& Auxiliar & " " If (PaginaAtual - 1) = Contador Then PaginaAnterior = "<<< Página Anterior " antes=PaginaAnterior End If If (PaginaAtual + 1) = Contador Then PaginaPosterior = "Próxima Página >>>" End If Next Session("ConsultaErro") = 0 rs.Close Set rs = Nothing end if 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 ::::
 

 

 
 Página <%=PaginaAtual%> de <%=TotalPaginas%>
<%=imp_reg%>
<%=antes%>
   
<%=PaginaPosterior%>
       

© 2008 - Total Utilidades
Todos os direitos Reservados

Desenvolvimento: Criart Digital