Do --- Loop

[Looster]

Hey guy's

Here's my code:
************
Set rsResults = conn.Execute("SELECT * FROM Headlines WHERE Head_Date = '" & lcdate & "' ORDER By Head_Index Desc")
if not rsResults.EOF then
Response.Write "</blockquote><font face=""times new roman"" size=""5"" color=""#000000"">Today's Top Stories.</font><blockquote><ul type=""disc"">"
Do
if cstr(rsResults("Head_Date")) = lcdate then
Response.Write "<li><a href=""javascript:Head('http://www.newsclip.co.za/asp/headline.asp?sHead=" & rsResults("Head_Index") & "')""><font face=""times new roman"" size=""3"" color=""RED"">" & rsResults("Head_Headline") & " <br> " & rsResults("Head_Time") & "</font></a>"
i = i + 1
rsResults.MoveNext()
else
Response.write "Error Retriving Data.<br>"
end if
Loop While i <> 4 'OR rsResults.EOF = True
end if
*******************
My problem is that if I have less than 3 headlines to be added I get an error message Now I want to loop to run 3 times or until the end of the Recordset has been reached but It doesn't want to work that way.

Thanks in advance

Perhaps you can try this trick.

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

If i = 3 Then
  Exit Do
End If