<% 'Abre todos os dados que sero utilizados tx_letra=trim(request("lt")) tx_busca=trim(request("tx_busca")) id_classe=request("id_classe") id_tipo=request("id_tipo") AbreRS "tipos","SELECT * FROM tbl_produtos_tipos ORDER BY tx_tipo ASC" AbreRS "classes","SELECT * FROM tbl_produtos_classes ORDER BY tx_classe ASC" if tx_letra<>"" then if tx_letra="A" then tx_letra="A,,," if tx_letra="E" then tx_letra="E," if tx_letra="I" then tx_letra="I," if tx_letra="O" then tx_letra="O," if tx_letra="U" then tx_letra="U," sql="SELECT * FROM tbl_produtos WHERE bl_ativo=1 AND (" if len(tx_letra)>1 then tx_letra=split(tx_letra,",") for each letrinha in tx_letra sql=sql&"tx_insumo like '"&letrinha&"%%' OR " next sql=left(sql,len(sql)-3) sql=sql&") " else sql="SELECT * FROM tbl_produtos WHERE bl_ativo=1 AND tx_insumo like '"&tx_letra&"%'" end if sql=sql&" ORDER BY tx_insumo ASC" AbreRS "results",SQL else if tx_busca<>"" or id_classe<>"" or id_tipo<>"" then sql="SELECT * FROM tbl_produtos WHERE bl_ativo=1" if tx_busca<>"" then sql=sql&" AND tx_insumo like '%"&tx_busca&"%'" if id_classe<>"" then sql=sql&" AND id_classe="&id_classe if id_tipo<>"" then sql=sql&" AND id_tipo="&id_tipo sql=sql&" ORDER BY tx_insumo ASC" AbreRS "results",SQL end if end if %> Purifarma
 
<%if trim(session("id_cliente"))="" then%>
 
Restrito para clientes
   
Login
Senha
  Cadastre-se!
<%else%>
 
Conectado como:
<%AbreRS "clicli","SELECT tx_nome FROM tbl_clientes WHERE id_cliente="&session("id_cliente") response.write clicli("tx_nome") %>
 
Meus dados
Efetuar Logout
<%end if%>
 
Newsletter
Informe seu e-mail no campo abaixo para receber novidades e informações da Purifarma:
Busca de Produtos

Utilize os campos abaixo para realizar sua busca:
Busca por Nome do produto: " size="20" maxlength="40" /> (digite o nome completo ou parte do nome)
Tipo de Produto
Classe do Produto
 

Encontre produtos pela primeira letra:
<% for i = 65 to 90 response.write ""&chr(i)&" " next %>

<% if request.form<>"" or request.QueryString<>"" then if trim(request("tx_busca"))="" AND trim(request("id_tipo"))="" AND trim(request("id_classe"))="" AND trim(request("lt"))="" then response.write "Por favor utilize pelo menos um parâmetro de busca" end if %> <%if trim(request("tx_busca"))<>"" or trim(request("id_tipo"))<>"" or trim(request("id_classe"))<>"" or trim(request("lt"))<>"" then%> <% cor="#CCCCCC" while not results.eof if cor="#CCCCCC" then cor="#FFFFFF" else 'cor="#CCCCCC" cor="#FFFFFF" end if AbreRS "qualclasse","SELECT tx_classe FROM tbl_produtos_classes WHERE id_classe="&results("id_classe") if not qualclasse.eof then minha_classe=qualclasse("tx_classe") qualclasse.close end if AbreRS "qualtipo","SELECT tx_tipo FROM tbl_produtos_tipos WHERE id_tipo="&results("id_tipo") if not qualtipo.eof then meu_tipo=qualtipo("tx_tipo") qualtipo.close end if %> <% results.movenext wend %>
Sua busca retornou <%=results.recordcount%> resultado(s)
Insumo: <%=results("tx_insumo")%>
Tipo: <%=meu_tipo%>
Classe: <%=minha_classe%>
FISPQ: <%if results("tx_fispq")<>"" then%> <%if trim(session("id_cliente"))<>"" then%> " target="_blank"> <%else%> <%end if%> Download
<%else%> Não disponível
<%end if%> Literatura: <%if results("tx_literatura")<>"" then%> <%if trim(session("id_cliente"))<>"" then%> " target="_blank"> <%else%> <%end if%> Download <%else%> Não disponível
<%end if%>
"> ">Adicionar Insumo ao Carrinho de Cotações
"> ">Solicitar suporte técnico sobre o produto

<%end if%>
   
 
<% 'Abre todos os dados que sero utilizados sql="SELECT * FROM tbl_floaters WHERE bl_ativo=1 AND bl_mostrar=1" AbreRS "conteudo",sql if not conteudo.eof then %> <%end if%>