ecco il codice:

codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Session.LCID="1040"%>
<%Session.CodePage=65001%>
<%Response.Charset="UTF-8"%>
<%
if Request.Form("verbo")<> false then
response.write"The selected verb is: "
response.write"<strong>"
response.write Request.Form("verbo")
response.write"</strong>"
session("verbo")=Replace(Request.Form("verbo"),"'","''")
response.write"<br>"
response.write"<br>"
response.write"Select the class from the list:"


lemma=request.form("verbo")


set conn=server.createobject("adodb.connection")
		conn.open = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("tabtavole.mdb")
		sql="SELECT classeit FROM totlemmi WHERE lemma = '" & session("verbo") & "' GROUP BY classeit ORDER BY classeit asc" 
		set rs=server.createobject("adodb.recordset")
		rs.open sql, conn, 1, 3
%>


<SCRIPT LANGUAGE=javascript>
function invia()
      { 
      document.modellodue.submit();
	  //self.location.reload();
      }
   
</SCRIPT>


<form action="act2b.asp?verbo=<%=lemma%>" method="post" name="modellodue" target="rightFrame">




<p align="center"><select name="classe" size="5" id="classe" onChange="invia()">
  <%
Set Rs = Conn.Execute(SQL)
While Not rs.EOF%>
<option>
<% =rs("classeit") %>
</option>
<%rs.MoveNext
Wend
%>
</select>
  <input type="submit" name="Submit" value="Submit" />
</form>
   <%
		rs.close
		conn.close
		set rs=nothing
		set conn=nothing
end if
%>
grazie mille

F