[Resolvido] exibir noticia com foto e sem foto

celi · Junho 7, 2010

Boa noite na pagina que exibo minhas notícias exibo tbm a foto na pagina ler.asp, mas se for exibir uma matéria sem foto tenho q exibir em most.asp. Isso porque na pagina ler.asp já tenho o código que busca a imagem inserida na pagina, é possível unificar estas paginas em uma só? Outra coisa na index.asp eu posso tbm exibir em um só Recordset tanto noticia com foto quanto sem foto sem usar include?

Patrique · Junho 7, 2010

Neste caso

Boa noite na pagina que exibo minhas notícias exibo tbm a foto na pagina ler.asp, mas se for exibir uma matéria sem foto tenho q exibir em most.asp. Isso porque na pagina ler.asp já tenho o código que busca a imagem inserida na pagina, é possível unificar estas paginas em uma só?

Sim possível unificar sim, para isso você poderá utilizar querystring, mais teria que ver melhor para se ter uma melhor idéia do que seria mais viável.

Neste caso

Outra coisa na index.asp eu posso tbm exibir em um só Recordset tanto noticia com foto quanto sem foto sem usar include?

Sim é possível neste caso seria correto utilizar verificação por case ou if.

Wolney · Junho 7, 2010

Olá,

Poderia postar o código ou uma parte dele para análise e indicação da melhor opção para a solução do seu caso?

Abraço!

xanburzum · Junho 7, 2010

melhor coisa é fazer um If para verificar se existe a foto, caso não exista você pode exibir uma imagem padrão.

celi · Junho 7, 2010

Segue o meu código: ver.asp

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="94%" border="1">
  <tr> 
    <td width="3%"><strong><font face="Arial" color="000000"><span style="font-size:10pt;"><em><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"><span style="font-size:9pt;"> 
      <%Response.Write Titulo%>
      </span></font></em></span></font></strong></td>
    <td width="97%"> </td>
  </tr>
  <tr> 
    <td><font face="Arial" color="000000"><strong><span style="font-size:7pt;"><b><font color="#999999</b></span></strong></font><font face="Arial" color="#999999"><span style="font-size:12pt;"> 
      </span></font></td>
    <td><SPAN class=titulo_destaque><IMG 
            src="<%Response.Write Imagem%>" width="164" height="160" align=left 
            class=borda-foto-destaque></SPAN><font color="#2D2D2D" size="2" face="Arial" size: 13pt; ="2"><%=replace(rs("news"),VBCRLF, "<p>")%> 
      </font></td>
  </tr>
</table>

index.asp

<!-- #include file="config/config.asp" --><%session.LCID=1046%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>

<title>Notícias</title>
</head>

<body bgcolor="white" text="black" link="blue" vlink="purple" alink="red">
<font face="Tahoma"><span style="font-size:10pt;"> 
<%
            Set nt1 = Server.CreateObject("ADODB.Recordset")
			nt1.Open "SELECT * from noticias order by id desc", DB
			Contar = 0
			Do while not nt1.Eof
				Titulo = nt1("Titulo")
				Categoria = nt1("Categoria")
				Hora = nt1("Hora")
                                               News = nt1("News")
				ID = nt1("ID")
				IF Contar > 3 Then
					exit do
				end if
                if Categoria = "News" Then
				%>
</span></font><font face="Arial" color="#666666"><strong><span style="font-size:10pt;"></span><span style="font-size:13pt;"><a href="ver.asp?id=<%=nt1("ID")%>"><font face="Tahoma,Arial"><span style="font-size:10pt;"> 
<%Response.Write Titulo%>
</span></font></a></span></strong></font><font face="Tahoma,Arial"><span style="font-size:17pt;"><a href="%3Ca%20href=%22ver.asp?id=<%=nt1("ID")%>%22%3E"><img src="<%=nt1("imagem")%>" width="32" height="33" border="0"></a></span></font><span style="font-size:13pt;"><font face="Tahoma,Arial"><span style="font-size:8pt;"> <font color="#999999"> <a href="ver.asp?ID=<%=nt1("ID")%>"> 
<%Response.Write News%>
<font color="#999999"><font face="Tahoma"><span style="font-size:13pt;"> 
<%
					Contar = Contar + 1
				end if
				nt1.Movenext
			Loop
						%>
</span></font></font><font face="Tahoma"><span style="font-size:13pt;"> </span></font> 
</body>

</html>

mas se não existir a foto o sistema não poderia pegar somente o texto e exibir? Sem ter que exibir uma imagem padrão. Eu queria fazer tipo o G1 da globo numa mesme coluna ele exibe tanto notica com foto quanto sem foto.

xanburzum · Junho 7, 2010

pode também, tudo dentro do If, se existir imagem exibe, senão exibe apenas a noticia

celi · Junho 7, 2010

isso que eu preciso, mas como faço?

xanburzum · Junho 7, 2010

faz uma condicional normal, ou seja , um IF

caso não saiba, suguro que acesse um dos tópicos, ensinando

a montar o laço, existe um tópico fixo, como um tutirial

seria assim:

If imagem="OK" then

'aki você exibe o código com imagem, com a tag IMG SRC

else

'aki você exibe o HTML da noticia sem a imagem

end If

celi · Junho 8, 2010

seria dese jeito

<%

If imagem="OK" then

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

else

<%Response.Write Titulo%>

end If

%>

?

xanburzum · Junho 8, 2010

isso, basicamente assim...

celi · Junho 21, 2010

