Ir para conteúdo

POWERED BY:

Arquivado

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

Karina Myuki

Noticia com hora marcada

Por , em ASP Clássico

Recommended Posts

Karina Myuki    0

Karina Myuki
Postado

Olá amigos , sou novissima aki , estou precisando de uma ajuda urgente ... estou montando um site de noticias e gostaria que as noticias entrassem com hora marcada, por exemplo quero q uma noticia entre as 15:00 e outra as 15:15...alguem poderia me ajudar?...estou usando um banco de dados access e minhas paginas sao em asp, se possivel gostaria de saber tb se meu campo hora (no BD) deve ser do tipo texto, memorando ou data/hora...nao sei se a duvida é boba, mas é q comecei a prgramar em asp agora...por favor me ajudem !!!!!

 

 

bjus a todos

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

fa assim, no código você coloca um IF normal,

que verifica se a hora for igual a variavel

Session("hora_agendada"), onde essa variavel , será

a hora em que irá disparar a notícia, que você faz um SELECT no bd,

e verfica com seu host, pois tem alguns que dão suporte a tarefas agendadas,

dae você você executar determinando script.

 

 

If Session("hora_agendada") = "" Then
Session("hora_agendada") = Time()
End If

sql = "SELECT * FROM noticias WHERE hora_agendada = '" & Session("hora_agendada") & "' ORDER BY HORA DESC"

Session("hora_agendada") = Time()

no nosso fórum, meso existe a possibilidade de

Horário para abrir o tópico fornecendo Mês/Dia/Ano Hora:Minuto e horário para fechar o tópico

 

olha esta function que pode até ajudar você a lembrar que existe

um evento a ser feito.

 

<%
Function Evento(escolhedata, datai, dataf)
if ((DateDiff("s", escolhedata, dataf)>0) OR (DateDiff("s", escolhedata, dataf)=0)) AND ((DateDiff("s", escolhedata, datai)<0) OR (DateDiff("s", escolhedata, datai)=0)) Then
' sim
Response.Write 1
Else
' Não
Response.Write 0
End If
End Function
%>

<% = Evento("21/12/2008 1:27:33 PM", "24/12/2008 12:27:34 AM", "22/24/2002 1:27:34 PM") %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você pode criar um campo hora_marcada e data_marcada (pois senão sempre que virar o dia, a notícia sumirá) na tabela e informar a partir de que horas a notícia deve ser exibida.

 

O campo deve ser data/hora para você fazer a comparação.

 

Após criar o campo, você deve criar uma consulta SQL e na própria consulta fazer essa comparação de data e hora.

 

Qualquer dúvida poste aqui.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Karina Myuki    0

Karina Myuki
Postado

Brigadinha meus queridos, vou testar aki qualquer coisa falo com vcs...bjinhos

 

Queridos fiz o q vcs me recomendaram mas esta aparecendo o seguinte erro:

 

ADODB.Recordset error '800a0bcd'

 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

 

/odiario_new/home.asp, line 129

 

Meu codigo é este abaixo e a linha 129 é essa em negrito:

 

<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open Application("StringConexaoODBC")


Set Destaque = Server.CreateObject("ADODB.Recordset")
Destaque.Open "SELECT TOP 2 Noticias.*,BancoImagens.* FROM Noticias,BancoImagens WHERE DestaqueNoticia=1 AND BancoImagens.IdImagem=Noticias.IdImagem  ORDER BY IdNoticia DESC", Conexao

If Session("hora") = "" Then
Session("hora") = Time()
End If

Set Destaque2 = Server.CreateObject("ADODB.Recordset")
Destaque2.Open "SELECT TOP 2 Noticias.*,BancoImagens.* FROM Noticias,BancoImagens WHERE DestaqueNoticia <> 1 AND hora >= '" & Session("hora") & "' AND hora <= '" & Session("hora") & "' ORDER BY hora DESC", Conexao

Session("hora") = Time()

