Eu tenho um banco de dados com 2 tabelas,
um chamado categorias com dois campos(CodCategoria, Categoria)numero e texto.
a outra chamando de Produtos (codprodutos, codcategoria, Produtos, descricao, valor) texto,numero, texto, texto, moeda
e quero que aparença a categoria em baixo o produtos que pretence a categoria assim para toda as categoria fazendo um tabela estou tentando faz com esse codigo abaixo:
dim rsproduto
dim conexaodb
dim strSQL
set conexaodb=Server.CreateObject("ADODB.Connection")
set rsproduto=Server.createObject("ADODB.Recordset")
conexaodb.open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("banco.MDB")
strSQL ="Select * FROM produtos "
strCat ="Select * FROM Categorias "
set rscat = conexaodb.Execute(strcat)
set rsproduto = conexaodb.Execute(strSQL)
%>
<% do while not rscat.eof%>
<table width="600" border="0" cellspacing="0" cellpadding="3">
<tr>
<td colspan="3"><div align="center">
<% =rscategoria.fields(Categoria)%>
</div></td>
</tr>
<tr>
<td colspan="3"><div align="center"></div></td>
</tr>
<tr>
<td width="119"><div align="center">Cód. do Produto</div></td>
<td width="339"><div align="center">Produto</div></td>
<td width="123"><div align="center">Preço R$ </div></td>
</tr>
<% do while not rsproduto.eof %>
<tr>
<td>
<div align="left"><span class="style5">
<% = rsproduto.fields ("CodProduto")%>
</span></div></td><td>
<div align="left">
<span class="style5">
<a href="detalhes2.asp?detalhe1=<% =rsproduto.fields("CodProduto")%>"/><% = rsproduto.fields ("Produto") %></span></div></td>
<td><div align="right"><span class="style5">
<% = rsproduto.fields ("Preco") %>
</span></div></td>
</tr>
<%
rsproduto.movenext
loop
rsproduto.close
conexaodb.close
set conexaodb = nothing
set rsproduto = nothing
%>
</table>
Alguem pode mim da um Luz ver onde tem o erro,
estou mais de 2 semana quero acaba com isso obrigado
as todos que le e pode mim ajuda o meu e-mail : lr2623(at)hotmail(dot)com
:!: :-o fiquem com deus !!
