Verileri combolara doldurma

<%
'-- ' Veri Taban Balantmz yapalm.
Set conn=server.createobject(""adodb.connection"")
path = ""DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; ""
path = path & ""DBQ="" & Server.MapPath(""db/dbornek.mdb"")
conn.Open path
sql = ""Select * FROM tblornek;""
Set rs=conn.execute(sql)
%>
'-- ' Veri tabanmzdaki bilgileri Combobox' dolduralm.
<Select name=""icerik"">

<%Do While Not rs.Eof%>
<Option value=""<%=rs(0)%>""><%=rs(1)%></Option>
<%
rs.movenext
Loop
%>
</Select>
"