Ke cada 3 registro agregue un salto de linea

[Berletzis]

hay ta mi codigo como lo estoy poniendo haber ke opininan????

<%

x=1

lintRegistrosEnPantalla= 0
do while not lobjRst.EOF and CuantosRegistros < TamPagina
lintRegistrosEnPantalla = lintRegistrosEnPantalla +1

%>
<table class="inforationtext" width="303" border="0" align="left" bordercolor="#d6d3ce" id="table1">

<tr>
<td class="Informationtext" Textheight="10%" style="border-style: solid; border-width: 1px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" align="left">
<p align="right">

</td>
</tr>


<tr>
<td class='informationtext' style="border-style: solid; border-width: 1px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" align="center" width="273">
<table class="informationtext" width="302">
<tr>
<td align="left" valign="top">&nbsp;
<b></b>
</td>
<td align="left" valign="top">
<b>&nbsp;<%=lobjRst.fields("fecFEcha")%></b></td>
<td align="left" valign="top"><b>&nbsp;
<%=lobjRst.fields("strHora")%></b></td>
<td align="left" valign="top"><b>&nbsp;
<%=lobjRst.fields("strCiudad")%></b></td>
</tr>
</table>

</td>
</tr>


<tr>
<td class='informationtext' width="289" style="border-style: solid; border-width: 1px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" height="8">
<p align="left"><b>TEMA:<%=lobjRst.fields("strTema")% > </b></td>
</tr>

<tr>
<td class='informationtext' width="289" style="border-style: solid; border-width: 1px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" height="9">
<table width="301">
<tr>
<td class="informationtext" width="272"><%=lobjRst.fields("strNombre")%>&nbsp; </td>
<td width="19">
<img title="<%=lobjRst.fields("streMail")%>" border="0" src="../Imagenes_Sistema_AW/btn_Mail.png" width="17" height="14"></td>
</tr>
</table>

</td>
</tr>
<tr>
<td class='informationtext' width="273" style="border-style: solid; border-width: 1px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" height="10">
<%=lobjRst.fields("strMensaje")%></td>
</tr>
<tr>
<td class='informationtext' width="273" style="border-style: solid; border-width: 1px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" height="17">
</td>
</tr>

<tr>
<td class='titulogris' height="18" style="border-style: solid; border-width: 1px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px">&nbsp; </td>
</tr>


</table>


<%
If x MOD 3 = 1 Then
Response.Write "</tr><tr>"
End If
x = x+1



CuantosRegistros=CuantosRegistros+1
lobjRst.MoveNext
loop


lobjRst.Close





%>