Set EditoriaPrincipal = Server.CreateObject("ADODB.Recordset")
EditoriaPrincipal.Open "SELECT * FROM Editorias WHERE NomeEditoria='Teresópolis'", Conexao

	Set Noticias = Server.CreateObject("ADODB.Recordset")
	Noticias.Open "SELECT TOP 04 IdNoticia,TituloNoticia, sobtitulonoticia FROM Noticias WHERE DestaqueNoticia <> 1 AND IdEditoria = "& EditoriaPrincipal("IdEditoria") &" AND IdCaderno=1 ORDER BY IdNoticia DESC", Conexao

EditoriaPrincipal.Close
Set EditoriaPrincipal = Nothing

Set Editorias = Server.CreateObject("ADODB.Recordset")
Editorias.Open "SELECT * FROM Editorias WHERE NomeEditoria <> 'Teresópolis' ORDER BY NomeEditoria", Conexao
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="estilo.css" rel="stylesheet" type="text/css">
<link href="estilo_odiario.css" rel="stylesheet" type="text/css">
<title>O Diário de Teresópolis</title>

<style type="text/css">
<!--
.background {
 background-repeat:no-repeat;
 }
body {
	background-color: #333333;
}
-->
</style></head>

<body>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
	<th width="282" height="102" valign="middle" scope="col"><img src="imagens/logo.jpg" width="261" height="74" /></th>
	<th width="488" scope="col"> </th>
  </tr>
  <tr>
	<td height="20" colspan="2" align="center"><table width="100%" height="20" border="0" cellpadding="0" cellspacing="0" background="imagens/bg_verm_01.png">
	  <tr>
		<td width="544" scope="col"> </td>
		<td width="4" scope="col"> </td>
		<form action="busca.asp" method="post" name="form1" class="menu" id="form2"><td width="237" scope="col">
			<span class="busca">BUSCA:</span>
			<input name="textfield" type="text" class="data" id="textfield" />
			<input name="button2" type="submit" class="botao_busca" id="button" value="OK" />
	   </td> </form>
	  </tr>
	</table></td>
  </tr>
  <tr>
	<td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
	  <tr>
		<th width="494" align="left" scope="col"><span class="links"><img src="imagens/spacer.gif" width="10" height="10" /><a href="home.asp" class="links">HOME</a> <span class="style2">|</span> <a href="parceiros.asp" class="links">PARCEIROS</a> |<a href="radios.asp" class="links"> RADIOS ONLINE</a> |<a href="tvonline.asp" class="links">TV ONLINE |BLOGS</a> | <a href="links.asp" class="links">LINKS</a> |<a href="faleconosco.asp" class="links">FALE CONOSCO</a></span></th>
		<th width="298" align="right" scope="col"><span class="data">Teresópolis, <%= Data%><img src="imagens/spacer.gif" width="10" height="10" /></span></th>
		</tr>
	</table></td>
  </tr>
  <tr>
	<td colspan="2"> </td>
  </tr>
  <tr>
	<td  colspan="2" valign="top"><table width="770" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
	  <tr>
		<th width="10" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></th>
		<td valign="top" scope="col"><!--#include file="menu.html" --></td>
		<th width="10" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></th>
		<th valign="top" scope="col"><table width="450" border="0" cellspacing="0" cellpadding="0">
		  <tr>
			<th width="235" rowspan="2" align="left" valign="top" scope="col"><img src="/fotos/<%= Destaque("Imagem") %>" width="235" height="177" border="1" />
							  <span class="links">
							  <% If Destaque("CreditoImagem") <> "" Then %>
							  <br />
				Foto: <%= Destaque("CreditoImagem") %>
				<% End If %>
				</span></th>
			<th width="10" rowspan="2" align="left" valign="top" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></th>
			<th width="205" align="left" valign="top" class="titulo" scope="col"><span class="sobtitulo">Sob Título</span><br />
			  <a href="leitura_noticias.asp?IdNoticia=<%= Destaque("IdNoticia") %>"  class="titulo2"><%= Destaque("TituloNoticia") %></a><br />
			  <a href="leitura_noticias.asp?IdNoticia=<%= Destaque("IdNoticia") %>" class="subtitulo"><%= Destaque("SubTituloNoticia") %></a></th>
		  </tr>
		  <tr>
			<th height="18" align="left" valign="top" class="texto" scope="col"><div align="justify"><a href="leitura_noticias.asp?IdNoticia=<%= Destaque("IdNoticia") %>"  class="mssansserif1"><%=left(Destaque("ResumoDestaque"),378)%><% if len(Destaque("ResumoDestaque")) > 378 then %>...Leia mais<% end if %></a></div></th>
		  </tr>
		</table>
		  <img src="imagens/linha.png" width="450" height="9" /><br />
		  <table width="450" border="0" cellspacing="0" cellpadding="0">
			<tr>
			  <th width="225" height="197" align="left" valign="top" scope="col"><% Noticias.MoveFirst : While Not Noticias.EOF %>
