proverei con una cosa del genere:
codice:
Dim SQLROWcontrollo,recROWcontrollo
SQLROWcontrollo = "SELECT TOP 2 * FROM RiepilogoCostiROWS WHERE IdRiferimento='"&cod&"'"
Set RecROWcontrollo = Server.CreateObject ("ADODB.Recordset")
RecROWcontrollo.Open SQLROWcontrollo, Conn, 3, 3

consenso = 0
While (NOT RecROWcontrollo.EOF)

PrezzoUnitarioRowcontrollo=RecROWcontrollo("PrezzoUnitarioRow")
if not IsNumeric(PrezzoUnitarioRowcontrollo) then consenso = consenso + 1


RecROWcontrollo.MoveNext
WEnd


RecROWcontrollo.close
Set RecROWcontrollo = nothing

if consenso = 0 then
procedi
else
fai_altro
end if
l'ho detta ma non provata