|
|
<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open Application("ConexaoClassificados")
set rs_departamentos = Server.CreateObject("adodb.recordset")
set rs_categorias = Server.CreateObject("ADODB.Recordset")
set rs_anuncios = Server.CreateObject("ADODB.Recordset")
RS_anuncios.CursorLocation = 3
RS_anuncios.CacheSize = Application("Paginacao")
%>
Histórico dos Equipamentos Gráficos Usados Vendidos
|
|
|
|
|
<%if request("codigo_categoria") = "" then%>
 |
<%
rs_departamentos.open "select * from departamentos order by ordem, nome_departamento",conexao,3,3
if not rs_departamentos.EOF then
%>
<%cont_td = 1
while not rs_departamentos.eof%>
" align="center"><%=rs_departamentos("nome_departamento")%> |
<%rs_categorias.Open "select * from categorias where codigo_departamento = "&rs_departamentos("codigo_departamento")&" order by ordem, nome_categoria",conexao
if not rs_categorias.EOF then
while not rs_categorias.eof
rs_anuncios.open "select count(codigo_anuncio) as tot_anuncios from anuncios where codigo_categoria = "&rs_categorias("codigo_categoria")&" and aprovado = '1' and vendido = '1'",conexao
if not rs_anuncios.EOF then%>
"><%=rs_categorias("nome_categoria")%> (<%=rs_anuncios("tot_anuncios")%>)
<%end if
rs_anuncios.close
rs_categorias.MoveNext
wend
end if
rs_categorias.close
%>
|
|
|
<%if cont_td = 2 then%>
<%cont_td = 0
end if
cont_td = cont_td + 1
rs_departamentos.movenext
wend
end if
rs_departamentos.close%>
|
|
<%else
codigo_categoria = request("codigo_categoria")
rs_anuncios.open "select anuncios.*, categorias.codigo_categoria,categorias.nome_categoria,departamentos.nome_departamento,departamentos.cor_celula from anuncios,categorias,departamentos where anuncios.codigo_categoria = "&codigo_categoria&" and categorias.codigo_categoria = "&codigo_categoria&" and departamentos.codigo_departamento = categorias.codigo_departamento and anuncios.aprovado = '1' and anuncios.vendido = '1' order by anuncios.data_inclusao desc, anuncios.codigo_anuncio desc",conexao
if not rs_anuncios.EOF then
rs_anuncios.MoveFirst
rs_anuncios.PageSize = Application("Paginacao")
TotalPaginas = rs_anuncios.PageCount
rs_anuncios.AbsolutePage = PaginaAtual
contador = 0
set rs_cont = Server.createobject("adodb.recordset")
rs_cont.open "select count(codigo_anuncio) as total from anuncios where codigo_categoria = "&codigo_categoria&" and vendido = '1' and aprovado = '1'",conexao%>
">
<%=rs_anuncios("nome_departamento")%> :: <%=rs_anuncios("nome_categoria")%> ::
|
<%set depmenu = server.createobject("adodb.recordset")
depmenu.open "select * from categorias where codigo_departamento = "&rs_anuncios("codigo_departamento")&" and codigo_categoria <> "&codigo_categoria&" order by ordem",conexao
if not depmenu.eof then
while not depmenu.eof%>
"><%=depmenu("nome_categoria")%> |
<%depmenu.movenext
wend
end if
depmenu.close
set depmenu = nothing
%>
<%if not rs_cont.eof then%>
Total de equipamentos vendidos em <%=rs_anuncios("nome_departamento")%> - <%=rs_anuncios("nome_categoria")%>: <%=rs_cont("total")%>
<%end if
rs_cont.close
set rs_cont = nothing%>
Voltar para o Classificado de Equipamentos Usados à venda!
Voltar para o menu de equipamentos
vendidos!
|
<%
while not rs_anuncios.EOF and contador < rs_anuncios.PageSize%>
<%if rs_anuncios("url_imagem1") <> "" or rs_anuncios("url_imagem2") <> "" or rs_anuncios("url_imagem3") <> "" or rs_anuncios("url_imagem4") <> "" or rs_anuncios("url_imagem5") <> "" then%>
<%cont_foto = 0%>
<%if rs_anuncios("url_imagem1") <> "" then%><%cont_foto = cont_foto + 1%>','foto','height=500,width=500,status=yes,menubar=no,toolbar=no,resizable=yes,scrollbars=yes,screenX=0,screenY=0');"> " hspace="2" alt="foto" border="0" style="border: 1px solid #000000"><%end if%>
<%if rs_anuncios("url_imagem2") <> "" then%><%cont_foto = cont_foto + 1%>','foto','height=500,width=500,status=yes,menubar=no,toolbar=no,resizable=yes,scrollbars=yes,screenX=0,screenY=0');"> " hspace="2" alt="foto" border="0" style="border: 1px solid #000000"><%end if%>
<%if rs_anuncios("url_imagem3") <> "" then%><%cont_foto = cont_foto + 1%>','foto','height=500,width=500,status=yes,menubar=no,toolbar=no,resizable=yes,scrollbars=yes,screenX=0,screenY=0');"> " hspace="2" alt="foto" border="0" style="border: 1px solid #000000"><%end if%>
<%if rs_anuncios("url_imagem4") <> "" then%><%cont_foto = cont_foto + 1%>','foto','height=500,width=500,status=yes,menubar=no,toolbar=no,resizable=yes,scrollbars=yes,screenX=0,screenY=0');"> " hspace="2" alt="foto" border="0" style="border: 1px solid #000000"><%end if%>
<%if rs_anuncios("url_imagem5") <> "" then%><%cont_foto = cont_foto + 1%>','foto','height=500,width=500,status=yes,menubar=no,toolbar=no,resizable=yes,scrollbars=yes,screenX=0,screenY=0');"> " hspace="2" alt="foto" border="0" style="border: 1px solid #000000"><%end if%>
|
<%end if%>
EQUIPAMENTO VENDIDO!!!
<%=rs_anuncios("titulo_anuncio")%>
-
<%=rs_anuncios("descricao_anuncio")%>
Valor:
<%if rs_anuncios("valor") > 0 then%>
R$ <%=formatnumber(rs_anuncios("valor"),0)%>
<%else%>
a combinar
<%end if%> |
Disponível: <%=rs_anuncios("cidade_anuncio")%>, <%=rs_anuncios("estado_anuncio")%>
|
|
<%contador = contador + 1
rs_anuncios.MoveNext
wend%>
<%else
set cat = server.createobject("adodb.recordset")
cat.open "select categorias.nome_categoria,departamentos.codigo_departamento,departamentos.nome_departamento,departamentos.cor_celula from categorias,departamentos where categorias.codigo_categoria = "&request("codigo_categoria")&" and departamentos.codigo_departamento = categorias.codigo_departamento",conexao%>
|
Não foram encontrados anúncios para a categoria solicitada.
|
<%end if
rs_anuncios.Close
set rs_anuncios = nothing
conexao.Close
set conexao = nothing
%>
<%end if%>
|
|
|
|
Acabamento Gráfico, Afiadora de Facas, Alceadeira, Alceadeiras, Alceamento, Alimentadora de Papel, Arquivos de Chapas, Blanquetas, Brocas para furar Papel, Chapas Gráficas, Cilindros Gráficos, Classificados de Acessórios para Máquinas Gráficas , Classificados de Equipamentos Gráficos, Classificados de Máquinas Gráficas, Classificados de Peças Gráficas, Colas Gráficas, Compro Guilhotina, Compro Hamada, Compro Imagesetter, Compro Máquinas Gráficas, Compro Plotter, Compro Roland, Contadora de Papéis, Controladores Ramo Gráfico, Correias Gráficas, Cortadeiras Gráficas, Corte Vinco, Corte Tri Lateral, Cromagem Gráfica, Cubetas Gráfica, Dobradeiras, Dobradeiras de Chapas, Duplicadores Digitais, Duplo Oficio, Eletricistas Máquinas Gráficas, Encardenadoras, Envaretadeira, Envelopadoras, Facas Gráficas, Facas para Flexografia, Facas para Guilhotinas, Filmes Gráficas, Fornecedores para Gráficas, Fornos Gráficos, Frisas Gráfica, Furadeiras Gráficas, Gráfica Pequena, Grampeadores Gráficos, Gravadora de Chapa, Gravadoras Gráficas, Guilhotinas Gráficas, Hot Melt, Imagesetter, Insumos Gráficos, Insumos para Máquinas Gráficas, Intercaladoras, Intermediação de Máquina Usadas, Laminadoras Gráfica, Limpadores de Blanquetas, Lubrificantes Gráficas, Manutenção Máquinas Gráficas, Máquina AB Dick, Máquina Adast, Máquina Aurélia, Máquina Catu, Máquina Hamada, Máquina Heidelberg, Máquina KBA, Máquina Multilith, Máquina Rotaprint, Máquina Ryobi, Máquina Solna, Máquina para Etiquetas, Máquina Tipográfica, Máquinas Catu, Máquinas Gráficas, Máquinas Gráficas Novas, Máquinas Gráficas Usadas, Máquinas Offset, Máquinas para Acabamento, Materiais Gráficos, Mecânica Máquinas Gráficas, Meio Corte e Vinco, Mesa Vibradora, Metalização de Cilindros, Microserrilhados , Microserrilhas , Moletons Gráfica, Montadoras de Clichês, Numeradoras, Peças para Máquinas Gráficas, Peças para Máquinas Gráficas, Peças para Máquinas Off-Set, Perfuradeiras, Picotadeira, Placas Flexográficas , Pó de Relevo, Porta Clichê, Prensas de Chapas, Procuro Impressor, Produtos Químicos Gráficas, Queimador de Chapas, Rebobinadeiras, Reforma de Máquinas Gráficas, Relevo Americano, Reveladoras Gráficas, Revestimentos de Cilindros, Rolos de Borracha, Rolos de Ebonite, Rolos Gráficos, Secadoras Gráficas, Serrilhadeiras, Serviços de Acabamentos para Gráficas, Sistema de Acabamento, Sistema de Dobra, Sistema de Grampo, Sistema de Molha a Álcool, Sistema de Numeração Máquinas Gráficas, Sistema de Refile, Sucção Gráficas, Suporte Técnico Máquinas Gráficas, Suprimentos Gráficas , Tintas Offset, Ultravioleta Gráficas, Vazador Gráfica, Vendo AB Dick, Vendo Guilhotina, Vendo Hamada, Vendo Imagesetter, Vendo Máquinas Gráficas, Vendo Plotter, Vernizes Gráficas |