il menu di tendina è questo qua
<select name="categoria" size="5">

<% dim RSS4, SQLSS4
Set RSS4 = Server.CreateObject("ADODB.RecordSet")

SQLSS4 = " SELECT * FROM cats ORDER BY id DESC"
Set RSS4 = objConattivita.Execute(SQLSS4)

If Not RSS4.EOF Then RSS4.MoveFirst
Do While Not RSS4.EoF

%>
<option value="<%=RSS4("catsin")%>"><%=RSS4("catplu")%> </option>
<%
RSS4.MoveNext
Loop
%>
<%

RSS4.Close
Set RSS4 = Nothing%>
</select>
si chiema name="categoria"