<table width="254" border="0" cellspacing="0" cellpadding="0">
				<tr>
				  <td width="244" align="left" class="titulo" scope="col"><span class="sobtitulo">Sob Título</span><br />				  <a href="leitura_noticias.asp?IdNoticia=<%= Noticias("IdNoticia") %>" class="titulo"><span class="titulo"><%= Noticias("TituloNoticia") %></span></a></td>
				  <td width="10" rowspan="7" align="left" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></td>
				</tr>
				<tr>
				  <td align="left"><img src="imagens/barralnot.jpg" width="234" height="10" /></td>
				  </tr>
				<tr>
				  
				  </tr>
			  </table>
<% Noticias.MoveNext : Wend %>

<a href="busca.asp?textfield=a" class="links"><strong>Ver mais notícias » </strong></a></th>
			  [color="#FF0000"]<th width="225" valign="top" scope="col"><% Destaque2.MoveFirst : While Not Destaque2.EOF %>[/color]
				<table width="207" height="88" border="0" cellpadding="0" cellspacing="0">
				<tr>
				  <th width="100" rowspan="2" align="right" scope="col"><img src="/fotos/<%= Destaque2("Imagem") %>" width="100" height="75" border="1" /></th>
				  <th width="10" rowspan="2" align="right" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></th>
				  <th width="116" align="left" scope="col"><a href="leitura_noticias.asp?IdNoticia=<%= Destaque("IdNoticia") %>" class="titulo2"><%= Destaque2("TituloNoticia") %></a></th>
				</tr>
				<tr>
				  <th height="47" align="left" class="texto" scope="col"><a href="leitura_noticias.asp?IdNoticia=<%= Destaque2("IdNoticia") %>"  class="mssansserif1"><%=left(Destaque2("TextoNoticia"),64)%>
						<% if len(Destaque2("TextoNoticia")) > 64 then %>
						...Leia mais
						<% end if %>
				  </a></th>
				</tr>
				<tr>
				  <td height="10" colspan="3" align="left"><img src="imagens/barralnot.jpg" width="207" height="10" /></td>
				</tr>
			  </table>
				<% Destaque2.MoveNext : Wend %></th>
			</tr>
		  </table>
		  <table width="100%" border="0" cellspacing="0" cellpadding="0">
			<tr>
			  <th height="9" colspan="3" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></th>
			  </tr>
			<tr>
			  <td width="248" align="center" background="imagens/bg_verm_02.png" class="titulo_barras" scope="col">Agência de Notícias</td>
			  </tr>
			<tr>
			  <td align="left"><span class="texto">14:30</span> - <span class="titulo2">Titulo titulo titulo titulo</span></td>
			  </tr>
			<tr>
			  <td align="left"><span class="texto">14:45 -</span> <span class="titulo2">Titulo titulo titulo titulo</span></td>
			</tr>
			<tr>
			  <td align="left" valign="top" class="texto"><p>15:15 - <span class="titulo2">Titulo titulo titulo titulo </span></p>
				</td>
			</tr>
			<tr>
			  <td height="2" align="left" valign="top" class="texto"></td>
			</tr>
		  </table>
		  <img src="imagens/spacer.gif" width="10" height="10" />
		  
		 </th>
		 
		<th width="10" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></th>
		<th width="140" valign="top" scope="col"><!--#include file="col_direita.asp" --></th>
		<th width="10" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></th>
	  </tr>
	  <tr>
		<th height="10" colspan="7" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></th>
		</tr>
	  <tr>
		<th height="19" colspan="7" scope="col"><img src="imagens/rodape.jpg" width="788" height="20" /></th>
	  </tr>
	</table></td>
  </tr>
