Perhaps you can try this trick.
Code:
If Not rsResults.EOF Then 
  Do Until rsResults.EOF
    if cstr(rsResults("Head_Date")) = lcdate then 
      ' Place here your output code.
    Else
      Response.write "Error Retriving Data.<br>"
    End IF
    i = i + 1
    rsResults.MoveNext
  Loop
End If
And if you want to exit the loop you can use
Code:
If i = 3 Then
  Exit Do
End If