Asp de data çok datayı ListBox a gösterme

Arkadaşlar iyi akşamlar şimdiden yardımlarınız için teşekkür ederim

elimde 3000 küsur kayıtı olan bir data var ve bu datanın içinde 8 tane tablo var. Yapmak istediğim bir kayıt ekleme sayfasında genel tablosundan kayıt alarak belirli bir sütundaki 1 den fazla datayı dropdown box da gösterip seçmek.

"<select name="ProductName" id="ProductName"><option value="">Product...</option>
<option value="<%=rs1("ProductName")%>"><%=rs1("ProductName")%></option></select> "

bu kodu yazdığımda sadece bir tane gösteriyor ama ben ProductName sütunundaki bütün dataları görmek istiyorum ve sonra da birini seçicem. ProductName gibi 7 tane daha farklı başlık var onlardan da seçim yapıp yeni kayıt yaratıcam. Yardımlarıza şimdiden teşekkürler

Döngü içine sokman lazım yani ;

<%
Set rs1 = Conn.Execute("Select * from Tablo_Adi order by id desc;")
%>
<select name="ProductName" id="ProductName"><option value="">Product...</option>
<%
do until rs1.eof
%>
<option value="<%=rs1("ProductName")%>"><%=rs1("ProductName")%></option>
<%
rs1.movenext
loop
rs1.close
set rs1=Nothing
%>

</select>

Arkadaşım ilgine çok teşekkürler fakat öyle girince şöyle bir hata daha verdi

Microsoft VBScript çal#253;#254;ma hatas#253; hata '800a01a8'

Nesne gerekli: ''

/celtisadmin/keana.asp, satır 50

Satır 50 = Set rs1 = Conn.Execute("Select * from Genel order by id desc;")

Set rs1 = Conn.Execute("Select * from Genel order by id desc;")

burda yazmış olduğum Conn veritabanı bağlantı değişkeni. onu kontrol et. Veritabanına bağlanırken hangi değişkeni atamışsan o değişkeni Conn yerine yaz çalışacaktır.