mudar a cor do texto

[Alessancost 0]

Olá pessoal!

 

Eu tenho um sistema de artigos. Na página principal é exibido os dez últimos artigos com suas respectivas datas. Eu estou querendo que datas dos artigos publicados e exibidos no mesmo dia sejam em vermelho.

 

ex:

Hoje, dia 18

 

01. ASP Download Manager 18/04/05

02. O seguinte código Vbscript lê e copia... 18/04/05

03. Justiça Federal julga ações sobre tarifas... 24/12/05

04. Presidente de comissão de desaparecidos... 20/12/04

05. Advogados de Beira-Mar são presos ao... 21/11/04

 

amanha, dia 19

 

01. ASP Download Manager 18/04/05

02. O seguinte código Vbscript lê e copia... 18/04/05

03. Justiça Federal julga ações sobre tarifas... 24/12/05

04. Presidente de comissão de desaparecidos... 20/12/04

05. Advogados de Beira-Mar são presos ao... 21/11/04

 

Como posso fazer isso?

Obrigado

[Mário Monteiro 179]

publicados e exibidos no mesmo dia ou no dia atual??bem de qualquer forma acho que um IF basico resolve

[Alessancost 0]

No dia atual, mas como faço isso?

[Mário Monteiro 179]

IF data = date() THENpinta de verelhoELSEfica normalEND IF

[Alessancost 0]

:( Eu não estou consequindo

 

Tipo de erro:

Erro de compilação do Microsoft vb script: mostra_artigo2()" style="cursor:e-resize;"><td align="center" width="20%" bgcolor="#FAFAFA" style="cursor:e-resize;" title=" Clique para expandir a tabela " class="fonte03"><% = resumindo(rs("autor"), 9) %></td></a>

[*]          <td class="fonte03" align="center" width="14%"><%= datartigo %></td>

[*]        </tr>

[*]      </table>

[*]      <% rs.Movenext

[*]    wend

[*]    end if %>

[*]</div></div>

[Marcelo Barcellos 0]

Tá faltando alguns "End If"

[dark0 0]

seu erro fala em linha 110eu to vendo 50 linhas no codigo..

[Alessancost 0]

Foi descuido da minha parte

Não tem mais erro... mas a data atual não ta ficando em vermelho

Eu fiz assim

 

data = split(rs("datapost"),"/")

dia = data(0)

mes = data(1)

ano = data(2)

if len(dia) = 1 then

dia = "0" & dia

end if

if len(mes) = 1 then

mes = "0" & mes

end if

if len(ano) = 1 then

mes = "0" & ano

IF data = datapost() THEN

end if

end if

datapost = dia & "/" & mes & "/" & Right(ano, 2) %>

<table width="100%" border="0" cellspacing="0" cellpadding="0" class="Linhafundocinza">

<tr><td class="fonte03" width="66%" height="18"><a href="../blog/popposts.asp?id=<%= RS("id") %>" target="conteudo" onclick="changeTitle('Blog');"> <%= contador %>. <%= resumindo(RS("titpost"), 36)%></a></td>

<a href="java script: mostra_blog2()" style="cursor:e-resize;"><td align="center" width="20%" bgcolor="#FAFAFA" style="cursor:e-resize;" title=" Clique para expandir a tabela " class="fonte03"><%= resumindo(RS("autorpost"), 9) %></td></a>

<td class="fonte03" align="center" width="14%"><%= datapost %></td>

[Alessancost 0]

seu erro fala em linha 110eu to vendo 50 linhas no codigo..

dark0, pq só coloquei parte do código...

[Mário Monteiro 179]

cara não tem nada no if...mas deixa quietoprimeiro response o que é pra ficar vermelho?? ou não??

[dark0 0]

isso me explica aeonde deve ficar em vermelhotem algum if que faz essa parte?

[Alessancost 0]

NO 10 MAIS...Aparece os títulos dos artigos e a data da postagem.As datas estão em preto.Eu posto um artigo hoje, e quero que a data fique em vermelho, mas amanha ela se torne preto como as outras.Assim o usuária facilmente identificara os artigos recentes.E isso ai... deu para pegar? ^_^

[dark0 0]

mas a parte que deveria fazer isso é aquela no seu if vazio?

[Alessancost 0]

Percebi... mas não sei como faço isso

[Mário Monteiro 179]

isso aqui

 

ASP

[*]data = split(rs("datapost"),"/")

[*]dia = data(0)

[*]mes = data(1)

[*]ano = data(2)

[*]if len(dia) = 1 then

[*]dia = "0" & dia

[*]end if

[*]if len(mes) = 1 then

[*]mes = "0" & mes

[*]end if

[*]if len(ano) = 1 then

[*]mes = "0" & ano

[*]IF data = datapost() THEN

[*]end if

[*]end if

[*]datapost = dia & "/" & mes & "/" & Right(ano, 2)

 

muda pra

 

ASP

[*]data = rs("datapost")

[*]

[*]IF CDATE(data) = DATE() THEN

[*]datapost = "<font color='red'>" & data & "</font>"

[*]ELSE

[*]datapost = data

[*]END IF

 

ai lá em baixo acho que vai funfar

 

se não funfar poe aqui

[dark0 0]

data = split(rs("datapost"),"/")

dia = data(0)

mes = data(1)

ano = data(2)

if len(dia) = 1 then

dia = "0" & dia

end if

if len(mes) = 1 then

mes = "0" & mes

end if

if len(ano) = 1 then

mes = "0" & ano

 

IF data = datapost() THEN

variavel = "<td class='#FF0000' align='center' width='14%'>" & datapost & "</td>"

else

variavel = "<td class='fonte03' align='center' width='14%'>" & datapost & "</td>"

end if

 

end if

datapost = dia & "/" & mes & "/" & Right(ano, 2) %>

<table width="100%" border="0" cellspacing="0" cellpadding="0" class="Linhafundocinza">

<tr><td class="fonte03" width="66%" height="18"><a href="../blog/popposts.asp?id=<%= RS("id") %>" target="conteudo" onclick="changeTitle('Blog');"> <%= contador %>. <%= resumindo(RS("titpost"), 36)%></a></td>

<a href="java script: mostra_blog2()" style="cursor:e-resize;"><td align="center" width="20%" bgcolor="#FAFAFA" style="cursor:e-resize;" title=" Clique para expandir a tabela " class="fonte03"><%= resumindo(RS("autorpost"), 9) %></td></a>

<%=variavel%>

[Alessancost 0]

Agora funcionou http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Mas retirou o comando que coloca um 0 na data

Vou tentar modificar o código

 

Obrigado http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Mário Monteiro 179]

Agora funcionou http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Mas retirou o comando que coloca um 0 na data

Vou tentar modificar o código

 

Obrigado http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

de nada cara

 

o codigo que poe o zero eu tirei mesmo só pra simplificar....

 

mas é so voltar aquele lá e colocar a data entre as formatações html...

[dark0 0]

a alteração que eu coloquei nao funfou?

[Alessancost 0]

Eu resolvi assim

 

data2 = Rs("datapost")	data = split(rs("datapost"),"/")				dia = data(0)				mes = data(1)	ano = data(2)				if len(dia) = 1 then				dia = "0" & dia				end if				if len(mes) = 1 then				mes = "0" & mes				end if	if len(ano) = 1 then				mes = "0" & ano	end if				if data2 = DATE() THEN				datapost = "<font color='red'>" & dia & "/" & mes & "/" & Right(ano, 2) & "</font>"				else				datapost = dia & "/" & mes & "/" & Right(ano, 2)				end if %>