mi aspetterei che venisse popolata il menu a tendina con le categorie e il valore scelto selezionato ma non popola nulla
sapete dirmi dove sbaglio?

Grazie-.

----code ----------------------------

<select name="categoria" size=1 class="cell" id="categoria">
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/dbase/db.mdb")

set objRS=server.createObject("ADODB.Recordset")
sql="SELECT * FROM categorie ORDER BY categoria asc"
objRS.Open sql, objConn


if not objRS.EOF then
do while not objRS.EOF


if objRS("categorialocale") = Cint(categoriascelta) then
response.write "<option value='"& objRS("categorialocale")&"' SELECTED>"& objRS("categorialocale")&"</option>"
else
response.write "<option value='"& objRS("categorialocale")&"'>"& objRS("categorialocale")&"</option>"
end if


objRS.MoveNext
Loop
end if

objRS.Close
set objRS=nothing

objConn.Close
set objConn=nothing
%>
</select>