.: RV Equipamentos :.

<% conexaodb(true) set rs = conexao.execute("SELECT * FROM config") if rs.eof then texto_empresa = "" keywords = "" else texto_empresa = rs("texto_empresa") keywords = rs("keywords") end if %> <% rs.close set rs = Nothing conexaodb(false) %> .: RV Equipamentos :.

serviços

clientes

contato

<% conexaodb(true) if (Request.QueryString("pagina") = "") then %>

<% set rs_banner = Conexao.Execute("SELECT * FROM qtdslide WHERE id = 1") if rs_banner.EOF then Response.Write("Não Existe banners cadastrados atualmente") else qtd = rs_banner("qtd") end if rs_banner.close set rs_banner = nothing set rs_banner = conexao.execute("SELECT * FROM slideshow ORDER BY id ASC LIMIT "& qtd) while not rs_banner.eof liinkgo = rs_banner("link") if liinkgo <> "" and liinkgo <> " " Then%> ">

" width="977" height="348" border="0" /> <% else %>

" width="977" height="348" border="0" /> <% end if rs_banner.movenext wend rs_banner.close set rs_banner = nothing %>

<% end if conexaodb(false) %>

<% Select Case LCase(Request.QueryString("pagina")) Case "inicial" : Server.Execute("inicial.asp") Case "empresa" : Server.Execute("empresa.asp") Case "busca" : Server.Execute("busca.asp") Case "duvidas" : Server.Execute("duvidas.asp") Case "assistencia" : Server.Execute("assistencia.asp") Case "trabalhe" : Server.Execute("trabalhe.asp") Case "politica" : Server.Execute("politica.asp") Case "contato" : Server.Execute("contato.asp") Case "enviar" : Server.Execute("enviar.asp") Case "orcamento" : Server.Execute("orcamento.asp") Case "enviarorcamento" : Server.Execute("enviarorcamento.asp") Case "obrigado" : Server.Execute("obrigado.asp") Case "produtos" : Server.Execute("produtos.asp") Case "produtos_detalhes" : Server.Execute("produtos_ver.asp") Case "produtos_categorias" : Server.Execute("produtos_categorias.asp") Case "servicos" : Server.Execute("servicos.asp") Case "servicos_ver" : Server.Execute("servicos_ver.asp") Case "clientes" : Server.Execute("clientes.asp") Case Else : Server.Execute("inicial.asp") End Select %>

<% conexaodb(true) set rs_config= conexao.execute("SELECT * FROM config") email = rs_config("email") facebook = rs_config("facebook") linkedin = rs_config("linkedin") twitter = rs_config("twitter") telefone = rs_config("telefone") %>

Atendimento: <%=telefone%>

Dúvidas | Política de Privacidade | Trabalhe Conosco | Contato

Acesse:

<% rs_config.close set rs_config = nothing conexaodb(false) %>