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>, Tamaño del archivo:<%=mPdf("filesize")%> MB<br><br>
<%
mPDF.MoveNext
wend
mpdf.Close
end if
set mpdf=nothing
%>
<%
mAdo.MoveNext
wend
mAdo.Close
end if
set mAdo = nothing
%>