eccomi qui... allora questo è il prodotto ottenuto con successo...
codice:
<%
dim intCodice
intCodice = request("ID_merc")
if intCodice<>"" then
dim strCode
strCode="innovatel"
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("magazzino.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM merce WHERE ID_merc=" &intCodice
Set rs = Server.CreateObject("ADODB.Recordset")
dim qta, pr, tot_new
qta= request.form("Quantita")
pr= request.form("Prezzo")
tot_new= (qta * pr)
rs.Open sql, conn ,3,3
rs(1)=request.form("codice")
rs(2)=request.form("lotto")
rs(3)=request.form("descrizione")
rs(4)=qta
rs(5)=request.form("Numero")
rs(6)=request.form("N° Bolla")
rs(7)=request.form("Scadenza")
rs(8)=request.form("Fornitore")
rs(9)=pr
rs(10)= tot_new
rs.update
set rs = Nothing
conn.Close
set conn = Nothing
response.redirect "visualizza_magazzino.asp"
else
response.redirect "visualizza_magazzino.asp"
end if
%>
<body>
</body>
</html>
Ovviamente mi perdo in alcuni passaggi, devo aggiornare anche il campo totale di una tabella relazionata chiamata carico ed il campo tot_carico, questa tabella mi tiene lo storico di tutti i carichi effettuati nel tempo, giusto per farmi due conti ogni mese, c'è un modo per aggiornare anche quel campo?
grazie a tutti!
Rispondi quotando
