Mostrar registro em uma tabela

Estou tentando colocar um sistema de notícias em meu site, o prblema é que eu não consigo colocar as ultimas 6 notícias em uma tabela de 2 colunas. Já fiz de tudo (quase tudo... pelo menos a parte errada da coisa) mas não consegui.

Vou postar o código para vocês.

<%

AbreConexao

SQL = "SELECT TOP 6 * FROM tblnews ORDER BY mes DESC"

Set rs = Conexao.Execute(SQL)

While not rs.EOF

headline = Rs("headline")

headline = mid(headline,1,80)

%><Table>

<%Colunas=2 'Defina o número de colunas

While not rs.EOF

response.write"<tr>"

for x= 1 to Colunas

if rs.EOF or rs.BOF then ' Se for o Fim do RecordSet ou o Inicio do RecordSet faça

response.write "<TD>-</TD>" 'Em caso de EOF ou BOF ele completa as colunas com "-"

else ' Se Não for o Fim do RecordSet ou o Inicio do RecordSet faça

response.write "<TD>"

response.write "<table width=""206"" height=""55"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"

response.write "<tr>"

response.write "<td width=""63"">"

response.write "<a href=""ler.asp?codigo=&rs("id_new")&""><img src=""&rs("img_principal")&"" border=""0"" width=""55"" height=""55""></a>"

response.write "</td>"

response.write "<td width=""143"" class="fonte">"

response.write "<a href=""ler.asp?codigo=&rs("id_new")&""><font color=""#999999""><strong>&rs("titulo")&</strong>"

response.write "<br>&rs("headline")&</font></a></td>"

response.write "</tr>"

response.write "</table>"

response.write "</TD>"

rs.movenext

end if

next

response.write linha&"</TR>"

wend%>

</table>

<%

Wend

rs.close

FechaConexao

Set rs = nothing %>

Alguem consegue me ajudar??? :rolleyes:/>