Listbox popolata

[infoturist]

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>

[Shagrat]

<% 
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><%=categoria%> </option> 
<% do until rs.eof %> 
<option value="<%=rs("categoria")%>"><%=rs("categoria")%> </option> 
<% 
rs.movenext 
loop 
end if 
%> 
</select> 
<% 
rs.close 
set rs = nothing 


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

[infoturist]

... grazie per la correzione in ROSSO, ora è OK !


Martino