Somma dati se codice uguale

<%

' script con ciclo

SELECT * FROM PRIMOPIANO

' | inizia il ciclo
	codice = Rs.Fields.Item("codice").Value
	prodotto = Rs.Fields.Item("prodotto").Value
	quantita1 = Rs.Fields.Item("quantità").Value
	
' || ora verifico che il codice esista o meno nella tabella reparto	

	SELECT * FROM REPARTO WHERE codice = "&codice&"
		
		codice_reparto =  Rs1.Fields.Item("codice").Value
		quantita2 = Rs1.Fields.Item("quantità").Value
	
		' faccio il controllo
			if codice_reparto = codice Then
				quantita1 + quantita1 = quantita_totale
			
			Else
		' faccio uno script per inserire nella tabella
		' reparto i valori rilevati
		
				INSERT INTO REPARTO....
	
			End If
			

' | fine ciclo

%>

<style type="text/css">
<!--
.bordo {
	border-bottom-width: 1px;
	border-bottom-style: solid;
	border-bottom-color: #CCCCCC;
}
td {
	font-family: Verdana;
	font-size: 11px;
	color: #333333;
	text-decoration: none;
	line-height: 18px;
}
-->
</style>
<table width="500" align="center" cellpadding="2" cellspacing="2" border="0">
<tr>
<td colspan="3">Attenzione, se visualizzi dei record color rosso, significa che l'informazione &eacute; stata parificata nei due DB.</td>
</tr>
<tr align="center">
<td style="background-color:#333333; color:#FFFFFF">Codice</td>
<td style="background-color:#333333; color:#FFFFFF">Prodotto</td>
<td style="background-color:#333333; color:#FFFFFF">Quantit&agrave;</td>
</tr>
<%

'  ---------------------------------------------------
	Set Rs = Server.CreateObject("ADODB.Recordset")
		Rs.ActiveConnection = strConnect
		Rs.Source = "SELECT * FROM primopiano ;"
		Rs.CursorType = 0
		Rs.CursorLocation = 2
		Rs.LockType = 1
		Rs.Open()
		Ciclo = 9999 ' numero massimo record visualizzabili
If NOT Rs.EOF Then

	While ((Ciclo <> 0) AND (NOT Rs.EOF)) 
	
		a1 = (Rs.Fields.Item("id").Value)
		a2 = (Rs.Fields.Item("codice").Value)
		a3 = (Rs.Fields.Item("prodotto").Value)
		a4 = (Rs.Fields.Item("qta").Value)
' ====================================================================
'Response.Write a1&"<br>"	

%>
<%
	Set Rv = Server.CreateObject("ADODB.Recordset")
		Rv.ActiveConnection = strConnect
		Rv.Source = "SELECT * FROM reparto WHERE codice = '"&a2&"' ;"
		Rv.CursorType = 0
		Rv.CursorLocation = 2
		Rv.LockType = 1
		Rv.Open()
		Ciclv = 9999 ' numero massimo record visualizzabili
If NOT Rv.EOF Then

	While ((Ciclv <> 0) AND (NOT Rv.EOF)) 
	
		v1 = (Rv.Fields.Item("id").Value)
		v2 = (Rv.Fields.Item("codice").Value)
		v3 = (Rv.Fields.Item("prodotto").Value)
		v4 = (Rv.Fields.Item("qta").Value)

			Totale = v4 + a4
		
%>
<tr>
<td class="bordo"><%=v2%></td>
<td class="bordo"><%=v3%></td>
<td class="bordo" align="center"><strong><%=Int(Totale)%></strong></td>
</tr>
<%

		Ciclv = Ciclv-1
		Rv.MoveNext()
	Wend
Else

				Set RsUpdate = server.CreateObject ("ADODB.Connection")
					RsUpdate.ConnectionString = strConnect
					RsUpdate.Open
					QuerySQL = "INSERT INTO reparto (" &_
								"codice, " &_
								"prodotto, " &_
								"qta " &_
								") VALUES (" &_
								"'"&a2&"', " &_
								"'"&a3&"', " &_
								"'"&a4&"' )"
					RsUpdate.Execute QuerySQL
				Set RsUpdate = Nothing

%>

<tr>
<td class="bordo"><font color="#FF0000"><%=v2%></font></td>
<td class="bordo"><font color="#FF0000"><%=v3%></font></td>
<td class="bordo" align="center"><strong><font color="#FF0000"><%=Int(Totale)%></font></strong></td>
</tr> 
<%	
		
End If
		Rv.Close
	Set Rv = Nothing ' chiudo il recordset



	
' ====================================================================
		Ciclo = Ciclo-1
		Rs.MoveNext()
	Wend

End If

		Rs.Close
	Set Rs = Nothing ' chiudo il recordset

%>
</table>