</table>
</body>
</html>
<%
Editorias.Close
Set Editorias = Nothing

Noticias.Close
Set Noticias = Nothing

Destaque.Close
Set Destaque = Nothing

Destaque2.Close
Set Destaque2 = Nothing

Conexao.Close
Set Conexao = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Sempre que você abrir uma recordset, você tem que verificar se é inicio ou fim de arquivo antes de tentar acessar algum dado.

 

Ex.

EditoriaPrincipal.Open sql
If Not EditoriaPrincipal.Eof Then
	 'Aqui executa o código
Else
	 Response.Write "Nenhum registro encontrado."
End If
EditoriaPrincipal.Close
Set EditoriaPrincipal = Nothing

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você tem 4 recordset aberta.

 

Cada recordset deve ser verificada se foi encontrada algum registro utilizando IF, conforme exemplifiquei logo acima.

 

Cada bloco desse que você utiliza acima, está abrindo uma recordset.

Set Destaque = Server.CreateObject("ADODB.Recordset")
Destaque.Open "SELECT TOP 2 Noticias.*,BancoImagens.* FROM Noticias,BancoImagens WHERE DestaqueNoticia=1 AND BancoImagens.IdImagem=Noticias.IdImagem  ORDER BY IdNoticia DESC", Conexao
Então sempre abaixo de cada um você tem que fazer a verificação.

 

Qualquer dúvida poste aqui.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Karina Myuki    0

Karina Myuki
Postado

Meus queridos agora esta dando erro nesta expressão alguem poderia me dizer o q esta errado nela?

 

Set Destaque2 = Server.CreateObject("ADODB.Recordset")
Destaque2.Open "SELECT TOP 2 hora.* FROM hora WHERE  hora.hora >= '" & Session("hora") & "' AND hora.hora <= '" & Session("hora") & "' ORDER BY hora DESC", Conexao

 

nao estou conseguindo achar o erro.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

tenta assim:

 

"SELECT TOP 2 * FROM hora WHERE hora >= '" & Session("hora") & "' AND hora <= '" & Session("hora") & "' ORDER BY hora DESC"

e verifica o número do erro, e TOP é usado para access , caso seja MySQL use o LIMIT

Compartilhar este post

Link para o post
Compartilhar em outros sites

Karina Myuki    0

Karina Myuki
Postado

Xanburzum fiz do jeito q você falou , meu codigo ficou assim:

If Session("hora") = "" Then
Session("hora") = Time()
End If

Set Destaque2 = Server.CreateObject("ADODB.Recordset")
Destaque2.Open "SELECT TOP 2 Noticias.*,BancoImagens.* FROM Noticias,BancoImagens WHERE DestaqueNoticia <> 1 AND hora >= '" & Session("hora") & "' AND hora <= '" & Session("hora") & "' ORDER BY hora DESC", Conexao

Session("hora") = Time()

mas continua dando erro agora ta aparecendo o erro é esse:

 

Microsoft JET Database Engine error '80040e07'

 

Data type mismatch in criteria expression.

 

/odiario_new/home.asp, line 21

 

o q será q esta havendo, meu campo hora no bd é do tipo data e hora, se precisar posto o codigo todo. obrigada desde ja.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Karina Myuki    0

Karina Myuki
Postado

rsrsrsrs...Ted meu nome nao é wesley não você deve ter visto meu email lordwesley@...é q eu jogo RPG e meus personagens são sempre masculinos e um deles é um lord chamado wesley...rsrsrsr meu nome é Karina, mas ta perdoado...vamos ao q interessa , fiz o q você falou e ta dano este erro.

 

Microsoft JET Database Engine error '80040e14' 

Syntax error (missing operator) in query expression 'Noticias.DestaqueNoticia <> 1 AND Noticias.hora >= 09:51:54 AND Noticias.hora <= 09:51:54'. 

/odiario_new/home.asp, line 21

meu codigo ficou assim

 

Set Destaque2 = Server.CreateObject("ADODB.Recordset")
Destaque2.Open "SELECT TOP 2 Noticias.*,BancoImagens.* FROM Noticias,BancoImagens WHERE Noticias.DestaqueNoticia <> 1 AND Noticias.hora >= " & Session("hora") & " AND Noticias.hora <= " & Session("hora") & " ORDER BY hora DESC", Conexao

