Destaque do dia

bom dia pessoal!

Estou precisando exibir destaques por dia pegando imagens de um bd access. Deu um branco geral aqui.

O script mostrara um destaque hoje e amanha outro...e assim por diante..

segue meu código:

<%
codigo = exe("cod")
destaque = exe("banner1")
dia = day(date)
diaant = day(date)-1
if dia <> "diaant" then

 Response.write"<a href='visualizar_emp.asp?cod="&codigo&"' class='texto'><img src='"&destaque&"' border='0' width='120' height='60'></a>"

 Else
 exe.movenext

 End If

%>

Desta maneira o banner é mostrado normalmente mais quando altero o dia nao muda nada, continua o mesmo....

Aguardo a ajuda..

Obrigado.