<TABLE cols="3">
<%
intCount = 1
While NOT objRS.EOF
If intCount = 1 Then
Response.Write "<TR>" & vbcrlf
End If
Response.Write "<TD>" & objRS("YourResultsField") & "</TD>"
If intCount = 3 Then
Response.Write "</TR>" & vbcrlf
intCount = 0
End If
intCount = intCount + 1
objRS.MoveNext
Wend
%>
</TABLE>