<%@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
 
>
 


CURRENT SHOWS LISTINGS  


<% Set RsImagem = Nothing Set RsImagem2 = Nothing %>