Repeat mudando formatação

bem fiz um sitema de repeat

bem ai vai o cód do recorset

<%Dim rsProdDim rsProd_numRowsDim conteudonotDim imgSet rsProd = Server.CreateObject("ADODB.Recordset")rsProd.ActiveConnection = MM_bancodedados_STRINGrsProd.Source = "SELECT * FROM noticias ORDER BY data DESC"rsProd.CursorType = 0rsProd.CursorLocation = 2rsProd.LockType = 1rsProd.Open()rsProd_numRows = 0conteudonot = (rsProd.Fields.Item("noticia").Value)img = (rsProd.Fields.Item("imagem").Value)%>vairaiveis

<%Dim Formato_TabFormato_Tab =  "<table width='500' border='0' cellspacing='0' cellpadding='0'><tr><td width='377'>"&conteudonot&"</td><td width='123'><img src=ima_not/"&img&" width='122' height='80'></td></tr></table>"Dim Formato_TabdFormato_Tabd = "<table width='500' border='0' cellspacing='0' cellpadding='0'><tr><td width='123'><img src=ima_not/"&img&" width='122' height='80'></td><td width='377'>"&conteudonot&"</td></tr></table>" %>  

o cod de repetição

<%    Do While Not rsProd.EOF    if Formato_Tabpost = Formato_Tab Then    Formato_Tabpost = Formato_Tabd    else    Formato_Tabpost= Formato_Tab    End if    %>    <%= Formato_Tabpost%>    <%    rsProd.Movenext    Loop    %>
a ai vai problema

tenho 4 registros de noticias diferente, porem ele me repete as 4 noticias iguais.....