Foros del web, para los que viven de bits

Buenas tardes, el problema que tengo es que pretendo listar registro de 2 tablas, una que almacena todos los datos del registro y otra que almacena los anexos que corresponden a dicho registro.

No logro listar cada registro con sus correspondientes anexos, en lugar de eso, se lista todo, ejemplo:

supongamos que tengo la siguiente información almacenda en las bd:
el registro 1, tienes 3 archivos adjuntos
el registro 2, tiene 1 registro adjunto.

pues se lista de la siguiente manera:

registro 1
los tres archivos +
el archivo del registro 2

registro 2
los tres archivos del registro 1
y el archivo del registro 2


Coloco el código, creo que no es muy largo, cualquier ayuda la agradeceré:


<%
dim strSql
dim mAdo
dim mPdf


set mAdo=CreateObject("ADODB.Recordset")
set mPdf=CreateObject("ADODB.Recordset")



strSql="select id, fecha, titulo, descripcion from t_enmemoria"
mAdo.Open strSql, mConnAcc, 1, 2

if not mAdo.EOF then

while not mAdo.EOF
%>
Referencia del documento, Nº:<%=mAdo("Id")%><br />
Fecha:<%=mAdo("fecha")%><br />
</p>
<h3><%=mAdo("titulo")%></h3><br />
<%=replace (mAdo("descripcion"),chr(10),"<br>")%><br />

<%

'Anexos
strSql="select filename, description1, filesize from anexo_memoria"
set mPdf=mConnAcc.Execute(strSql)
if not mPdf.EOF then

while not mpdf.EOF
%>
<a href="../documentos/memoria/<%=mPdf("filename")%>" target="_blank" title="<%=mPdf("description1")%>"><%=mPdf("descrip tion1")%></a>, &nbsp;Tama&ntilde;o del archivo:<%=mPdf("filesize")%>&nbsp;MB<br><br>


<%
mPDF.MoveNext
wend
mpdf.Close
end if
set mpdf=nothing
%>
<%
mAdo.MoveNext
wend
mAdo.Close
end if
set mAdo = nothing

%>

tu sql segunda

Anexostendría que llevar un wheredado que no le indicas cuales anexos mostrar

tienes que tener un campo para hacer la unión de ambas tablas y ese colocar en el where

suerte

Gracias Juan, funcíonó perfectamente, realmente eres un gran colaborador, ya me haz ayudado varias veces. no se como hago para puntuarte en este foro, si me dices cpmp hacerlo te lo agradecería. Un saludo.

pues estamos para ayudar a la gente y me alegra te sirviera

:)

suerte