AGENDA DE SHOWS | Calendário de Eventos
<% x_data = FormataData(date()) Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorType = adOpenKeyset RS.Open "SELECT * FROM agenda WHERE data >= '"&x_data&"' AND status = 'ativo' ORDER BY data ASC", Conexao if not RS.eof then %>
<% if RS.fields("imgcapa") <> "" then %> " width="378" height="225" /> <% end if %>
PRÓXIMO SHOW
<% x_texto1 = RS.fields("titulo") x_texto = replace(x_texto1," ","") if x_texto <> "" then %>
SHOW / TITULO
<%=RS.fields("titulo")%>
<% end if %>
<% if RS.fields("data") <> "" then %>
DATA DO SHOW
<%=FormataDataWeb(RS.fields("data"))%>
<% end if %>
<% x_texto1 = RS.fields("abertura") if x_texto1 <> "" then %>
HORÁRIO DO SHOW
<%=x_texto%>
<% end if %>
<% RS.MoveNext if not RS.eof then g = 1 while not RS.eof %>
<% for x = 1 to 3 if not RS.eof then %>
" id="fundo_box" onMouseOver="javascript:this.style.backgroundColor='#0e252f'" onMouseOut="javascript:this.style.backgroundColor=''" > " onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image<%=g%>','','img/ico_mais_azul.png',1)" class="Branco14">
); background-position:top center;">
<%=RS.fields("titulo")%>
<%=day(RS.fields("data"))%> de <%=EscreveMes(RS.fields("data"))%> | <%=EscreveDia(RS.fields("data"))%>
<% RS.MoveNext g = g + 1 end if Next %>
<% wend else %>
AGUARDE, EM BREVE NOVIDADES.
<% end if else %>
NENHUM EVENTO ENCONTRADO!
<% end if %>
Todos os shows agendados podem sofrer alguma pequena alteração em seu roteiro sem aviso prévio.