<% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open Application("StringConexaoODBC") %>
  • Home
  • >EMPRESA
  • PRODUTOS
      <% Set lojas = Server.CreateObject("ADODB.Recordset") lojas.Open "SELECT * FROM lojas where lojavirtual = 0 ORDER BY nome_loja", Conexao lojas.MoveFirst While Not lojas.EOF loja = lojas("codigo_loja") v = 0 Set Categorias = Server.CreateObject("ADODB.Recordset") str="SELECT * FROM categorias where codigo_loja = "& lojas("codigo_loja") &" ORDER BY nome_categoria" Categorias.Open str , Conexao While Not Categorias.EOF v = v + 1 Categorias.MoveNext Wend Categorias.Close Set Categorias = Nothing txt_loja = lojas("nome_loja") 'nn = len(txt_loja) - 3 'txt_loja2 = right(txt_loja,nn) v=0 if v = 0 then %>
    • " ><%response.write txt_loja%>
      • <%else%> <%response.write txt_loja%>
      <%end if loja = lojas("codigo_loja") ccate = 0 Set Categorias = Server.CreateObject("ADODB.Recordset") str="SELECT * FROM categorias where codigo_loja = "& lojas("codigo_loja") &" ORDER BY nome_categoria" Categorias.Open str , Conexao While Not Categorias.EOF ccate = ccate + 1 if ccate = 1 then response.write "
        " end if Set tprodutos = Server.CreateObject("ADODB.Recordset") tprodutos.Open "SELECT COUNT(*) As totalRegistros FROM subcategorias where codigo_categoria = "& Categorias("codigo_categoria"), Conexao tprodutos.MoveFirst While Not tprodutos.EOF total = tprodutos("totalRegistros") tprodutos.MoveNext wend tprodutos.Close Set tprodutos = Nothing if total > 0 then%> <%= Categorias("nome_categoria") %>
        <%else%> &codigo_loja=<%= loja %>" class="subcategoria"><%= Categorias("nome_categoria") %> <%end if '---------------------------------------------- csub = 0 catego = Categorias("codigo_categoria") Set sCategorias = Server.CreateObject("ADODB.Recordset") str1 ="SELECT * FROM subcategorias where codigo_categoria="& catego &" ORDER BY nome_subcategoria" sCategorias.Open str1, Conexao While Not sCategorias.EOF csub= csub + 1 if csub=1 then response.write "" end if '---------------------------------------------- Categorias.MoveNext Wend Categorias.Close Set Categorias = Nothing if ccate > 0 then response.write "
      " end if lojas.MoveNext Wend lojas.Close Set lojas = Nothing %>
  • >CATÁLOGO
  • CONTATO
  • Facebook
<%select case request.querystring("menu") CASE "empresa" %> <% Set informativo = Server.CreateObject("ADODB.Recordset") informativo.Open "SELECT * FROM conteudo_site WHERE código = 1", conexao if informativo.Eof then RESPONSE.WRITE "


Aguarde...



" ELSE RESPONSE.WRITE "

"&informativo("titulo")&"

" RESPONSE.WRITE informativo("texto") End if informativo.Close Set informativo = Nothing CASE "x" %>


<% Set informativo = Server.CreateObject("ADODB.Recordset") informativo.Open "SELECT * FROM conteudo_site WHERE código = 2", conexao if informativo.Eof then RESPONSE.WRITE "


Aguarde...



" ELSE 'RESPONSE.WRITE "

"&informativo("titulo")&"

" RESPONSE.WRITE informativo("texto") End if informativo.Close Set informativo = Nothing CASE "catalogo" %>

CATÁLOGO


<% Set informativo = Server.CreateObject("ADODB.Recordset") informativo.Open "SELECT * FROM conteudo_site WHERE tipo = 'noticia' ", conexao if informativo.Eof then RESPONSE.WRITE "


Aguarde...



" end if While Not informativo.EOF %> "> <% informativo.MoveNext Wend informativo.Close Set informativo = Nothing %>


<% Set informativo = Server.CreateObject("ADODB.Recordset") informativo.Open "SELECT * FROM conteudo_site WHERE tipo = 'noticia' ", conexao if informativo.Eof then RESPONSE.WRITE "


Aguarde...



" end if While Not informativo.EOF RESPONSE.WRITE "

"&informativo("titulo")&"

" RESPONSE.WRITE informativo("texto") &"


" informativo.MoveNext Wend informativo.Close Set informativo = Nothing case "contato"%>

Entre em contato



(16) 3019-2664
(16) 3628-1838
+55 16 98165-7172
vendas@farb.ind.br
contato@farb.ind.br


<% end select%>

Televendas

(16) 3019-2664
(16) 3628-1838
+55 16 98165-7172
vendas@farb.ind.br
contato@farb.ind.br

Aonde Estamos

R. Campinas, 1522
Distrito industrial
Ribeirão Preto - São Paulo

© Indústria de Site - Criação de Sites