Salve ragazzi,


Avrei un piccolo quesito da porVi,
non riesco ad ottenere il risulta nella operazione che segue mi da un risultato nel DB assurdo mi dareste un okkio dove sbaglio ?
Praticamente devo calcolare lo scarto ma il risultato non è corretto..
codice:
<%
If Request.querystring("mode") = "updatedb" then 

strUserName = Session("userName")
MySqlData = Request.Form("txtData")
strLinea = Request.Form("radiolinea")
strTipo = Request.Form("txtTipo")
strFormato = Request.Form("txtFormato")
strSerie = Request.Form("txtSerie")
strColore = Request.Form("txtColore")
strSottoSerie = Request.Form("txtSottoSerie")
strCodice = Request.Form("txtCodice")
strDestinazione = Request.Form("txtDestinazione")
totale = Request.Form("txtTot")
strNote = Request.Form("txtNote")
strID = Request.Form("txtID")
prima = Request.Form("txt1Sc")
seconda = Request.Form("txt2Sc")
terza = Request.Form("txt3Sc")
scarto = Request.Form("scarto_sc")



'**********Inizio Trucco per la Data****************'
anno = year(mySqlData)
mese  = month(mySqlData)
giorno = day(mySqlData)
mySqlData = anno &"/"& mese &"/"& giorno 
'**********Fine Trucco per la Data******************'

scarto = totale - (prima + seconda + terza)

'Percentuali
if totale > 0 then
    
	prima2 = FormatPercent((prima / totale), 2) 
	seconda2 = FormatPercent((seconda / totale), 2) 
	terza2 = FormatPercent((terza / totale), 2) 
	Scarto2 = FormatPercent((scarto / totale),2)
else
	prima2 = 0
	seconda2 = 0
	terza2 = 0
	Scarto2 = 0
end if


Set rsUpdateDati = Server.CreateObject("ADODB.Recordset")

strSQL = "UPDATE produzione SET produzione.data='" & MySqlData & "',produzione.linea='" & strLinea & "',produzione.tipo='" & strTipo & "',produzione.formato='" & strFormato & "',produzione.serie='" & strSerie & "',produzione.colore='" & strColore & "',produzione.sottoserie='" & strSottoSerie & "',produzione.codice='" & strCodice & "',produzione.destinazione='" & strDestinazione  & "',produzione.tot_smlt='"  & totale & "',produzione.1_sc='" & prima & "',produzione.2_sc='" & seconda & "',produzione.3_sc='" & terza & "',produzione.scarto_sc='" & scarto & "',produzione.note='" & strNote & "',produzione.createdby='" & strUserName & "' WHERE ID =" & strID
rsUpdateDati = adoCon.Execute(strSQL)

Set rsUpdateDati = Nothing
Set adoCon = Nothing
Response.Redirect"PanelProduction.asp?mode=listdati"

End If

%>
VVoVe:
Grazie in anticipo