Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

W. Sales

exibindo noticias do banco sem precisar clicar em link

Recommended Posts

Ai galera, mais umavez venho aqui aperria, seguinte:

Pequei o código de noticias do Cido Silva "Muito bom por Sinal", e estava querendo fazer com que ele exibisse noticias completa numa pagina sem precisar de clicar no link dos titulos.

tipo assim a pessoa clicaria item do menu do site, (exemplo, informativo) e abriria a pagina já com a materia completa sem precisar clica no titulo para ler o conteúdo.

 

segue abaixo o código se alguem puder me dá essa ajuda ficaria grato

 

 

 

 

<table cellpadding="0" cellspacing="0">
<tr>
<td><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
				Topico = nt1("Topico")			
				Resumo = nt1("Resumo")
				Classe1 = nt1("Classe1")
				Classe = nt1("Classe")
				Horas = nt1("Horas")
				id = nt1("id")
				IF Contar > 0 Then
					exit do
				end if
				if Classe = "Ultimos-eventos" Then
				%>
				</span></font>

<table  border="0" align="left" cellpadding="0" cellspacing="0" height="158" width="437" bgcolor="#CEE3F3">
<tr> 
<td width="220">
<a href='Mostra.asp?Noticias=<%=nt1("id")%>&Classe=<%=nt1("classe")%>' target='_parent'><font face="Tahoma,Arial"><img src="<%=nt1("foto")%>"  border="3" style="border: #1E7BEF Solid 5px;"></font></a></td><td> </td><td valign="top" width="250">

<table width="230" cellpadding="0" cellspacing="0">
<tr>
	<td valign="top"><img src="img/pt.gif" width="1" height="13" border="0"><div class="chamadas-principal"><h3 class="titulo2"><%Response.Write Topico%></h3></div>
<div align="justify"><a href="Mostra.asp?Noticias=<%Response.Write id%>&Classe=<%Response.Write Classe%>" target='_parent'><span class="titulo13"><%Response.Write Resumo%>

				   
</a><span class="titulo13"><%
					Contar = Contar + 1
				end if
				nt1.Movenext
			Loop
						%></span></font></td>
</tr>
</table>
</td>
</tr>
</table>
				   
<span style="font-size:10pt;"> </span></td>

</tr>
</table>

Compartilhar este post


Link para o post
Compartilhar em outros sites

esta gerando algum erro ???

ja tentou usar o evento OnClik, lembrando que você pode

dsiponibilizar a área clicavel...

Compartilhar este post


Link para o post
Compartilhar em outros sites

olha o código acima esta ok, mas ele funciona como um sistema de notcias apessoa tem que clicar no titulo para ver a materia completa.

mas eu queria fazer com que essa pagina exibisse a noticia completa. sem a pessar ter que clicar em titulo.

 

seria tipo um blog, qundo eu mandesse a noticia ela seria exibida toda nessa pagina.

Compartilhar este post


Link para o post
Compartilhar em outros sites

voce copiou este codigo de algum lugar?

 

precisa tentar entender o mesmo

 

a alteração que quer é simples so que nao sei se adianta muito alguem alterar e voce trocar o codigo sem nem entender

Compartilhar este post


Link para o post
Compartilhar em outros sites

trenho um exemplo de blog muito bom para fins didáticos, se kiser me manda um MP, ótimo para estudo

Compartilhar este post


Link para o post
Compartilhar em outros sites

ok, valeu ajuda de vcs, é que eu já tenho esse sistema de noticias (do cido silva) implantado no site, e queria apenas mudar a apresentação dele, fiz assim mas não deu certo.

se alguem puder dizer onde to errando eu ia aprender.

 

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

<html>
<head>
	<title>Untitled</title>
</head>
<%
			Set nt1 = Server.CreateObject("ADODB.Recordset")
			nt1.Open "SELECT * from noticias order by id desc", DB
			Contar = 0
			Do while not nt1.Eof
				Topico = nt1("Topico")			
				Resumo = nt1("Resumo")
				Noticia = Rs("Noticia")				
				Classe1 = nt1("Classe1")
				Classe = nt1("Classe")
				Horas = nt1("Horas")
				id = nt1("id")
				IF Contar > 0 Then
					exit do
				end if
				if Classe = "Ultimos-eventos" Then
				%>
<body>


<table  cellpadding="3" cellspacing="3" bgcolor="white">
<tr>
	<td><table cellpadding="0" cellspacing="0" width="768" align="center">
	<tr>
		<td width="5" height="147" valign="top" rowspan="6">			
		</td>
		<td width="770"><p align="left"><font face="verndana,arial, tahoma" color="black"><b><span style="font-size:10pt;"><%Response.Write Topico%></span></b></font>
<hr size="1" width="750" color="silver">
		</td>
	</tr>
	  <tr>
		<td width="7780"><div align="justify"><font face="Arial" size="2" color="black"><img src="<%Response.Write Foto1%>" align="right" border="0" width="1" height="1"> <%Response.Write Noticia%></font></p>

												</div>
		</td>
	</tr>
  
</table></td>
</tr>
</table>


</body>
</html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

gerou algum erro ????

Compartilhar este post


Link para o post
Compartilhar em outros sites

Oi, acho que não me expressei bem seguinte:

 

Peguei o código do cido silva que é massa, mas ele funciona assim:

 

Quando é criado uma material ele gera um titulo e para a pessoa ler o conteudo da materia, a pessoa tem que clicar no link do menu. Eu queria saber se tem como fazer para que a pessoa não precise clicar no titulo para ler a noticias completa.

 

Tipo assim a noticia seria exibida já na pagina sem precisar que click no titulo para ler o restante, seria feito um blog. Mas não to querendo blog apenas ver se consigo deixar o sistema de noticias assim.

 

Pq, ficando assim iria colocar uma noticia por dia inteira na frente do site sem precisar de clicar no titulo para chamar

Compartilhar este post


Link para o post
Compartilhar em outros sites

Se entendi bem, tente o seguinte:

 

1. insira 1 novo código asp c/ a consulta ao banco:

ex:

 

"SELECT autor, titulo, noticia, dia FROM (TABELA)
ORDER BY Dia DESC"
(neste caso, estou ordenando pela noticia mais recente, ok?)

 

e d 1 response write p/ exibir esses campos:

<%=(Recordset1.Fields.Item("titulo").Value)%> - <%=(Recordset1.Fields.Item("autor").Value)%> - <%=(Recordset1.Fields.Item("noticia").Value)%> - <%=(Recordset1.Fields.Item("dia").Value)%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.