<% ' Abre conexao com banco de dados Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open Application("StringConexaoODBC") %>
ADAPTADORES

<% ' Le informacoes dos produtos Set RS_Produto = Server.CreateObject("ADODB.Recordset") comando = "SELECT a.codigo_produto, a.nome_produto, "&_ "entrega, a.url_imagem, "&_ "a.url_detalhe, a.disponivel, "&_ "a.descricao_produto, a.preco_unitario*b.cotacao as preco_unitario "&_ "FROM Produtos a, moedas b "&_ "WHERE a.idmoeda=b.idmoeda and "&_ "codigo_categoria IN (12,15,36,40,49,50,54) and discontinuado = 'N' "&_ "ORDER BY codigo_produto" RS_Produto.Open comando , Conexao ' Checa se existem produtos no banco de dados if RS_Produto.Eof then %>

Produto não disponível, aguarde reposição ou consulte a IPFONE.
<% end if ' Mostra tabela de produtos While Not RS_Produto.EOF %> <% RS_Produto.MoveNext Wend RS_Produto.Close Conexao.Close Set RS_Produto = Nothing Set Conexao = Nothing %>
Produto
 Descrição Preço Entrega Comprar
" border=0> <% if RS_Produto("url_detalhe") <> "" then %> "> <%= RS_Produto("nome_produto") %> <% else %> <%= RS_Produto("nome_produto") %> <% end if %> <%= RS_Produto("descricao_produto") %> <%= FormatCurrency(RS_Produto("preco_unitario")) %> <%= RS_Produto("entrega") %> <% if RS_Produto("disponivel") = "1" then %> "> <% else %>Consulte <% end if %>