problema con if dentro un while

[kafkahc]

Buongiorno,
scusate ma ho una difficoltà.

stò provando a fare un ciclo che confronti uno stesso campo presente su due recordset diversi

vi posto il codice

<%
Dim CONFRONTO
CONFRONTO = (Recordset1.Fields.Item("ID_Med").Value)
While NOT Recordset_dia1.EOF
if (Recordset_dia1.Fields.Item("ID_Med").Value) = CONFRONTO then %>
XXXX
<% else
Recordset_dia1.MoveNext()
end if
Wend
%>

Il problema che ho é che XXXX non viene mai visualizzato, é come se l'if venisse ignorato...

sapreste indicarmi dove sbaglio? Ho controllato con cura il database e i valori nei due recordset ci sono...

grazie in anticipo

[Mems]

Verifica a vista.

While NOT Recordset_dia1.EOF
response.write CONFRONTO & " = " & Recordset_dia1.Fields.Item("ID_Med").Value & "<br /">
if (Recordset_dia1.Fields.Item("ID_Med").Value) = CONFRONTO then %>
XXXX
exit while
end if
Recordset_dia1.MoveNext()
Wend 
%>

[kafkahc]

Grazie mems per il consiglio,
su tuo suggerimento ho provato a fare

<%
Dim CONFRONTO
CONFRONTO = (Recordset1.Fields.Item("ID_Med").Value)
While NOT Recordset_dia1.EOF
if (Recordset_dia1.Fields.Item("ID_Med").Value) = CONFRONTO then
XXXX
exit while
end if
Recordset_dia1.MoveNext()
Wend
%>

ma ho avuto questo messaggio di errore

nvalid 'exit' statement

Ho ignorato la riga che mi ha messo per il response write perché non mi serviva...

Hai qualche idea?

[Mems]

<% 
Dim CONFRONTO
CONFRONTO = (Recordset1.Fields.Item("ID_Med").Value)
Do While NOT Recordset_dia1.EOF
if (Recordset_dia1.Fields.Item("ID_Med").Value) = CONFRONTO then 
XXXX
exit Do
end if
Recordset_dia1.MoveNext()
Loop 
%>

[kafkahc]

grazie adesso non mi da errori, solo che "ignora" la If...

<%
Dim CONFRONTO
CONFRONTO = (Recordset1.Fields.Item("ID_Med").Value)
Do While NOT Recordset_dia1.EOF
if (Recordset_dia1.Fields.Item("ID_Med").Value) = CONFRONTO then
response.Write(ciao)
exit Do
end if
Recordset_dia1.MoveNext()
Loop
%>

Sono sicuro che il recordset Recordset_dia1 abbia un campo con ID_Med uguale a Recordset1, ma non salta fuori... ci deve essere qualcosa di sbagliato nella if... non so, é la prima votla che metto la if dentro un ciclio...

[Mems]

Rimetti la response.write che avevo aggiunto l'altra volta così a vista vedi cosa c'hai come dati.

[kafkahc]

Ok, ho ripristinato il response.write...

<%
Dim CONFRONTO
CONFRONTO = (Recordset1.Fields.Item("ID_Med").Value)
Do While NOT Recordset_dia1.EOF
response.write CONFRONTO & " = " & Recordset_dia1.Fields.Item("ID_Med").Value & "
"
if (Recordset_dia1.Fields.Item("ID_Med").Value) = CONFRONTO then
response.Write(ciao)
exit Do
end if
Recordset_dia1.MoveNext()
Loop
Recordset_dia1.MoveFirst()
%>

Adesso visualizzo tutte el operazioni di confronto che fa... come pensavo però in corrispondenza di un recordset però ignora la if...

1603 = 1603
1603 = 2966
1603 = 3142


La prima riga é uguale, quindi mi aspetterei il response.write(Ciao)... però non fa niente...

[Mems]

if cstr(Recordset_dia1.Fields.Item("ID_Med").Value) = cstr(CONFRONTO) then

[kafkahc]

grazie infinitamente!