Repeat mudando formatação

[millhouse 0]

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.....

[Mário Monteiro 179]

bem basicamente poe isto dentro do loopconteudonot = (rsProd.Fields.Item("noticia").Value)img = (rsProd.Fields.Item("imagem").Value)antes de if Formato_Tabpost = Formato_Tab Then Formato_Tabpost = Formato_Tabd else Formato_Tabpost= Formato_Tab End ifsó quie acho que o formatar não funcionará corretamente deposi disso, devera adaptar...

[millhouse 0]

não apareceu nada somente repeticao 4 vezes....

[Mário Monteiro 179]

não apareceu nada somente repeticao 4 vezes....

foi o que disse, a formatação não funcionará direito, e como você manda imprimir ela, não aparece nada...

[millhouse 0]

bem o estilo de como erra para aparecer fico certo | Título da notícia | IMG || IMG | Título da notícia || Título da notícia | IMG || IMG | Título da notícia |e como você disse apareceu tudo vazio e como que faço para aparece algo ?

[Mário Monteiro 179]

veja se é assim

 

[tr][/tr][tr][/tr]

ASP

<% Dim rsProd Dim rsProd_numRows Dim conteudonot Dim img     Set rsProd = Server.CreateObject("ADODB.Recordset") rsProd.ActiveConnection = MM_bancodedados_STRING rsProd.Source = "SELECT * FROM noticias ORDER BY data DESC" rsProd.CursorType = 0 rsProd.CursorLocation = 2 rsProd.LockType = 1 rsProd.Open()   rsProd_numRows = 0   Dim Inicio_Tab, Fim_Tab   Inicio_Tab = "<table width='500' border='0' cellspacing='0' cellpadding='0'><tr><td width='377'>" Fim_Tab = conteudonot & "</td><td width='123'><img src=ima_not/"&img&" width='122' height='80'></td></tr></table>"   Dim Inicio_Tabd, Fim_Tabd   Inicio_Tabd = "<table width='500' border='0' cellspacing='0' cellpadding='0'><tr><td width='123'>" Fim_Tabd = "<img src=ima_not/"&img&" width='122' height='80'></td><td width='377'>"&conteudonot&"</td></tr></table>"   Do While Not rsProd.EOF   conteudonot = (rsProd.Fields.Item("noticia").Value) img = (rsProd.Fields.Item("imagem").Value)   if Inicio_Tabpost = Inicio_Tab Then Formato_Tabpost = Inicio_Tabd & Fim_Tabd else Formato_Tabpost= Inicio_Tab & Fim_Tab End if %>     response.write(Formato_Tabpost)   rsProd.Movenext Loop %>

[millhouse 0]

bem nao funcinou pois conteudonot = (rsProd.Fields.Item("noticia").Value)img = (rsProd.Fields.Item("imagem").Value)tenque vir antes deDim Inicio_Tab, Fim_TabInicio_Tab = "<table width='500' border='0' cellspacing='0' cellpadding='0'><tr><td width='377'>"Fim_Tab = conteudonot & "</td><td width='123'><img src=ima_not/"&img&" width='122' height='80'></td></tr></table>"Dim Inicio_Tabd, Fim_TabdInicio_Tabd = "<table width='500' border='0' cellspacing='0' cellpadding='0'><tr><td width='123'>"Fim_Tabd = "<img src=ima_not/"&img&" width='122' height='80'></td><td width='377'>"&conteudonot&"</td></tr></table>"

[Mário Monteiro 179]

verdade cara, então enfia isso no loop também

 

[tr][/tr][tr][/tr]

ASP

<% Dim rsProd Dim rsProd_numRows Dim conteudonot Dim img     Set rsProd = Server.CreateObject("ADODB.Recordset") rsProd.ActiveConnection = MM_bancodedados_STRING rsProd.Source = "SELECT * FROM noticias ORDER BY data DESC" rsProd.CursorType = 0 rsProd.CursorLocation = 2 rsProd.LockType = 1 rsProd.Open()   rsProd_numRows = 0   Dim Inicio_Tab, Fim_Tab Dim Inicio_Tabd, Fim_Tabd   Do While Not rsProd.EOF   conteudonot = (rsProd.Fields.Item("noticia").Value) img = (rsProd.Fields.Item("imagem").Value)   Inicio_Tab = "<table width='500' border='0' cellspacing='0' cellpadding='0'><tr><td width='377'>" Fim_Tab = conteudonot & "</td><td width='123'><img src=ima_not/"&img&" width='122' height='80'></td></tr></table>"   Inicio_Tabd = "<table width='500' border='0' cellspacing='0' cellpadding='0'><tr><td width='123'>" Fim_Tabd = "<img src=ima_not/"&img&" width='122' height='80'></td><td width='377'>"&conteudonot&"</td></tr></table>"   if Inicio_Tabpost = Inicio_Tab Then Formato_Tabpost = Inicio_Tabd & Fim_Tabd else Formato_Tabpost= Inicio_Tab & Fim_Tab End if   response.write(Formato_Tabpost)   rsProd.Movenext Loop %>

[millhouse 0]

fiz isso já so q dai ele poem tudo numa formatação so|Título da notícia |IMG||Título da notícia |IMG||Título da notícia |IMG||Título da notícia |IMG|eu acho que tenho que fazer assimrepetir o cod abaixoconteudonot = (rsProd.Fields.Item("noticia").Value)img = (rsProd.Fields.Item("imagem").Value) antes de das variaveis abaixo , e sem repetir as variaveis abaixoInicio_Tab = "<table width='500' border='0' cellspacing='0' cellpadding='0'><tr><td width='377'>"Fim_Tab = conteudonot & "</td><td width='123'><img src=ima_not/"&img&" width='122' height='80'></td></tr></table>"Inicio_Tabd = "<table width='500' border='0' cellspacing='0' cellpadding='0'><tr><td width='123'>"Fim_Tabd = "<img src=ima_not/"&img&" width='122' height='80'></td><td width='377'>"&conteudonot&"</td></tr></table>"

[Mário Monteiro 179]

muda

[tr][/tr][tr][/tr]

ASP	if Inicio_Tabpost = Inicio_Tab Then Formato_Tabpost = Inicio_Tabd & Fim_Tabd else Formato_Tabpost= Inicio_Tab & Fim_Tab End if

pra

[tr][/tr][tr][/tr]

ASP	if Inicio_Tabpost = Inicio_Tab Then Formato_Tabpost = Inicio_Tabd & Fim_Tabd Inicio_Tabpost = Inicio_Tabd else Formato_Tabpost= Inicio_Tab & Fim_Tab Inicio_Tabpost = Inicio_Tab End if

e testa