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>