Qual será o erro nessa sintaxe, nao to achando?...conto com vcs

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Invalid column name 'sua_coluna'. A coluna a qual você se refere na Base de Dados não foi encontrada. Verifique a ortografia e se o nbome da coluna esta correta.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Karina Myuki    0

Karina Myuki
Postado

xanburzum, verifiquei os nome da coluna e ta tudo certinho...talvez eu esteja esquecendo algo na sintaxe, pq esse erro abaixo é q esta ocorrendo:

 

Microsoft JET Database Engine error '80040e14' 

Syntax error (missing operator) in query expression 'Noticias.DestaqueNoticia <> 1 AND Noticias.hora >= 09:51:54 AND Noticias.hora <= 09:51:54'. 

/odiario_new/home.asp, line 21

o codigo completo com algumas modificaçoes q eu fiz pra testar se funciona ficou assim:

<%
'ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\odiariodeteresopolis\dados\jornalteste.mdb"
'Set Conexao = Server.CreateObject("ADODB.Connection")
'Conexao.Open ConnString
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open Application("StringConexaoODBC")


Set Destaque = Server.CreateObject("ADODB.Recordset")
Destaque.Open "SELECT TOP 2 Noticias.*,BancoImagens.* FROM Noticias,BancoImagens WHERE DestaqueNoticia=1 AND BancoImagens.IdImagem=Noticias.IdImagem  ORDER BY IdNoticia DESC", Conexao

If Session("hora") = "" Then
Session("hora") = Time()
End If

Set Destaque2 = Server.CreateObject("ADODB.Recordset")
Destaque2.Open "SELECT TOP 2 Noticias.*,BancoImagens.* FROM Noticias,BancoImagens WHERE Noticias.DestaqueNoticia <> 1 AND Noticias.hora >= " & Session("hora") & " AND Noticias.hora <= " & Session("hora") & " ORDER BY hora DESC", Conexao

Session("hora") = Time()

Set EditoriaPrincipal = Server.CreateObject("ADODB.Recordset")
EditoriaPrincipal.Open "SELECT * FROM Editorias WHERE NomeEditoria='Teresópolis'", Conexao

	Set Noticias = Server.CreateObject("ADODB.Recordset")
	Noticias.Open "SELECT TOP 04 IdNoticia,TituloNoticia, sobtitulonoticia FROM Noticias WHERE DestaqueNoticia <> 1 AND IdEditoria = "& EditoriaPrincipal("IdEditoria") &" AND IdCaderno=1 ORDER BY IdNoticia DESC", Conexao

EditoriaPrincipal.Close
Set EditoriaPrincipal = Nothing

Set Editorias = Server.CreateObject("ADODB.Recordset")
Editorias.Open "SELECT * FROM Editorias WHERE NomeEditoria <> 'Teresópolis' ORDER BY NomeEditoria", Conexao
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="estilo.css" rel="stylesheet" type="text/css">
<link href="estilo_odiario.css" rel="stylesheet" type="text/css">
<title>O Diário de Teresópolis</title>

<style type="text/css">
<!--
.background {
 background-repeat:no-repeat;
 }
body {
	background-color: #333333;
}
-->
</style></head>

