Ho 2 tabelle: ArticoliOrdinati e CaricoArticoli

La tabella ArticoliOrdinati è popolata dai seguenti valori:

orderID - productID - qtaordinata
-- 81 -------- 101 ---------- 1
-- 82 -------- 105 ---------- 1
-- 82 -------- 125 ---------- 1

mentre la tabella CaricoArt è popolata dai seguenti valori:

productID - Descr1
-- 101 ------- pere
-- 105 ------- mele
-- 125 ------- banane

Il problema è che vorrei visualizzare l'ordine 82 con l'elenco dei productID con relativa descrizione (Descr1)

Con il codice postato sotto riesco a visualizzare solo l'ultimo record della tabella caricoart inerente all'orderID

in pratica se cerco di visualizzare tutti i prodotti dell'ordine 82 mi comare solo il prodotto 125

So perchè mi compare solo l'ultimo record ma non so come risolvere....

codice:
'Scrivo la mia query sql n.1
sql = "SELECT * FROM ArticoliOrdinati WHERE orderID = " &cod


'E creo il recordset
Set RecArtOrd = Server.CreateObject ("ADODB.Recordset")
RecArtOrd.Open sql, Conn, 3, 3
do while not RecArtOrd.eof 


productID=RecArtOrd("productID")
qtaordinata=RecArtOrd("qtaordinata")

%>
<input name="cod1" type="text" id="cod1" value="<%=productID%>" size="10" />
<input name="cod1" type="text" id="cod1" value="<%=qtaordinata%>" size="10" />



</p>

<%
RecArtOrd.movenext 
loop


'Scrivo la mia query sql n.2
sqlProdotti = "SELECT * FROM caricoart WHERE productID = " &productID


'E creo il recordset
Set RecProdotti = Server.CreateObject ("ADODB.Recordset")
RecProdotti.Open sqlProdotti, Conn, 3, 3
do while not RecProdotti.eof 

Descr1=RecProdotti("Descr1")

%>
<input name="productID" type="text" id="productID" value="<%=productID%>" size="10" />
<input name="cod1" type="text" id="cod1" value="<%=Descr1%>" size="10" />
<%
RecProdotti.movenext 
loop
%>