<%
rs.open "Select * from tablo1"
do While Not rs.Eof
%>
firma adi: <%=rs("firma_adi")%>
<%
yerli.MoveNext
Loop
%>
_____________________________
listmenü derken dropdown kastediyosan yine aynı mantık. option ları döngüye sokacan. misal:

<select name="firmalar">
<%
rs.open "select * from tablo1"
Do While Not rs.eof
%>
<option value="<%=rs("firma_adi")%>"></option>
<%
rs.MoveNext
Loop
%>
</select>
_______________
gibi. (veritabanını bağladığını ve kayıtsetini rs olarak set ettiğini düşünerek örnek verdim, kendi bağlantılarına uydur onları.)