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

<% ' Le informacoes dos produtos Set RS_Produto = Server.CreateObject("ADODB.Recordset") comando = "SELECT a.codigo_produto, a.nome_produto, a.entrega,a.url_imagem, a.url_detalhe, "&_ "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 (43,51) AND disponivel = '1' ORDER BY codigo_produto ASC" 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> "><%= RS_Produto("nome_produto") %> <%= RS_Produto("descricao_produto") %> <%= FormatCurrency(RS_Produto("preco_unitario")) %> <%= RS_Produto("entrega") %> ">