Cia ragazzi ho questo problema: programma per magazzino, il negozio invia la richiesta, il magazzino la stampa e poi aggiorna sul consegnato la quantità. Il codice è quello in basso senza la parte rossa. Funziona. Ora mi hanno chiesto di aggiungere il campo note accanto alla quantità consegnata ( ed avevo messo il codice in rosso), poi ho tentato di fare un update sui due campi e non ci sono riuscito ( le ho provato tutte). Lasciando il codice in rosso, cosa dovrei mettere sulla seconda pagina? Grazie mille.



codice:
<%
DA=SESSION("farm")
elsa=Request.querystring("elsa")
data=Request.querystring("data")
function DataAccess(sData)
  dim aData
  aData = split(Data, "/")
  DataAccess = "#" & aData(1) & "/" & aData(0) & "/" & aData(2) & "#"
end function
Data1= DataAccess("DATA") 
if da <> "magazzino" then
response.redirect "riprova.htm"
end if
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("magazzino.mdb") 
set Conn=Server.CreateObject("ADODB.Connection") 
Conn.open strconn 
Squeryt= "SELECT contatore, descrizione, quantita, giacenza, uo, datasta, consegnato, note " &_ 
	         "from magaz where annulla=false AND ricevuto= true and inviato=true and presidio LIKE " &_ 
			 "'"&elsa&"' and datainvio="&data1&" order by descrizione;" 
	set rs=server.createobject("adodb.recordset") 
	rs.open Squeryt,Conn 
	
%> 
<form action="giadamag.asp" method="post"> 
<table border="1" width="100%"> 
	<% while not Rs.eof %>
	<tr> 
		<td width="10%"><INPUT TYPE="TEXT" name="id" value="<%=rs("contatore")%>" readonly></td> 
		<td width="50%"><font color="#008000"><%=rs("descrizione")%></FONT></td> 
		<td width="5%"><font color="#008000"><%=rs("quantita")%></FONT></td> 
		<td width="5%"><font color="#008000"><%=rs("giacenza")%></FONT></td> 
		<td width="15%"><INPUT TYPE="TEXT" name="cons<%=rs("contatore")%>" value="<%=rs("consegnato")%>"></td> 
		<td width="15%"><INPUT TYPE="TEXT" name="not<%=rs("contatore")%>" value="<%=rs("note")%>"></td>    
	</tr> 
	</tr> 
	<% Rs.movenext
	   wend %>
	
	<tr>
		<td colspan="5" align="center"><input type="submit" name="action" value="AGGIORNA TUTTO">
		<input type="hidden" name="elsa" value="<%=elsa%>">
		<input type="hidden" name="data1" value="<%=data1%>"></td>
	</tr>
	
</table>
</form> 

<%  rs.Close
	conn.close 
	set conn = nothing 
	set rs = nothing

%>
Pagina2.asp

codice:
 <%
consi= request.form("cons")
idd=request.form("id")
note=request.form("not")
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("magazzino.mdb") 
set Conn=Server.CreateObject("ADODB.Connection") 
Conn.open strconn
if Request("action") <> "" then 
		arrID = Split(Replace(Request.Form("id")," ",""), ",", -1, 1) 
		For i = LBound(arrID) to Ubound(arrID)
			sql = "UPDATE magaz set consegnato=" & Request("cons" & arrId(i)) & " , conse=true where contatore="& arrID(i) &";" 
			conn.execute(sql) 
		Next
	end if 

conn.execute(sql)

conn.close
set conn = nothing
response.redirect "stampatogiadamag.asp"

%>