Ho scritto questo codice ma nella listbox i valori recuperati non vengono visualizzati (specifico non si vedono).
La listbox si allunga come se contenesse i valori ma non si vedono.

Mi sa aiutare qualcuno ?

GRAZIE
-------------------

<%
Dim Database

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("barbie.mdb")

set rs=server.CreateObject("ADODB.RecordSet")

sql = "select distinct categoria from BarbieCollection"

set rs = conn.execute(sql)

if not rs.eof then

%>
<select name="tabella1">
' <option value="<%=categoria%>"selected></option>
<% do until rs.eof %>
<option value="<%=rs("categoria")%>" selected></option>
<%
rs.movenext
loop
end if
%>
</select>
<%
rs.close
set rs = nothing


conn.close
set conn = nothing
%>
</form>
</body>
</html>