Listagem Agrupada

[Ricardo Amancio]

Meus amigos estou tentando agrupar o resultado de uma pesquisa.

Tenho a seguinta tabela "trabalhos"

campos: id, nomecategoria, imgem

onde no campo categoria posso ter dados repetidos.

ex:

Tabela "trabalhos"

id nomecategoria imagem

01 nome1 img1

02 nome1 img2

03 nome1 img3

04 nome2 img4

05 nome2 img5

Resultado em tela de veria ser assim

nome1

img1 img2 img3

nome2

img4 img5

_______________________________________________________________

Estou tentando da seguinte forma (sem conseguir resolver o problema) que me

retorna assim (só mostra a imagem do primeiro nome listado):

nome1

img1 img2 img3

nome2

_________________________________________________________________

MEU CÓDIGO "LISTAGEM.ASP"

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="Connections/conecta.asp" -->

<%

Dim Recordset1

Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_conecta_STRING

Recordset1.Source = "SELECT trabalhos.nomecategoria FROM trabalhos GROUP BY trabalhos.nomecategoria;"

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 1

Recordset1.Open()

Recordset1_numRows = 0

%>

<%

Dim Recordset2

Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")

Recordset2.ActiveConnection = MM_conecta_STRING

Recordset2.Source = "SELECT trabalhos.imagem, trabalhos.nomecategoria FROM trabalhos;"

Recordset2.CursorType = 0

Recordset2.CursorLocation = 2

Recordset2.LockType = 1

Recordset2.Open()

Recordset2_numRows = 0

%>

<%while not Recordset1.EOF

dim var

var=(Recordset1.Fields.Item("nomecategoria").Value)

response.Write(var)%><br><br>

<%while not Recordset2.EOF

If var = (Recordset2.Fields.Item("nomecategoria").Value) then%>

<img src="<%= (Recordset2.Fields.Item("imagem").Value) %>">

<%End If

Recordset2.movenext%>

<%wend%>

<br><br>

<%Recordset1.movenext

wend%>

<%

Recordset1.Close()

Set Recordset1 = Nothing

%>

<%

Recordset2.Close()

Set Recordset2 = Nothing

%>

________________________________________________________________________

POR FAVOR ME AJUDEM

[.Andreia.]

tente usar DISTINCT na sql, exemplo:

select distinct nomecategoria, imagem from trabalhos

[Ricardo Amancio]

Tentei

select distinct nomecategoria, imagem from trabalhos;

Continua retornando o mesmo resultado.

estou a quase 20 dias batendo cabeça nisso.

e agora estou pedindo ajuda.

devo estar errando na lógica deste trecho do cod. mas não sei como resolver:

<%while not Recordset1.EOF

dim var

var=(Recordset1.Fields.Item("nomecategoria").Value)

response.Write(var)%><br><br>

<%while not Recordset2.EOF

If var = (Recordset2.Fields.Item("nomecategoria").Value) then%>

<img src="<%= (Recordset2.Fields.Item("imagem").Value) %>">

<%End If

Recordset2.movenext%>

<%wend%>

<br><br>

<%Recordset1.movenext

wend%>

[Ricardo Amancio]

RESOLVIDO.

USEI O COD QUE "BARETA" MOSTROU EM OUTRO POST

FICOU ASSIM (PARA QUEM QUISER SEGUIR A LINHA)

'conecta2.asp - concta ao banco

<%

Dim MM_conecta_STRING

MM_conecta_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("bd/banco.mdb")

%>

'listagem.asp - lista conteúdo agrupando por parâmetro

<!--#include file="Connections/conecta2.asp" -->

<%

sql="select trabalhos.nomecategoria from trabalhos GROUP BY trabalhos.nomecategoria"

set rs=conexao.execute(sql)

if not rs.eof then

while not rs.eof

response.write rs("nomecategoria")%><br><%

sql="select * from trabalhos where nomecategoria='"&rs("nomecategoria")&"'"

set rs1=conexao.execute(sql)

if not rs1.eof then

while not rs1.eof%>

<img src="<%= (rs1.Fields.Item("imagem").Value) %>"><%

rs1.movenext

wend

end if

rs1.close

set rs1=nothing %><br><br><br><%

rs.movenext

wend

end if

rs.close

set rs=nothing

%>

PODEM FECHAR POR FAVOR