%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim RsImagemVar
Response.CacheControl="no-cache"
Response.AddHeader "Pragma","no-cache"
Response.Expires=0
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open = db
Set RsImagem2 = Server.CreateObject("ADODB.RecordSet")
sql = ""
sql = sql & " Select Count(*) "
sql = sql & " FROM shows "
sql = sql & " WHERE status = 1 AND IDidioma = 1 AND DateValue('"&date()&"') BETWEEN DateValue(diai&'/'&mesi&'/'&anoi) AND DateValue(diaf&'/'&mesf&'/'&anof) " 'AND promocaosn = 2
RsImagem2.Open SQL, Conexao, 3, 3
Randomize Timer
rndMural = Int(RND * CInt(RsImagem2(0)))
Set RsImagem = Server.CreateObject("ADODB.RecordSet")
'sql = ""
'sql = sql & " Select ID, imagem "
'sql = sql & " FROM shows "
'sql = sql & " WHERE status = 1 AND promocaosn = 2 AND IDidioma = 1 "
'sql = sql & " ORDER BY ID DESC "
sql = ""
sql = sql & " Select ID, imagem "
sql = sql & " FROM shows "
sql = sql & " WHERE status = 1 AND IDidioma = 1 AND DateValue('"&date()&"') BETWEEN DateValue(diai&'/'&mesi&'/'&anoi) AND DateValue(diaf&'/'&mesf&'/'&anof) " ' AND promocaosn = 2
sql = sql & " ORDER BY ID DESC "
RsImagem.Open SQL, Conexao, 3, 3
RsImagemVar = 0
if not RsImagem.eof then
RsImagem.Move rndMural
RsImagemVar = 1
end if
%>
Via Funchal
<%
Set RsImagem = Nothing
Set RsImagem2 = Nothing
%>