EXIBIR IMAGEM ENTRE EXIBICAO DE REGISTROS

WEBIER 08/11/2009 15:11:34
#327167 
<%
Set nt1 = Server.CreateObject([Ô]ADODB.Recordset[Ô])
nt1.Open [Ô]SELECT * from noticias order by id desc[Ô], DB

Contar = 0

Do while not nt1.Eof
tópico = nt1([Ô]tópico[Ô])
Resumo = nt1([Ô]Resumo[Ô])
Classe1 = nt1([Ô]Classe1[Ô])
Classe = nt1([Ô]Classe[Ô])
Data = nt1([Ô]Data[Ô])
Data = RIGHT([Ô]0[Ô] & DAY(Data), 2) & [Ô]/[Ô] & RIGHT([Ô]0[Ô] & MONTH(Data), 2) & [Ô]/[Ô] & RIGHT(YEAR(Data), 2)
Horas = nt1([Ô]Horas[Ô])
id = nt1([Ô]id[Ô])

IF Contar > 3 Then
   exit do
end if
                
if Classe1 = [Ô]Matéria[Ô] Then
%>

<p align=[Ô]left[Ô] style=[Ô]margin-top: 0; margin-bottom: 0[Ô]>
<a target=[Ô]conteudo[Ô] href=[ô]mostra.asp?noticias=<%=nt1([Ô]id[Ô])%>&Classe=<%Response.Write Classe%>[ô]> 
<font face=[Ô]Arial[Ô] style=[Ô]font-size:10pt;[Ô]><strong><%Response.Write tópico%></strong></font><br>
<font face=[Ô]Arial[Ô] style=[Ô]font-size:8pt;[Ô]><%Response.Write Resumo%></font></p><br>

<%
Contar = Contar + 1
end if
nt1.Movenext
Loop
%>


Esse codigo ai acima é de um site de noticias q to fazendo!
Com esse código acima consigo pegar as ultimas 4 materias e mostrar uma abaixo da outra.

Exemplo:

MATERIA 01
texto bla bla bla bla

MATERIA 02
texto bla bla bla bla

MATERIA 03
texto bla bla bla bla

MATERIA 04
texto bla bla bla bla

Está funcionando perfeitamente.

O que quero fazer então?

Coloca uma imagem entre esses registros somente pra exibição...

Exemplo:

MATERIA 01
texto bla bla bla bla
[imagem]
MATERIA 02
texto bla bla bla bla
[imagem]
MATERIA 03
texto bla bla bla bla
[imagem]
MATERIA 04
texto bla bla bla bla


OBS: a imagem (barra.jpg) somente deve aparece depois do primeiro, segundo e terceiro registro exibido... não dever aparecer depois do ultimo, que seria o quarto registro exibido.

Como eu faço isso?
JUNIORNET 09/11/2009 09:36:31
#327205 Resposta escolhida
Bom dia segue o código alterado na verdade so acrescentei um bloco, testa e me da um toque porque eu nao consegui testar mas deve rolar assim.
  <%
Set nt1 = Server.CreateObject([Ô]ADODB.Recordset[Ô])
nt1.Open [Ô]SELECT * from noticias order by id desc[Ô], DB

Contar = 0

Do while not nt1.Eof
tópico = nt1([Ô]tópico[Ô])
Resumo = nt1([Ô]Resumo[Ô])
Classe1 = nt1([Ô]Classe1[Ô])
Classe = nt1([Ô]Classe[Ô])
Data = nt1([Ô]Data[Ô])
Data = RIGHT([Ô]0[Ô] & DAY(Data), 2) & [Ô]/[Ô] & RIGHT([Ô]0[Ô] & MONTH(Data), 2) & [Ô]/[Ô] & RIGHT(YEAR(Data), 2)
Horas = nt1([Ô]Horas[Ô])
id = nt1([Ô]id[Ô])

IF Contar > 3 Then
   exit do
end if
                
if Classe1 = [Ô]Matéria[Ô] Then
%>

<p align=[Ô]left[Ô] style=[Ô]margin-top: 0; margin-bottom: 0[Ô]>
<a target=[Ô]conteudo[Ô] href=[ô]mostra.asp?noticias=<%=nt1([Ô]id[Ô])%>&Classe=<%Response.Write Classe%>[ô]> 
<font face=[Ô]Arial[Ô] style=[Ô]font-size:10pt;[Ô]><strong><%Response.Write tópico%></strong></font><br>
<font face=[Ô]Arial[Ô] style=[Ô]font-size:8pt;[Ô]><%Response.Write Resumo%></font></p><br>
<%
if (Contar > 0 and Contar < 3) then
[ô]Aqui voce chama a imagem
end if
%>

<%
Contar = Contar + 1
end if
nt1.Movenext
Loop
%>

WEBIER 09/11/2009 20:49:49
#327279
AMIGO, fiz conforme vc me disse:

<%
Set nt1 = Server.CreateObject([Ô]ADODB.Recordset[Ô])
nt1.Open [Ô]SELECT * from noticias order by id desc[Ô], DB

Contar = 0

Do while not nt1.Eof
tópico = nt1([Ô]tópico[Ô])
Resumo = nt1([Ô]Resumo[Ô])
Classe1 = nt1([Ô]Classe1[Ô])
Classe = nt1([Ô]Classe[Ô])
Data = nt1([Ô]Data[Ô])
Data = RIGHT([Ô]0[Ô] & DAY(Data), 2) & [Ô]/[Ô] & RIGHT([Ô]0[Ô] & MONTH(Data), 2) & [Ô]/[Ô] & RIGHT(YEAR(Data), 2)
Horas = nt1([Ô]Horas[Ô])
id = nt1([Ô]id[Ô])

IF Contar > 3 Then
   exit do
end if
                
if Classe1 = [Ô]Matéria[Ô] Then
%>

<p align=[Ô]left[Ô] style=[Ô]margin-top: 0; margin-bottom: 0[Ô]>
<a target=[Ô]conteudo[Ô] href=[ô]mostra.asp?noticias=<%=nt1([Ô]id[Ô])%>&Classe=<%Response.Write Classe%>[ô]> 
<font face=[Ô]Arial[Ô] style=[Ô]font-size:10pt;[Ô]><strong><%Response.Write tópico%></strong></font><br>
<font face=[Ô]Arial[Ô] style=[Ô]font-size:8pt;[Ô]><%Response.Write Resumo%></font></p><br>
<%
if (Contar > 0 and Contar < 3) then
<img src=[Ô]images/barra.jpg[Ô]>
end if
%>

<%
Contar = Contar + 1
end if
nt1.Movenext
Loop
%>


e dar o seguinte erro:
Script error detected at line 206.
Source line:
Description: Instrução esperada


depois de Source line: aparece a imagem da barra.
Tópico encerrado , respostas não são mais permitidas
Voltar