Secondo me puoi fare così:

codice:
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
dim numRecord = 0
While NOT Recordset1.EOF
  If numRecord = 0 Then
    Response.Write("<tr>")
  End If
%>
<td><%=(Recordset1.Fields.Item("titolo").Value)%></td>
<%
  If numRecord = 2 Then
    Response.Write("</tr>")
    numRecord = 0
  Else
    numRecord = numRecord + 1
  End If
  Recordset1.MoveNext
Wend
If numRecord = 1 Then
  Response.Write("<td colspan=2></td></tr>")
Else If numRecord = 2 Then
  Response.Write("<td></td></tr>")
End If
%>
</table>
Questo dovrebbe produrti 3 colonne, se ne vuoi di più devi indicare il limite numRecord = n° colonne-1 e testare in uscita dal wend tutti i valori tranne lo 0...

Spero di esserti stato d'aiuto!!!