Problema na hora de colocar o nº de colunas

Bem olá novamente pessoal, espero que me ajudem poi não estou sabendo direito onde colocar o contador para mostrar o numero certo de colunas....nesse caso 5!

bem ai vai o código

<%
DIM rsjogos
Set rsjogos = Server.CreateObject("ADODB.Recordset")
rsjogos.ActiveConnection = Conexao

 rsjogos.Source = "select * from tb_jogos where(tb_jogos.genero ='lancamentos')"
 rsjogos.CursorType = 3
 rsjogos.CursorLocation = 3
 rsjogos.LockType = 2
 rsjogos.Open()
 If not rsjogos.Eof then%>
 <table width="17%" height="137" border="0">
 <tr>
 <%
 contador = 0
 While not rsjogos.Eof%>
 <td><table border="0" cellpadding="0" cellspacing="0">
 <tr valign="top">
 <td align="center"><a href="<%=rsjogos("img_full")%>" class="highslide" onClick="return hs.expand(this)"
 title="<br /><br /><br /><%=rsjogos("titulo")%><br /><br />
 Lançamento: <%=rsjogos("lancamento")%><br />
 Gênero: <%=rsjogos("genero")%><br />
 Distribuidor: <%=rsjogos("distribuidor")%><br />
 Desenvolvedor: <%=rsjogos("desenvolvedor")%><br /><br />

 Site Oficial: <%=rsjogos("site_oficial")%><br />

" style="float: left; margin: 0 0 10px 15px">

 <img src="<%=rsjogos("img")%>" alt="" align="top" width="105" height="122" /></a>
 </td>
 </tr>
 <tr>
 <td width="105" align="center"><%=rsjogos("titulo")%></td>
 </tr>
 <tr>
 <td align="center"> </td>
 </tr>
 </table></td>
 <%
 contador = contador +1
 If contador = 5 then
 response.Write("<tr>")
 contador = 0
 end if
 rsjogos.MoveNext
 wend%>
 </tr>
 </table>
 <%end if
 rsjogos.Close()
 end if
 %>

Obs. o Select esta funcionando perfeitamente bem sem o contador ta funcionando redondinho.

Espero que alguem me ajude com mais essa....valeuuuuu!!!