<body>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
	<th width="282" height="102" valign="middle" scope="col"><img src="imagens/logo.jpg" width="261" height="74" /></th>
	<th width="488" scope="col"> </th>
  </tr>
  <tr>
	<td height="20" colspan="2" align="center"><table width="100%" height="20" border="0" cellpadding="0" cellspacing="0" background="imagens/bg_verm_01.png">
	  <tr>
		<td width="544" scope="col"> </td>
		<td width="4" scope="col"> </td>
		<form action="busca.asp" method="post" name="form1" class="menu" id="form2"><td width="237" scope="col">
			<span class="busca">BUSCA:</span>
			<input name="textfield" type="text" class="data" id="textfield" />
			<input name="button2" type="submit" class="botao_busca" id="button" value="OK" />
	   </td> </form>
	  </tr>
	</table></td>
  </tr>
  <tr>
	<td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
	  <tr>
		<th width="494" align="left" scope="col"><span class="links"><img src="imagens/spacer.gif" width="10" height="10" /><a href="home.asp" class="links">HOME</a> <span class="style2">|</span> <a href="parceiros.asp" class="links">PARCEIROS</a> |<a href="radios.asp" class="links"> RADIOS ONLINE</a> |<a href="tvonline.asp" class="links">TV ONLINE |BLOGS</a> | <a href="links.asp" class="links">LINKS</a> |<a href="faleconosco.asp" class="links">FALE CONOSCO</a></span></th>
		<th width="298" align="right" scope="col"><span class="data">Teresópolis, <%= Data%><img src="imagens/spacer.gif" width="10" height="10" /></span></th>
		</tr>
	</table></td>
  </tr>
  <tr>
	<td colspan="2"> </td>
  </tr>
  <tr>
	<td  colspan="2" valign="top"><table width="770" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
	  <tr>
		<th width="10" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></th>
		<td valign="top" scope="col"><!--#include file="menu.html" --></td>
		<th width="10" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></th>
		<th valign="top" scope="col"><table width="450" border="0" cellspacing="0" cellpadding="0">
		  <tr>
			<th width="235" rowspan="2" align="left" valign="top" scope="col"><img src="/fotos/<%= Destaque("Imagem") %>" width="235" height="177" border="1" />
							  <span class="links">
							  <% If Destaque("CreditoImagem") <> "" Then %>
							  <br />
				Foto: <%= Destaque("CreditoImagem") %>
				<% End If %>
				</span></th>
			<th width="10" rowspan="2" align="left" valign="top" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></th>
			<th width="205" align="left" valign="top" class="titulo" scope="col"><span class="sobtitulo">Sob Título</span><br />
			  <a href="leitura_noticias.asp?IdNoticia=<%= Destaque("IdNoticia") %>"  class="titulo2"><%= Destaque("TituloNoticia") %></a><br />
			  <a href="leitura_noticias.asp?IdNoticia=<%= Destaque("IdNoticia") %>" class="subtitulo"><%= Destaque("SubTituloNoticia") %></a></th>
		  </tr>
		  <tr>
			<th height="18" align="left" valign="top" class="texto" scope="col"><div align="justify"><a href="leitura_noticias.asp?IdNoticia=<%= Destaque("IdNoticia") %>"  class="mssansserif1"><%=left(Destaque("ResumoDestaque"),378)%><% if len(Destaque("ResumoDestaque")) > 378 then %>...Leia mais<% end if %></a></div></th>
		  </tr>
		</table>
		  <img src="imagens/linha.png" width="450" height="9" /><br />
		  <table width="450" border="0" cellspacing="0" cellpadding="0">
			<tr>
			  <th width="225" height="197" align="left" valign="top" scope="col"><% Noticias.MoveFirst : While Not Noticias.EOF %>
<table width="254" border="0" cellspacing="0" cellpadding="0">
				<tr>
				  <td width="244" align="left" class="titulo" scope="col"><span class="sobtitulo">Sob Título</span><br />				  <a href="leitura_noticias.asp?IdNoticia=<%= Noticias("IdNoticia") %>" class="titulo"><span class="titulo"><%= Noticias("TituloNoticia") %></span></a></td>
				  <td width="10" rowspan="7" align="left" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></td>
				</tr>
				<tr>
				  <td align="left"><img src="imagens/barralnot.jpg" width="234" height="10" /></td>
				  </tr>
				<tr>
				  
				  </tr>
			  </table>
<% Noticias.MoveNext : Wend %>

