Dicas do dia!

[Reinaldo 0]

Olá Esse script tem o objetivo de mostrar uma dica diferente a cada dia no site,. mas não está funcionando dessa forma está mostrando a mesma dica todos os dias, podem ver o que está errado/

 

 

 

set rsdicas=Server.CreateObject("adodb.Recordset")
sSql="Select idreceitas, nome_receita FROM receitas ORDER BY datacontrole ASC"
rsdicas.Open sSql,cnnDB,1,2
cod=rsdicas(0)
nome_receita=rsdicas(1)
varid=rsdicas("idreceitas")
rsdicas.close
         
SQLStmt="UPDATE receitas SET datacontrole='"&now()
SQLStmt=SQLStmt & "' WHERE idioma='port' and idreceitas="&cod
rsdicas.Open SQLstmt,cnnDB,1,2

[Ted k' 126]

Melhor postar ele mais completo, assim você está atualizando!

[Reinaldo 0]

Melhor postar ele mais completo, assim você está atualizando!

 

Pois é, não tenho nada mais que isso!!!

[hargon 64]

Se é uma dica diferente a cada dia, você deve ao menos colocar uma condição no WHERE.

 

Poste os campos da tabela para facilitar o entendimento.

[Reinaldo 0]

Se é uma dica diferente a cada dia, você deve ao menos colocar uma condição no WHERE.

 

Poste os campos da tabela para facilitar o entendimento.

 

A tabela é o seguinte:

id

nome_receita

conteudo

 

O que eu quero é que a cada dia seja mostrado na pagina um titulo diferente de receita.

[xanburzum 169]

ele apresenta algum erro ????

ou apenas nao mostra a dica diferente...

você pode usar um SELECT RANDOM no bd e fazer um update para nao repetir o k foi exibido,

pois no seu SQL você apenas faz um SELECT normal...

 

olha uma funcaun bem simples

 

<%


Sub Rnd_msg() 

Dim Mensagem (7) 

Mensagem (1) = "Nunca está só quem possui um bom livro para ler e boas idéias sobre as quais meditar." 

Mensagem (2) = "Quando fala o amor, a voz de todos os deuses deixa o céu embriagado" 

Mensagem (3) = "O amor é grande e cabe nesta janela sobre o mar. " 

Mensagem (4) = "A beleza das pessoas está na capacidade de amar e encontrar no próximo" 

Mensagem (5) = "Um livro aberto é um cérebro que fala; fechado, um amigo que espera" 

Mensagem (6) = "A distância não é nada. O importante é o primeiro passo." 

Mensagem (7) = "Para realizarmos grandes coisas, precisamos vivero se nunca tivéssemos" 

For i = 1 to 7 

numero = Int(0) + Int(i) 

next 

Randomize 

n = Int(Rnd*numero) 

mostra = Mensagem(n) 

if n < 1 OR n > 7 then 

response.write Mensagem(7) 

else 

Response.Write mostra 

end if 

End Sub 

Rnd_msg() 


%>

[Reinaldo 0]

Valeu pela dica, vou ver o que posso fazer.

[xanburzum 169]

beleza, kker coisa posta ai...