Così dovrebbe essere ok..
Spero sia tutto ok!
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Tipo</title>
</head>
<body>
<b>
<div align="center">
<table border="0" width="100" id="table1" style="border-collapse: collapse">
<tr>
<td align="center" style="border-style: solid; border-width: 1px">
<p align="center"><b> <font size="1" face="Verdana">Tipo</font></td>
<td align="center" style="border-style: solid; border-width: 1px"><b> <font size="1" face="Verdana">
Modello</font></td>
<td align="center" style="border-style: solid; border-width: 1px"><b> <font size="1">
<span style="background-color: #FFFFFF">
<font face="Verdana"> Calibro</font></span></font></td>
<td align="center" style="border-style: solid; border-width: 1px">
<span style="background-color: #FFFFFF"><b>
<font face="Verdana" size="1">Peso</font></b></span></td>
<td align="center" style="border-style: solid; border-width: 1px">
</td>
</tr>
<tr>
<td align="center" style="border-style: solid; border-width: 1px">
<b> <font size="1">
<span style="background-color: #FFFFFF">
<form action="" method ="post">
<p>
<select onchange="this.form.submit()" name="msg" style="font-family: Verdana; font-size: 8pt" size="1">
<option selected value="----">---</option>
<%
set objconn=Server.CreateObject("ADODB.Connection")
objconn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};"&"dbq="& server.MapPath("2007.mdb")&";PWD=sa"
objconn.open
stringaSQL="SELECT * from materiali_e_peso"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open StringaSQL,objconn
do while not rs.EOF
%>
<option <%If request.Form("msg")=rs("denominaz") Then response.write " selected " End If%> value="<%=rs("denominaz")%>"><%=rs("denominaz")%></option>
<%
rs.MoveNext
loop
rs.close
objconn.close%>
</select></span></font></p>
</td>
<td align="center" style="border-style: solid; border-width: 1px">
<b>
<font size="1">
<span style="background-color: #FFFFFF">
<form action="" method ="">
<p>
<select onchange="this.form.submit()" name="autore" style="font-family: Verdana; font-size: 8pt" size="1">
<option selected value="----">---</option>
<%If request.Form("msg") <> "" Then
set objconn=Server.CreateObject("ADODB.Connection")
objconn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};"&"dbq="& server.MapPath("2007.mdb")&";PWD=sa"
objconn.open
stringaSQL="SELECT * from materiali_e_peso where campo='" & request.Form("msg") & "'"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open StringaSQL,objconn
do while not rs.EOF
%>
<option <%If request.Form("autore")=rs("tipo_mod") Then response.write " selected " End If%> value="<%=rs("tipo_mod")%>"><%=rs("tipo_mod")%></option>
<%
rs.MoveNext
Loop
rs.close
objconn.close%>
</select></span></font></p>
<input type="hidden" name="msg" value="<%=request.Form("msg")%>">
</form>
<%End If%>
</td>
<%If request.Form("autore") <> "" Then
set objconn=Server.CreateObject("ADODB.Connection")
objconn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};"&"dbq="& server.MapPath("2007.mdb")&";PWD=sa"
objconn.open
stringaSQL="SELECT * from materiali_e_peso where campo='" & request.Form("msg") & "' and campo2='" & request.Form("msg") & "'"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open StringaSQL,objconn
calibro=rs("nomecampodelcalibro")
peso_acc=rs("nomecampopeso_acc")
rs.close
objconn.close
End If%>
<td align="center" style="border-style: solid; border-width: 1px"><b> <font size="1">
<span style="background-color: #FFFFFF">
<input type="text" name="calibro" size="7" style="font-family: Verdana; font-size: 8pt; text-align:center" value="<%=calibro%>"></span></font></td>
<td align="center" style="border-style: solid; border-width: 1px"><b> <font size="1">
<span style="background-color: #FFFFFF">
<input type="text" name="peso_acc" size="9" style="font-family: Verdana; font-size: 8pt; text-align:center" value="<%=peso_acc%>"></span></font></td>
<td align="center" style="border-style: solid; border-width: 1px">
<b>
<input type="submit" value="Aggiungi" style="font-family: Verdana; font-size: 8pt"></td>
</tr>
</table>
</div>
</b>
</body>
</html>
