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