%
' Abre conexao com banco de dados
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open Application("StringConexaoODBC")
%>
TELEFONES IP D-Link
Produto
Descrição
Preço
Entrega
Comprar
<%
' Le informacoes dos produtos
Set RS_Produto = Server.CreateObject("ADODB.Recordset")
comando = "SELECT a.codigo_produto, a.nome_produto, a.entrega,"&_
"a.descricao_produto, a.preco_unitario*b.cotacao as preco_unitario "&_
"FROM Produtos a, moedas b "&_
"WHERE a.idmoeda=b.idmoeda and "&_
"codigo_categoria = 22 AND disponivel = '1'"
RS_Produto.Open comando , Conexao
' Checa se existem produtos no banco de dados
if RS_Produto.Eof then
%>
Não
há produtos no seu seu banco de dados.
<%
end if
' Mostra tabela de produtos
While Not RS_Produto.EOF
%>