ldoodle
08-16-2006, 06:00 AM
Hi there,
How would I limit to following code to a specific number of results?
Thanks/...
Sub GetNews()
If Not NewsRS.EOF Then
Do While Not NewsRS.EOF
Echo(" <tr>")
Echo(" <td><img src=" & Chr(34) & "/images/" & LCase(NewsRS("Type")) & ".jpg" & Chr(34) & " alt=" & Chr(34) & "Type: " & NewsRS("Type") & " " & Chr(34) & " /></td>")
Echo(" <td>" & NewsRS("Text") & "</td>")
Echo(" <td>" & NewsRS("PostedOn") & "</td>")
Echo(" <td>" & NewsRS("PostedBy") & "</td>")
Echo(" </tr>")
NewsRS.MoveNext
Loop
Else
Echo(" <tr>")
Echo(" <td></td>")
Echo(" <td>No news alerts</td>")
Echo(" <td></td>")
Echo(" <td></td>")
Echo(" </tr>")
End If
Cleanup()
End Sub
How would I limit to following code to a specific number of results?
Thanks/...
Sub GetNews()
If Not NewsRS.EOF Then
Do While Not NewsRS.EOF
Echo(" <tr>")
Echo(" <td><img src=" & Chr(34) & "/images/" & LCase(NewsRS("Type")) & ".jpg" & Chr(34) & " alt=" & Chr(34) & "Type: " & NewsRS("Type") & " " & Chr(34) & " /></td>")
Echo(" <td>" & NewsRS("Text") & "</td>")
Echo(" <td>" & NewsRS("PostedOn") & "</td>")
Echo(" <td>" & NewsRS("PostedBy") & "</td>")
Echo(" </tr>")
NewsRS.MoveNext
Loop
Else
Echo(" <tr>")
Echo(" <td></td>")
Echo(" <td>No news alerts</td>")
Echo(" <td></td>")
Echo(" <td></td>")
Echo(" </tr>")
End If
Cleanup()
End Sub