purtroppo sto su una intranet in locale posto qui la pagina intera e ti ringrazio per la pazienza:
codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<LINK href="verdana.css" type="text/css" rel="stylesheet">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="javascript" type = "text/javascript">
function vai(){
var test;
test="true";
if (test=="true")
{
document.tabella1.action="prova_uoat2.asp";
document.tabella1.submit();
}
}
</script>
</head>
<body>
<%
cat2 = request.form("categ")
uoat = request.form("uoat")
'Stringa per la connessione
cString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("upload.mdb")
'set connession to database
Set objConn=Server.CreateObject("ADODB.Connection")
'open connession to database
objConn.Open cstring
Set rs = Server.CreateObject("ADODB.Recordset")
%>
<form name="tabella1" method="post">
<div align="center">
<select name="categ" onChange="submit();">
<option value="<%=cat2%>" selected>Selezionare un CAT</option>
<%
sql = "select * from cat"
rs.open sql, objconn
if not rs.eof then
do until rs.eof
%>
<option value="<%=rs.Fields.Item("id_cat").Value%>">
<%= RS.Fields.Item("cat").Value%></option>
<%
rs.movenext
loop
end if
%>
</select>
</div>
<div align="center">
</div>
<%
if cat2<>0 then
Set RS1 = Server.CreateObject("ADODB.Recordset")
sql1 = "select distinct analisi.id_uoat as gen, uoat.uoat as uoatt from uoat inner join analisi on analisi.id_uoat=uoat.id_uoat WHERE analisi.id_CAT = "&CAT2&""
rs1.open sql1, objconn
if not rs1.eof then
%>
<div align="center">
<select name="uoat" onchange="javascript: vai();">
<option value="0" selected>Selezionare UOAT</option>
<%
Do while Not RS1.EOF
%>
<option value="<%=RS1("gen")%>"><%=RS1("UOATT")%></option>
<%
RS1.Movenext
LooP
end if
rs1.close
set rs1 = nothing
end if
%>
</select>
</div>
</form>
<%
objconn.close
set objconn = nothing
%>
</body>
</html>