<a href="busca.asp?textfield=a" class="links"><strong>Ver mais notícias » </strong></a></th>
			  <th width="225" valign="top" scope="col"><% If Not destaque2.Eof Then %>
							<table width="207" height="88" border="0" cellpadding="0" cellspacing="0">
				<tr>
				  <th width="100" rowspan="2" align="right" scope="col"><img src="/fotos/<%= Destaque2("Imagem") %>" width="100" height="75" border="1" /></th>
				  <th width="10" rowspan="2" align="right" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></th>
				  <th width="116" align="left" scope="col"><a href="leitura_noticias.asp?IdNoticia=<%= Destaque2("IdNoticia") %>" class="titulo2"><%= Destaque2("TituloNoticia") %></a></th>
				</tr>
				<tr>
				  <th height="47" align="left" class="texto" scope="col"><a href="leitura_noticias.asp?IdNoticia=<%= Destaque2("IdNoticia") %>"  class="mssansserif1"><%=left(Destaque2("TextoNoticia"),64)%> 
						<% if len(Destaque2("TextoNoticia")) > 64 then %>
						...Leia mais
						<% end if %>
				  </a></th>
				</tr>
				<tr>
				  <td height="10" colspan="3" align="left"><img src="imagens/barralnot.jpg" width="207" height="10" /></td>
				</tr>
			  </table>
			  <%else%>
			  nao tem nenhum registro
				<% End If%></th>
			</tr>
		  </table>
		  <table width="100%" border="0" cellspacing="0" cellpadding="0">
			<tr>
			  <th height="9" colspan="3" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></th>
			  </tr>
			<tr>
			  <td width="248" align="center" background="imagens/bg_verm_02.png" class="titulo_barras" scope="col">Agência de Notícias</td>
			  </tr>
			<tr>
			  <td align="left"><span class="texto">14:30</span> - <span class="titulo2">Titulo titulo titulo titulo</span></td>
			  </tr>
			<tr>
			  <td align="left"><span class="texto">14:45 -</span> <span class="titulo2">Titulo titulo titulo titulo</span></td>
			</tr>
			<tr>
			  <td align="left" valign="top" class="texto"><p>15:15 - <span class="titulo2">Titulo titulo titulo titulo </span></p>
				</td>
			</tr>
			<tr>
			  <td height="2" align="left" valign="top" class="texto"></td>
			</tr>
		  </table>
		  <img src="imagens/spacer.gif" width="10" height="10" />
		  
		 </th>
		 
		<th width="10" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></th>
		<th width="140" valign="top" scope="col"><!--#include file="col_direita.asp" --></th>
		<th width="10" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></th>
	  </tr>
	  <tr>
		<th height="10" colspan="7" scope="col"><img src="imagens/spacer.gif" width="10" height="10" /></th>
		</tr>
	  <tr>
		<th height="19" colspan="7" scope="col"><img src="imagens/rodape.jpg" width="788" height="20" /></th>
	  </tr>
	</table></td>
  </tr>
</table>
</body>
</html>
<%
Editorias.Close
Set Editorias = Nothing

Noticias.Close
Set Noticias = Nothing

Destaque.Close
Set Destaque = Nothing

Destaque2.Close
Set Destaque2 = Nothing

Conexao.Close
Set Conexao = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

verifique os nomes dos campos e o tipo dos mesmos, para ver se nao esta passando um valor numérico em um campo tipo texto

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual o erro atual e em qual linha de codigo esta ocorrendo?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Karina Myuki    0

Karina Myuki
Postado

Olá pessoal, do meio sumida, é que sinceramente nao estou quebrando a cabeça para fazer isso funcionar, ja tentei de tudo e nadinha, usei desta forma e anda da certo, pleeeease!!!! me ajudem

 

 

<% If Destaque("hora") = time() OR Destaque("hora") <= time() Then %><%= Destaque("TituloNoticia") %></a></th>
			  </tr>
			  <tr>
				<td align="left"><a href="leitura_noticias.asp?IdNoticia=<%= Destaque("IdNoticia") %>" class="subtitulo"><%= Destaque("SubTituloNoticia") %></a></td>
			  </tr>
			  <tr>
				<td><div align="justify"><a href="leitura_noticias.asp?IdNoticia=<%= Destaque("IdNoticia") %>"  class="mssansserif1"><%=left(Destaque("ResumoDestaque"),378)%>
					<% if len(Destaque("ResumoDestaque")) > 378 then %>
				  ...Leia mais
				  <% end if %>
				</a><a href="leitura_noticias.asp?IdNoticia=<%= Destaque("IdNoticia") %>"  class="mssansserif1">
				<% else %>
				não há registro
				<% end if %>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito