Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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.....
não apareceu nada somente repeticao 4 vezes....
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...
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 ?
veja se é assim
[tr]
ASP [/tr][tr]<%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
%>
[/tr]
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>"
verdade cara, então enfia isso no loop também
[tr]
ASP [/tr][tr]<%
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
%>
[/tr]
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>"
muda
[tr]
ASP [/tr][tr]if Inicio_Tabpost = Inicio_Tab Then
Formato_Tabpost = Inicio_Tabd & Fim_Tabd
else
Formato_Tabpost= Inicio_Tab & Fim_Tab
End if
[/tr]
pra
[tr]
ASP [/tr][tr]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
[/tr]
e testa
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...