<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% sqlItemIDs = "select distinct a.itemcatalogid itemID,ItemLeader2Data from itemleader2 a, itemdata b where a.itemcatalogid = b.itemcatalogid and a.itemcatalogid = 256 order by a.itemcatalogid" Set RSItemIDs = Server.CreateObject("ADODB.Recordset") RSItemIDs.open sqlItemIDs,conn,3,1 while not RSItemIDs.EOF text = text & "" text = text & "" & RSItemIDs("ItemLeader2Data") & "" text = text & "" RSItemIDs.movenext wend response.Write(text) %>