Sto sbattendo la testa su un errore che finalmente ho individuato (è nel file scaricaprocess.asp) ma non riesco a risolvere...vi spiego:

- ho un database x.mdb con 2 tabelle: caricoarticoli e Scaricoarticoli, tutte e 2 tabelle hanno un campo denominato "prezzo1"

- ho un file elenco.asp che elenca i valori della tabella "caricoarticoli" nel database x.mdb;
in questi valori c'è "prezzo1", indica il prezzo di acquisto della merce.

- quando vado a vendere la merce X ad un cliente chiamo in causa il file "scarica.asp"; questo file, tra gli altri valori mi pesca anche "prezzo1".

"scaricaprocess.asp" inserisce il valore "prezzo1" ( prendendolo attraverso prezzo1=request.form("prezzo1") ) nella tabella "scaricoarticoli": in pratica però quando faccio l'operazione mi trovo il valore di "prezzo1" nella tabella "scaricoarticoli" corrispondente all'ultimo valore di "prezzo1" della tabella "caricoarticoli"



scarica process.asp
codice:

<%

''request INFORMAZIONI SU DATA, ORA IMMISSIONE E IP UTENTE
DataOperazioneScarico=now() 

IpUtenteScarico=request.ServerVariables("REMOTE_ADDR")

ModificatoScarico="NO"

SistemaOperativoScarico=Request.ServerVariables("HTTP_USER_AGENT")

UtenteScaricoInserimento= session ("login2")

''----------------------------------------------
cod=request.querystring("cod")
cod = replace(cod, "'", "''")

datadocumento=Request.Form("datadocumento")
datadocumento = replace(datadocumento, "'", "''")

ndocumento=Request.Form("ndocumento")
ndocumento = replace(ndocumento, "'", "''")

tipodocumento=request.form("tipodocumento")
tipodocumento = replace(tipodocumento, "'", "''")

fornitore=request.form("fornitore")
fornitore = replace(fornitore, "'", "''")

ricarica=request.form("ricarica")
ricarica = replace(ricarica, "'", "''")

cod1=request.form("cod1")
cod1 = replace(cod1, "'", "''")

descr1=request.form("descr1")
descr1 = replace(descr1, "'", "''")

marca1=request.form("marca1")
marca1 = replace(marca1, "'", "''")

cat1=request.form("cat1")
cat1 = replace(cat1, "'", "''")

qta1=request.form("qta1")
qta1 = replace(qta1, "'", "''")

prezzo1=request.form("prezzo1")
prezzo1 = replace(prezzo1, "'", "''")


prezzoAcq=request.form("prezzo1")
prezzoAcq = replace(prezzo1, "'", "''")


rif1=request.form("rif1")
rif1 = replace(rif1, "'", "''")

note1=request.form("note1")
note1 = replace(note1, "'", "''")

modello1=request.form("modello1")
modello1 = replace(modello1, "'", "''")


datadocumentoScarico=request.form("datadocumentoScarico")
datadocumentoScarico = replace(datadocumentoScarico, "'", "''")

NDocumentoScarico=request.form("NDocumentoScarico")
NDocumentoScarico = replace(NDocumentoScarico, "'", "''")

TipoDocumentoScarico=request.form("TipoDocumentoScarico")
TipoDocumentoScarico = replace(TipoDocumentoScarico, "'", "''")

Cliente=request.form("Cliente")
Cliente = replace(Cliente, "'", "''")

NoteScarico=request.form("NoteScarico")
NoteScarico = replace(NoteScarico, "'", "''")

QtaScarico=request.form("QtaScarico")
QtaScarico = replace(QtaScarico, "'", "''")

PrezzoCliente=request.form("PrezzoCliente")
PrezzoCliente = replace(PrezzoCliente, "'", "''")

ModalitaDiPagamento=request.form("ModalitaDiPagamento")
ModalitaDiPagamento = replace(ModalitaDiPagamento, "'", "''")




'CONTROLLO 1 CHE IMPEDISCE L'INSERIMENTO DI RECORD VUOTI E DI TESTO IN QTA1 ALTRIMENTI LA SOMMA NUMERICA IN ELENCO GENEREREBBE ERRORE --- manda ad un mess di errore E TORNA INDIETRO
if isnumeric(QtaScarico)=false then Response.Redirect("Mess\MessQtaScaricoTesto.asp") else
if QtaScarico=0 then Response.Redirect("Mess\MessQtaScaricoZero.asp") else

'SOTTRAGGO LA QUANTITà DELL'ARTICOLO CON LA QUANTITà DA SCARICARE
QtaMenoUno=qta1 - QtaScarico

'RISCRIVO L'IMPORTO1 NEL DATABASE PER FAR SI CHE L' Importo totale Articoli in Magazzino NELL'ELENCO ARTICOLI SIA REALE ma devo prima creare il recordset
sql = "SELECT * FROM caricoart order by ID DESC"
Set Rec = Server.CreateObject ("ADODB.Recordset")
Rec.Open sql, Conn, 3, 3
prezzo1=rec("prezzo1")
ImportoReale=prezzo1 * QtaMenoUno

'CONTROLLO 2 CHE IMPEDISCE LO SCARICO DI ARTICOLI MAGGIORE DI QUANTO SIANO GLI ARTICOLI IN CARICO
if QtaMenoUno<0 then Response.Redirect("Mess\MessQtaMeno.asp")

if prezzo1="" then prezzo1=0

SQLupdate = "UPDATE caricoart set qta1='"&qtamenouno&"', Importo1='"&ImportoReale&"' WHERE id="&cod
Conn.Execute(SQLupdate)





SQLinsert = "INSERT INTO ScaricoArt (cod1,descr1,marca1,cat1,qta1,prezzoAcq,rif1,note1,modello1,datadocumento,ndocumento,tipodocumento,fornitore,datadocumentoScarico,NDocumentoScarico,Cliente,NoteScarico,QtaScarico,PrezzoCliente,ModalitaDiPagamento,Ricarica,DataOperazioneScarico,IpUtenteScarico,ModificatoScarico,SistemaOperativoScarico,UtenteScaricoInserimento)"
SQLinsert = SQLinsert&"VALUES('"&cod1&"','"&descr1&"','"&marca1&"','"&cat1&"','"&qta1&"','"&prezzoAcq&"','"&rif1&"','"&note1&"','"&modello1&"','"&datadocumento&"','"&ndocumento&"','"&tipodocumento&"','"&fornitore&"','"&datadocumentoScarico&"','"&NDocumentoScarico&"','"&Cliente&"','"&NoteScarico&"','"&QtaScarico&"','"&PrezzoCliente&"','"&ModalitaDiPagamento&"','"&Ricarica&"','"&DataOperazioneScarico&"','"&IpUtenteScarico&"','"&ModificatoScarico&"','"&SistemaOperativoScarico&"','"&UtenteScaricoInserimento&"')" 
Conn.Execute(SQLinsert)
Response.Redirect "Mess\ScaricoMessaggio.asp"

'Chiudo e setto a nothing Conn
conn.Close 
Set conn = nothing 
%>