listado de registros repetidos sin tiene más de un anexo

[Cameron_2006]

Buenas tardes, el problema que tengo ahora es que si tengo un registro que contiene más de 1 anexo, este se repite tantas veces la cantidad de anexos que tenga.

Bueno a continuación indico las tablas y el código, gracias de antemano por la paciencia...


Tengo 3 tablas

datos.mdb
(contiene todos los datos personales + categoria (numerico))

categoría.mdb
(contiene todas las ofertas, campos: Id (numerico) y Categoria (texto))

anexo_datos.mdb
(contiene los datos del anexo + id_datos (numerico)

datos.categoria = categoria.id
datos.id = anexo.datos_id


El código que tengo es el siguiente:

<%
dim strSql
dim mAdo
dim mPdf
dim empleo


Set mConnAcc=Server.CreateObject("ADODB.Connection")

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

'------ hago la selección de los registros que quiero mostrar
strSql="select datos.id, datos.nombre, datos.apellidos, datos.ciudad, datos.pais, datos.telefono, datos.movil, datos.mail, datos.honorarios, datos.autonomo, datos.mensaje, datos.fecha, categoria.id, categoria.categoria, anexo_datos.id_datos, anexo_datos.filename, anexo_datos.description1, anexo_datos.filesize from datos, categoria, anexo_datos where datos.categoria=categoria.id and datos.id=anexo_datos.id_datos and datos.id="&empleo


mAdo.Open strSql, mConnAcc, 1, 2
if not mAdo.EOF then

while not mAdo.EOF

%>
Fecha:<%=mAdo("fecha")%><br />
Categoria:<%=mAdo("categoria")%><br /><br />
Nombre:<%=mAdo("nombre")%>&nbsp;<%=mAdo("Apellidos ")%><br />
Pais, Ciudad:<%=mAdo("pais")%>&nbsp;-&nbsp;<%=mAdo("ciudad")%><br />
Telefono:<%=mAdo("telefono")%><br />
M&oacute;vil:<%=mAdo("movil")%><br /><br />
Autonomo:<%=mAdo("autonomo")%><br />
Honorarios:<%=mAdo("honorarios")%><br /><br />
Mensaje:<%=mAdo("mensaje")%><br /><br />



<%

'--------------------------------- Anexos -----------------------------
strSql = "select filename, description1, filesize from anexo_datos where id_datos="&empleo
set mPdf=mConnAcc.Execute(strSql)
if not mPdf.EOF then

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

<br>

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

%>