<% 'SELECIONO AS TABELAS DE CIDADES E BAIRROS SelCidades = "SELECT id_cidade, nome_cidade FROM tbl_Cidades" Call RodarQuery(0, SelCidades, SC) Categ = SC.getRows() Call DestroiRS(0, SC) 'SelBairros = "SELECT id_cidade, id_bairro, nome_bairro FROM tbl_Bairros" 'Call RodarQuery(0, SelBairros, SB) 'SubCateg = SB.getRows() 'Call DestroiRS(0, SB) '***FIM 'SELECIONO AS TABELAS DE MARCAS E MODELOS SelMarcas = "SELECT id_marca, nome_marca FROM tbl_Marcas" Call RodarQuery(0, SelMarcas, SMa) aryCateg = SMa.getRows() Call DestroiRS(0, SMa) SelModelos = "SELECT id_marca, id_modelo, nome_modelo FROM tbl_Modelos" Call RodarQuery(0, SelModelos, SMo) arySub = SMo.getRows() Call DestroiRS(0, SMo) '***FIM %> Vendas em Video | autos | carros | automóveis | semi novos
Busque seu Carro
Revenda Particular
Blindado: Sim Não
Busque seu Serviço

Faça uma Avaliação de seu Auto

<% SelServ = "SELECT tbl_Anunciantes.id_anunciante, tbl_Anunciantes.razao_social, tbl_Anunciantes.bairro, tbl_Anunciantes.ddd_fone, tbl_Anunciantes.fone, tbl_Anunciantes.website FROM tbl_Anunciantes INNER JOIN tbl_Index ON tbl_Anunciantes.id_anunciante = tbl_Index.id_anunciante WHERE (((tbl_Anunciantes.tipo)='R') AND ((tbl_Index.id_tipoAnuncio)=4) AND ((tbl_Index.aprovado)=True) AND ((tbl_Index.bloqueado)=False))" Call RodarQuery(0, SelServ, SS) IF ExisteRegistros(SS) THEN %>
<% cont = 0 WHILE NOT SS.EOF cont = cont + 1 if (cont mod 2) = 0 then fundo="#DEDDCF" else fundo="#FFFFFF" end if %> <% SS.MOVENEXT WEND %>
<%=SS("razao_social")%>
&pagprincipal=s"> <%=SS("bairro")%>
Fone: (<%=SS("ddd_fone")%>) <%=SS("fone")%>
<% if SS("website") <> "" then Response.Write SS("website") else Response.Write "
" end if %>
<% END IF Call DestroiRS(0, SS) %>
Últimos carros adicionado em nosso estoque !!
<% SelDestaques = "SELECT TOP 14 tbl_AnunciosAutos.id_auto, tbl_AnunciosAutos.id_modelo, tbl_AnunciosAutos.id_marca, tbl_AnunciosAutos.versao, tbl_AnunciosAutos.ano_fabricacao, tbl_AnunciosAutos.ano_modelo, tbl_AnunciosAutos.valor, tbl_AnunciosAutos.foto1 FROM tbl_AnunciosAutos INNER JOIN tbl_Index ON tbl_AnunciosAutos.id_index = tbl_Index.id_index WHERE (((tbl_Index.aprovado)=True) AND ((tbl_Index.bloqueado)=False) AND ((tbl_Index.data_expiracao) >= "&Date()&")) ORDER BY tbl_AnunciosAutos.data_cadastro DESC" Call RodarQuery(0, SelDestaques, rs) IF ExisteRegistros(rs) THEN rs.pagesize = 14 rs.cachesize = 14 edison = 0 %> <% Response.Write "" do while not rs.eof and edison < rs.pagesize '*** Excluo a imagem do diretório Caminho = "e:\home\vendasemvideo\web\ADM\Autos\Imagens\"&rs("foto1") Set fso = CreateObject("Scripting.FileSystemObject") if fso.FileExists(Caminho) Then foto = rs("foto1") else foto = "NDisponivel.jpg" end if Set fso = Nothing '*** Fim SelMarca = "SELECT nome_marca FROM tbl_Marcas WHERE id_marca = "&rs("id_marca")&" " Call RodarQuery(0, SelMarca, SM) marca = Lcase(SM("nome_marca")) Call DestroiRS(0, SM) SelModelo = "SELECT nome_modelo FROM tbl_Modelos WHERE id_modelo = "&rs("id_modelo")&" " Call RodarQuery(0, SelModelo, SM) modelo = Lcase(SM("nome_modelo")) Call DestroiRS(0, SM) versao = rs("versao") anof = rs("ano_fabricacao") anom = rs("ano_modelo") valor = FormatNumber(rs("valor"), 2) numerocol = 7 contador = contador + 1 response.write "" if contador = numerocol then Response.Write "" contador = 0 end if edison = edison + 1 rs.movenext loop %>
" response.write "

"&marca&"
"&modelo&"
"&anof&" - "&anom&"
R$ "&valor&"
" response.write "
<% END IF Call DestroiRS(0, rs) %>
<% conexao strConexao, 1 %>