<% Option Explicit Response.Expires = 0 %> Ferramentas Industrias- Ferramentas de precisão .: Pesquisa de Produtos .:. Antunes Ferramentas :. <% If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then varProduto = Trim(Request.Form("pesquisa")) 'Relação dos produtos Dim Conexao, rsProdutos, sqlProd, varProduto varProduto = Trim(Request.Form("pesquisa")) 'string para exibir os produtos sqlProd = "SELECT * FROM TB_PRODUTO WHERE PRODUTO LIKE '%" & VARpRODUTO & "%' " sqlProd = sqlProd & " ORDER BY PRODUTO" 'Abre Conexão Call Abre_Conexao Set rsProdutos = Conexao.Execute(sqlProd) %>

 

<% If rsProdutos.EOF Then Response.Write "Não existem produtos com este nome, por favor tente outro." Else While not rsProdutos.EOF %> <% rsProdutos.MoveNext Wend End If %>
PRODUTOS
FOTO
DESCRIÇÃO DO PRODUTO
PREÇO UNITÁRIO

>

><%= rsProdutos("Produto")%>

<%= rsProdutos("Descricao")%>
<%= FormatNumber(rsProdutos("VLR_Unitario"),2)%>
<% rsProdutos.Close Call Fecha_Conexao Set rsProdutos = Nothing else %>
" method="post">
Produto:
<%End If%>

Voltar