پر شدن كامبوباكس از ديتا بيس در asp3

سلام
من به يك كد يا شبه كد نياز دارم كه يك كامبو باكس را با توجه به يك فيلد ديتا بيس اكسس پر كنه!
فقط اين كد بايد به asp3 يعني asp قديمي باشه
و يا فوقش javascript

ممنون ميشم كمك و راهنماييم كنيد

سلام
خیلی وقت از کار کردنم با asp قدیمیمیگذرد ولی سعی میکنم کمکی کنم...

شما باید یک Connection به دیتابیس بسازید و بعد یک Recordset از دستور sql/select خروجی open کنید و در یک حلقه while تا زمانی که که eof مربوط به Recordset مقدارش true نشده کار را تکرار کنید.

کار هر response.write تک تک محتویات داخل تگ های <option> است... یعنی html را خودتان بسازید، طبق روال عادی asp و php و...

یعنی مثلاً چیزی شبیه این (تا جایی که یادم مانده)

کد:

---

<select id="Select1">
 
<%
Dim con
Dim rs
 
Set con = CreateObject("ADODB.Connection")
con.ConnectionString = "...CONNECTIONSTRING..."
con.Open()
 
Set rs = con.Execute("SELECT [fieldname] FROM [tablename];")
 
rs.MoveFirst()
 
While (Not rs.EOF)
    Response.Write("<option>")
    Response.Write(CStr(rs.Fields(0).Value))
    Response.Write("</option>")
 
    rs.MoveNext()
Wend
 
rs.Close()
con.Close()
%>
 
</select>

---