Dicas do dia!

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