[Resolvido] exibir noticia com foto e sem foto

[xanburzum 169]

Isso geralmente é devido ao uso de um com declaração em um servidor com uma versão mais antiga dos motores de script. Certifique-se que os motores de script mais recente em seu servidor, especificamente, com requer a versão 5.0. Veja o link para informações sobre como obter as atualizações mais recentes.

[Salgado 4]

seria dese jeito

<% 
If imagem="OK" then
<img src="<%=nt1("imagem")%>" alt="<%Response.Write Titulo%>" width="215" height="176" border="0">

else
<span style="font-size:15pt;"><a href="ver.asp?id=<%=nt1("ID")%>"> 
<%Response.Write Titulo%>
	 end If
%> 

?

 

Seu If está certo, o problema é apenas de ajustes com relação aos marcadores de script ASP.

 

Deveria estar assim:

<%If imagem="OK" then%>
<img src="<%=nt1("imagem")%>" alt="<%=Titulo%>" width="215" height="176" border="0">
<%else%>
<span style="font-size:15pt;"><a href="ver.asp?id=<%=nt1("ID")%>"><%=Titulo%></a>
<%end If%>

[celi 0]

Salgado agora só não apareceu a imagem, tipo assim vou exibir 5 noticias na página inicial destas ciinco eu tenho duas com foto e tres sem foto. Eu queria que o sistema mostrasse as noticias com foto e as sem foto, mas incluindo a foto quando necessário entendeu?

[Salgado 4]

No local onde está seu laço de repetição recupere do BD o campo onde vai o caminho da imagem, na variável Imagem, depois no IF teste se essa variável tem algum valor diferente de vazio, se tiver mande exibir a imagem.

[celi 0]

veja se eu fiz corretamente:

<%

Set nt1 = Server.CreateObject("ADODB.Recordset")

nt1.Open "SELECT * from noticias order by id desc", DB

Contar = 1

Do while not nt1.Eof

Topico = nt1("Topico")

Classe = nt1("Classe")

Hora = nt1("Hora")

id = nt1("id")

Foto = ntl("Foto")

IF Contar > 5 Then

exit do

end if

if Classe = "Destaque" Then

%>

"Foto = ntl("Foto")"

[xanburzum 169]

coloque

 

nt1.Open "SELECT * from noticias order by id desc", DB,1,3

 

 

aparentemente esta correto, ele esta dando erro ?

[celi 0]

Não aparece erro unica coisa é que não está mostrando a imagem, mesmo inserindo nt1.Open "SELECT * from noticias order by id desc", DB,1,3

[Salgado 4]

veja se eu fiz corretamente:

 <%
Set nt1 = Server.CreateObject("ADODB.Recordset")
		nt1.Open "SELECT * from noticias order by id desc", DB
		Contar = 1
		Do while not nt1.Eof
			Topico = nt1("Topico")
			Classe = nt1("Classe")
			Hora = nt1("Hora")
			id = nt1("id")
			Foto = ntl("Foto")
			IF Contar > 5 Then
				exit do
			end if
if Classe = "Destaque" Then
			%>

"Foto = ntl("Foto")"

 

O nome do campo é imagem ou foto?

 

Aparece algum erro?Outro detalhe, o objeto setado não é ntl (ene, tê, ele) e sim nt1 (ene, tê, um).

[celi 0]

O nome correto é foto. Agora apareceu um erro: Microsoft VBScript runtime error '800a000d'

 

Type mismatch: 'ntl'

 

noticias/news.asp, line 22

 

Ao colocar nt1 aparece as notícias, ou seja, não da erro, porém todas sem foto

[Salgado 4]

Ok, então como está o seu IF agora? Substitua a var Imagem por Foto, teste novamente e retorne para informar.

[celi 0]

está deste jeito:

<%If foto="OK" then%>

<img src="<%=nt1("foto")%>" alt="<%=Topico%>" width="215" height="176" border="0">

<%else%>

<span style="font-size:15pt;"><a href="ver.asp?id=<%=nt1("id")%>"><%=Topico%></a>

<%end If%>

Porém continua mostrando apenas o texto da notícia.

[Salgado 4]

Troque:

<%If foto="OK" then%>

Por:

<%If foto<>"" then%>

E teste novamente.

[celi 0]

Agora apareceu somente as fotos

[Salgado 4]

<%If foto="OK" then%>
<img src="<%=nt1("foto")%>" alt="<%=Topico%>" width="215" height="176" border="0">
<%End If%>
<span style="font-size:15pt;"><a href="ver.asp?id=<%=nt1("id")%>"><%=Topico%></a>

[celi 0]

contornou aparecer somente texto das notícias

[celi 0]

agora consegui do joito que você explicou <%If foto<>"" then%> o problema é que meu servidor não aceita deste jeito coloquei em minha outra hospedagem e deu certo muito obrigado!!!

[xanburzum 169]

ok, beleza....