Deu um erro: Microsoft VBScript compilation error '800a0400'

Expected statement

/noticias/ne.asp, line 40

<img src="<%=nt1("imagem")

^

Fiz da seguinte forma:

<!-- #include file="config.asp" --><%session.LCID=1046%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>

<title>Notícias</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="white" text="black" link="blue" vlink="purple" alink="red" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="40%" height="0" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="95%"><font face="Tahoma"><span style="font-size:10pt;">
      <%
            Set nt1 = Server.CreateObject("ADODB.Recordset")
			nt1.Open "SELECT * from noticias order by id desc", DB
			Contar = 1
			Do while not nt1.Eof
				Titulo = nt1("Titulo")
				Categoria = nt1("Categoria")
				Categorias = nt1("Categorias")
				Hora = nt1("Hora")
				id = nt1("ID")
				IF Contar > 1 Then
					exit do
				end if
                if Classe1 = "Destaque" Then
				%>
      </span></font></td>
    <td width="5%"> </td>
  </tr>
  <tr> 
    <td valign="top"> 
      <table width="100%" height="60" border="0" align="left" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="7%" valign="top"> <div align="center"> 
              <p align="left"><span style="font-size:13pt;"><a href="ver.asp?id=<%=nt1("ID")%>"><font face="Tahoma,Arial"><span style="font-size:10pt;"> 
                </span></font></a><a href="ver.asp?id=<%=nt1("ID")%>"><font face="Tahoma,Arial"><span style="font-size:10pt;"> 
                </span></font></a><a href="ver.asp?id=<%=nt1("ID")%>"><font face="Tahoma,Arial"><span style="font-size:10pt;"> 
                </span></font></a><% 
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
%>
</span> </div></td>
          <td width="93%" valign="middle"><span style="font-size:10pt;"><a href="ver.asp?id=<%=nt1("ID")%>"><font color="#003366" face="Tahoma,Arial"><span style="font-size:10pt;"> 
            <%Response.Write Topico%>
            </span></font></a></span></td>
        </tr>
      </table>
      <p align="left"><span style="font-size:10pt;"><a href="ver.asp?id=<%=nt1("ID")%>"><font face="Tahoma,Arial"><span style="font-size:10pt;"> 
        </span></font></a><font face="Tahoma"><span style="font-size:13pt;"> </span></font></span></td>
    <td><span style="font-size:13pt;"><a href="ver.asp?id=<%=nt1("ID")%>"><font face="Tahoma,Arial"><span style="font-size:10pt;"> 
      </span></font></a><font face="Tahoma"><span style="font-size:13pt;"> </span></font></span></td>
  </tr>
  <tr>
    <td><div align="justify"><span style="font-size:13pt;"><font face="Tahoma"><span style="font-size:13pt;"> 
        <font face="Tahoma"><span style="font-size:13pt;"></span></font> 
        <%
					Contar = Contar + 1
				end if
				nt1.Movenext
			Loop
						%>
        <font color="#999999"> </font> </span></font></span></div></td>
    <td> </td>
  </tr>
</table>
<p> </p>
</body>

</html>

xanburzum · Junho 21, 2010

isso é erro na aspas duplas ""

Mário Monteiro · Junho 21, 2010

post qual a linha indicada no erro

celi · Junho 21, 2010

Microsoft VBScript compilation error '800a0400'

Expected statement

/2010/noticias/ne.asp, line 40

<img src="<%=nt1("foto")

^

Mário Monteiro · Junho 22, 2010

O que quero saber é o que tem exatamente nesta linha do erro, ou é so isso mesmo

<img src="<%=nt1("foto")

??

celi · Junho 22, 2010

Olha ae Mário eu fiz deste jeito ae aparece o erro.

<!-- #include file="admin/config.asp" --><%session.LCID=1046%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

<title>Notícias</title>

<tr>

<%

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")

Classe1 = nt1("Classe1")

Classe = nt1("Classe")

Hora = nt1("Hora")

id = nt1("id")

IF Contar > 1 Then

exit do

end if

if Classe1 = "Noticia" Then

%>

</td>

</tr>

<tr>

<tr>

</a><a href="ver.asp?id=<%=nt1("id")%>">

</a><%

If imagem="OK" then

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

else

<%Response.Write Topico%>

end If

%>

</div></td>

<%Response.Write Topico%>

</a></td>

</tr>

</table>

</a> </td>

</a> </td>

</tr>

<tr>

<%

Contar = Contar + 1

end if

nt1.Movenext

Loop

%>

</div></td>

</tr>

</table>

</body>

</html>

xanburzum · Junho 22, 2010

qual o erro apresentado atualmente

celi · Junho 22, 2010

você falow que seria aspas "" duplas, mas num achei aspas duplas no código o erro é o mesmo veja: Microsoft VBScript compilation error '800a0400'

Expected statement

/2010/noticias/ne.asp, line 40

<img src="<%=nt1("foto")

^

xanburzum · Junho 22, 2010

tenta assim:

e verifique se o caminho da imagem esta correto...

celi · Junho 22, 2010

continua com o mesmo erro Microsoft VBScript compilation error '800a0400'

Expected statement

/2010/noticias/ne.asp, line 40

<img src="<%=nt1("foto")

^

com relação ao caminho da imagem está correto eu tinha alterado.

Arquivado

[Resolvido] exibir noticia com foto e sem foto

Recommended Posts

celi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Wolney 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

celi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

celi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

celi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

celi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

celi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

celi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

celi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

celi 0