I am having trouble with the following code!

Set RSB = Conn.Execute("SELECT * FROM PetObituarys WHERE username = '" & Session("username") & "' order by Expired asc")

do until RSB.EOF
IF CDate(RSB("Expired")) <= (Date+7) OR RSB("Approved") = 0 Then
Response.write "<Font Color=Red> ATTN:"
End If
RSB.Movenext
Loop


The above code outputs the following

<Font Color=Red> ATTN:<Font Color=Red> ATTN:<Font Color=Red> ATTN:<Font Color=Red> ATTN:</Font></Font></Font></Font>

and I only want it to output
<Font Color=Red> ATTN:</Font>

no matter how many records have the criteria

Basically what is missing to tell it to stop the loop after finding the first record that matchs the criteria

As always I just have to post the question to get the answer!! Argh

I realized that all I had to do was add

Dim NumChk
do until RSB.EOF OR NumChk = 1
IF CDate(RSB("Expired")) <= (Date+7) OR RSB("Approved") = 0 Then
Response.write "<Font Color=Red> ATTN:"
NumChk = NumChk + 1
End If
RSB.Movenext
Loop

and it stopped once I hit NumChk = 1 lol

Well Thanks for reading

The other way is to use the statement Exit Do

<%
Do until RSB.EOF
IF CDate(RSB("Expired")) <= (Date+7) OR RSB("Approved") = 0 Then
Response.write "<Font Color=Red> ATTN:"
Exit Do
End If
RSB.Movenext
Loop
%>