Contar registros no validos en una consulta

[th3r0rn]

Hola tengo algo asi:


Como se ve eb la imagen el Targer es de 250, es decir este peso es el que debe llebar cada bolsa que se produce, alado se ve la columna peso donde se regflejan todos los pesos aproximados a dicho target, Ahora bien tengo una ley que dice:
que si el gramaje (target) es de 250 entonses solo deven de existir como maximo 7 Bolsas con un gramaje de: 239 es decir si en la tabla de pesos tengo mas de 7 bolsas que esten por de bajo de 239 entonses ya viola la ley internacional de peso, Lo que quiro hacer es algo como:
IF Target=250 and peso <=239 Then ley=ley=+1
y asi ir aumentando para saber cuantas bolsas mal llenadas tengo y marcar un alerta, el problema es que estos datos los obtengo de una base de datos y no se como podria hacer esto? Mi code es el siguiente

Código ASP:

<&#37;
 
dim conexion,calendar1,calendar2,registros,linea,hora,test
calendar1=request.form("calendar1")
calendar2=request.form("calendar2")
linea=request.form("linea")
Tubo=request.form("tubo")
hora=request.form("hora")
test=("SELECT h.hora,h.marca,h.codoptima,h.target,P.CODOPTIMA,O.CODIGO,p.hora,p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o,htargets as h where o.codigo = p.codOptima and o.linea = '"&linea&"' and o.tubo LIKE '"&tubo&"'  AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"' AND p.hora='"&hora&"'and h.codoptima = o.codigo and h.hora='"&hora&"'")
        SET conexion=Server.CreateObject("ADODB.Connection")
        conexion.CommandTimeout = 0
        conexion.ConnectionTimeout = 0
        
        conexion.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MESSRV02;UID=sa;PWD=messrv;DATABASE=wasp "
        
        SET registros=Server.CreateObject("ADODB.RecordSet")
        'registros.open"SELECT peso,tubo from pesos where fecha  between '"&calendar1&"' AND '"&calendar2&"'",conexion
 
        'registros.open"SELECT h.hora AS hora1,h.marca,h.codoptima AS codoptimaT,h.target,P.CODOPTIMA,O.CODIGO,p.hora,p.peso,p.vaso,p.fecha,o.linea,o.tubo INTO #c FROM pesos AS p, optimas AS o,htargets AS h WHERE o.codigo = p.codOptima AND o.linea = '"&linea&"' AND o.tubo ='"&tubo&"' AND p.fecha BETWEEN '"&calendar1&"' AND '"&calendar2&"' AND p.hora='"&hora&"' AND h.codoptima = o.codigo AND h.hora='"&hora&"'",conexion
 
    
        registros.open"EXEC cuenta '"&calendar1&"','"&calendar2&"','"&linea&"','"&tubo&"','"&hora&"'",conexion
    
    ' registros.EOF Then Response.Write("No records returned.") 
    'USED'registros.open"SELECT h.hora,h.marca,h.codoptima,h.target,P.CODOPTIMA,O.CODIGO,p.hora,p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o,htargets as h where o.codigo = p.codOptima and o.linea = '"&linea&"' and o.tubo ='"&tubo&"'  AND h.fecha Between '"&calendar1&"' AND '"&calendar2&"'  AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"' AND p.hora='"&hora&"'and h.codoptima = o.codigo and h.hora='"&hora&"'" ,conexion
    'registros.open"SELECT p.hora,p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o where o.codigo = p.codOptima and o.linea = 'L15N' and o.tubo LIKE '%'  AND p.fecha Between '2010-06-14 09:00:00.000' AND '2010-06-14 09:30:00.000' AND p.hora='9:00 - 9:30'" ,conexion    
    'SELECT h.codoptima,h.target,P.CODOPTIMA,O.CODIGO,p.hora,p.peso,p.vaso,p.fecha, o.linea,o.tubo,o.codigo FROM pesos as p, optimas as o,htargets as h where o.codigo = p.codOptima and o.linea = 'L07N' and o.tubo LIKE '%' AND p.fecha Between '2010-06-14 09:30' AND '2010-06-14 10:00' AND p.hora='9:30 - 10:00' and h.codoptima = o.codigo
 
    dim a,NumBolsas
    do while not registros.eof  'promedio-target*numero de bolsas
a=cint(registros.fields("target"))
NumBolsas=cint(registros.fields("totality"))
 
        response.write("<tr>")
        response.write("<td>"&registros.fields("linea")&"</td>")
        response.write("<td>"&registros.fields("peso")&"</td>")
        response.write("<td>"&registros.fields("target")&"</td>")
        'response.write("<td>"&a&"</td>")
        response.write("<td>"&registros.fields("marca")&"</td>")
        response.write("<td>"&registros.fields("vaso")&"</td>")
        response.write("<td>"&registros.fields("tubo")&"</td>")
        response.write("<td>"&registros.fields("fecha")&"</td>")
        response.write("<td>"&registros.fields("totality")&"</td>")
        
        registros.movenext
 
 
loop
 
conexion.close
SET conexion2=Server.CreateObject("ADODB.Connection")
            conexion2.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MESSRV02;UID=sa;PWD=messrv;DATABASE=wasp "
            SET registros2=Server.CreateObject("ADODB.RecordSet")
        
        registros2.open"SELECT AVG(PESO)as peso from pesos where fecha Between '"&calendar1&"' AND '"&calendar2&"'AND hora='"&hora&"' AND codoptima='"&codoptima&"'",conexion2 
        'RESPONSE.WRITE("SELECT AVG(PESO)as peso from pesos where fecha Between '"&calendar1&"' AND '"&calendar2&"'AND hora='"&hora&"' AND codoptima='"&codoptima&"'")
        do while not registros2.eof
        c=cint(registros2.fields("peso"))
        'b=(a-c)/a
        b=(c-a)/a
        response.write("Promedio: <b>"&registros2.fields("peso")&"</b><br>")
    '############## Aritmetica ####################
    ' C = Promedio  WHERE B=(a-c)/a
    ' A = Target
    saving=(c-a)*NumBolsas 
    if b<=0 then    response.write(" Op: <b>"&b&"</b><img src='http://www.pact-oil.co.uk/images/error.gif'</a><br>") else response.write(" Op: <b>"&b&"</b><img src='http://www.hospitalsierrallana.com/imagenes/gif_ok.gif'</a><br>")  end if
        response.write("Saving:<b> "&saving/1000&" KG</b>")'DIVIDIR /1000
        
        
        registros2.movenext
    loop
        
        conexion2.close
        
%>
 

[th3r0rn]

esto se podria hacer con algun for?