QUEM JÁ GANHOU| Curtiu um show de camarote
<% x = 1 x_data = FormataData(date()) Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorType = adOpenKeyset RS.Open "SELECT * FROM agenda WHERE data <= '"&x_data&"' ORDER BY data ASC", Conexao if not RS.eof then while not RS.eof if not RS.eof then x_dia = weekday(RS.fields("data")) if x_dia = 7 then Set RS_sorteio = Server.CreateObject("ADODB.Recordset") RS_sorteio.CursorType = adOpenKeyset RS_sorteio.Open "SELECT * FROM sorteio WHERE agenda = '"&RS.fields("id")&"' AND status = 'ativo' AND ganhador = 'sim'", Conexao if not RS_sorteio.eof then %>
" id="fundo_box" onMouseOver="javascript:this.style.backgroundColor='#0e252f'" onMouseOut="javascript:this.style.backgroundColor=''" >
); background-position:top center;">
<%=RS.fields("titulo")%>
<%=day(RS.fields("data"))%> de <%=EscreveMes(RS.fields("data"))%> | <%=EscreveDia(RS.fields("data"))%>
GANHADORES
<% while not RS_sorteio.eof Set RS_cad = Server.CreateObject("ADODB.Recordset") RS_cad.CursorType = adOpenKeyset RS_cad.Open "SELECT * FROM cadastro WHERE id = "&RS_sorteio.fields("cadastro"), Conexao if not RS_cad.eof then %>
- <%=Ucase(RS_cad.fields("nome"))%>
<% end if Set RS_cad = Nothing RS_sorteio.MoveNext wend %>
<% end if Set RS_sorteio = Nothing end if RS.MoveNext g = g + 1 if x = 3 then x = 1 else x = x + 1 end if end if wend %>
<% else %>
NENHUM EVENTO ENCONTRADO!
<% end if %>
Todos os shows agendados podem sofrer alguma pequena alteração em seu roteiro sem aviso prévio.