<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>pippo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
valore=request.querystring("valore")
quantita=request.QueryString("quantita")
cod_parte=Request.QueryString("cod_parte")
Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/trunkstock.mdb")
sql="SELECT quantita FROM T_PARTI_ATTUATI WHERE cod_parte="& cod_parte &""
set rs =server.CreateObject("adodb.recordset")
rs.open sql, conn,3,3
do while not rs.eof
IF valore=1 then
quantita1=rs("quantita")+quantita
else
quantita1=rs("quantita")-quantita
end if
rs.movenext
loop
rs("quantita")=quantita1
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.redirect("trunkstock_attuati.asp")
%>
</body>
</html>