Interrogazione generale di un dbase

[fraude]

Ho fatto delle modifiche al codice... il problema è che devo eseguire simultanemaente i due confronti...

-se il primo confronto è risultato positivo devo scrivere nel dbase tutti i records ed etichettarli come 'positivo';

-se il primo confronto è risultato negativo devo passare automaticamente al secondo confronto ed etichettare i records che presentano problemi...

al momento quello che riesco a fare è il primo confronto, ma scrive solo il primo record che incontra nella tabella...

Riposto il codice modificato, chiedo un aiuto... non ci arrivo:

 <%
............

'creo l'oggetto rsCommon
Set rsCommon = Server.CreateObject("ADODB.Recordset")

'apro la connessione al db
strSQL = "SELECT * FROM ListFiles WHERE id_cat = "&cod0&" and Stato IS NULL"
rsCommon.Open strSQL, OpenStr, 3, 3 

'controllo se esistono record
If rsCommon.Eof then
response.write "NON CI SONO RECORD DA ANALIZZARE"

Else

'inizia il ciclo di analisi records
Do while (Not rsCommon.Eof)

SQLDown = "SELECT * FROM percentili"
Set recdown = adoCon.Execute(SQLDown)

strSQL = "SELECT * FROM ListFiles WHERE id_cat="&cod0
Set rec = adoCon.Execute(strSQL)

falso = 0

IF REC("valoreX") < RECDown("valoreX") then
response.write "valoreX ok"
ELSE
falso = falso+1
END IF

IF REC("valoreY") < RECDown("valoreY") then
response.write "valoreY"
ELSE
falso = falso+1
END IF 

rsCommon.Movenext
Loop
end if

strSQL = "SELECT * FROM ListFiles WHERE id_cat="&cod0
Set strREC=adoCon.Execute(strSQL)

SQL = "INSERT INTO ...
set RECDown = adoCon.execute(sql) 

sSQL = "UPDATE ListFiles set Stato = 'positivo' WHERE id_Cat = "&cod0
Set oRs = adoCon.Execute(sSQL)

if falso > 0 then

SQL = "SELECT * FROM DGA" 
Set RECDown=adoCon.Execute(SQL)

SQLDown = "SELECT * FROM ListFiles WHERE id_cat="&cod0
Set REC=adoCon.Execute(SQLDown)

strSQL1 = "SELECT * FROM Percentili" 
Set strREC1=adoCon.Execute(strSQL1)


IF REC("valoreX") < 0.1 AND REC("valoreY") < 0.2 then
SQL = "INSERT INTO ...
set RECDown = adoCon.execute(sql) 
end if

rsCommon.Close
Set rsCommon = Nothing
adoCon.Close
Set adoCon = Nothing  
%>

[fraude]

up

[fraude]

up