Response.write "<table>"
Response.write "<tr><td><b>BoatName</b><td>"
Response.write "<td><b>Sail #</b><td></tr>"
Do While Not .EOF
If .Fields("Event").Value <> OldEventName Then
OldEventName = .Fields("Event").Value
Response.Write("<h2>" & .Fields("Event").Value & "</h2>")
End If
' Now display the Placing stuff
Response.write "<tr><td>"
Response.Write(.Fields("BoatName").Value & "</td><td>" & _
.Fields("SailNum").Value & "</td></tr>")
.MoveNext()
Loop
Response.write "</table>"
Hope this is what you were looking for.
Cheers!
_________________________
-Vijay G

Strive for Perfection
