<% Function ExibeData(data) dia_semana = WeekDay(data) Select Case dia_semana Case 1 : dia_semana = "Domingo" Case 2 : dia_semana = "Segunda-Feira" Case 3 : dia_semana = "Terça-Feira" Case 4 : dia_semana = "Quarta-Feira" Case 5 : dia_semana = "Quinta-Feira" Case 6 : dia_semana = "Sexta-Feira" Case 7 : dia_semana = "Sábado" End Select mes = Month(data) Select Case mes Case 1 : mes = "Janeiro" Case 2 : mes = "Fevereiro" Case 3 : mes = "Março" Case 4 : mes = "Abril" Case 5 : mes = "Maio" Case 6 : mes = "Junho" Case 7 : mes = "Julho" Case 8 : mes = "Agosto" Case 9 : mes = "Setembro" Case 10 : mes = "Outubro" Case 11 : mes = "Novembro" Case 12 : mes = "Dezembro" End Select ExibeData = dia_semana & ", " & Day(Date()) & " de " & mes & " de " & Year(data) End Function %> <%=X_TITULOCLIENTE%> <% if Session("erro") = "0" then Session("erro") = "" %> <% end if if Session("erro") = "2" then Session("erro") = "" %> <% end if if Session("erro") = "3" then Session("erro") = "" %> <% end if if Session("erro") = "5" then Session("erro") = "" %> <% end if if Session("erro") = "6" then Session("erro") = "" %> <% end if %>
AGENDA DE SHOWS | Calendário de Eventos
Veja a agenda completa
<% x_id = request("id") x_id = replace(x_id,"'","''") x_id = replace(x_id,"#","''") x_id = replace(x_id,"$","''") x_id = replace(x_id,"%","''") x_id = replace(x_id,"¨","''") x_id = replace(x_id,"&","''") x_id = replace(x_id,"'or'1'='1'","''") x_id = replace(x_id,"--","''") x_id = replace(x_id,"insert","''") x_id = replace(x_id,"drop","''") x_id = replace(x_id,"delet","''") x_id = replace(x_id,"xp_","''") x_id = replace(x_id,"select","''") x_id = replace(x_id,"*","''") Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorType = adOpenKeyset RS.Open "SELECT * FROM agenda WHERE status = 'ativo' AND id = "& x_id, Conexao %>
" width="378" />
<% if RS.fields("video") <> "" then %>
ASSISTA AO VÍDEO DO ARTISTA
<% x_video = left(RS.fields("video"), 74) x_video = replace(x_video,"https://www.youtube.com/watch?v=","") %> <% end if if request("id") = "279" then %>
<% end if %>
DETALHES DO EVENTO
<% if RS.fields("titulo") <> "" then %>
SHOW / TITULO
<% if request("id") = "105" then %>
<%=RS.fields("titulo")%>
<% else %>
<%=RS.fields("titulo")%>
<% end if %>
<% end if %> <% if RS.fields("data") <> "" then %>
DATA DO SHOW
<%=day(RS.fields("data"))%> de <%=EscreveMes(RS.fields("data"))%> | <%=EscreveDia(RS.fields("data"))%>
<% end if %> <% x_abertura = RS.fields("abertura") if x_abertura <> "" then %>
ABERTURA DO SHOW
<%=replace(x_abertura,chr(13),"
")%>
<% end if %> <% x_texto1 = RS.fields("descricao") if x_texto1 <> "" then x_texto = replace(x_texto1," ","") if x_texto <> "" then %>
DESCRIÇÃO
<%=replace(x_texto1,chr(13),"
")%>
<% end if end if %> <% x_texto1 = RS.fields("servicos") if x_texto1 <> "" then x_texto = replace(x_texto1," ","") if x_texto <> "" then %>
SERVIÇOS
<%=replace(x_texto1,chr(13),"
")%>
<% end if end if %> <% x_texto1 = RS.fields("precos") if x_texto1 <> "" then x_texto = replace(x_texto1," ","") if x_texto <> "" then %>
PREÇOS
<%=replace(x_texto1,chr(13),"
")%>
<% if request("id") <> "304" then x_dia = EscreveDia2(RS.fields("data")) if EscreveDia2(RS.fields("data")) <> "Sexta" then %>
<% end if end if %> <% end if end if %> <% x_texto1 = RS.fields("pontodevenda") if x_texto1 <> "" then x_texto = replace(x_texto1," ","") if x_texto <> "" then %>
PONTOS DE VENDA
<%=replace(x_texto1,chr(13),"
")%>
<% end if end if %> <% x_dia = EscreveDia2(RS.fields("data")) if EscreveDia2(RS.fields("data")) <> "Sexta" then if request("id") <> "304" then %>
COMPRE JÁ O SEU INGRESSO
<% end if end if %> <% x_texto1 = RS.fields("adicionais") if x_texto1 <> "" then x_texto = replace(x_texto1," ","") if x_texto <> "" then %>
INFORMAÇÕES ADICIONAIS
<%=replace(x_texto1,chr(13),"
")%>
<% end if end if if RS.fields("promocao") <> "" then %>
PROMOÇÕES
<% Set RS_promocao = Server.CreateObject("ADODB.Recordset") RS_promocao.CursorType = adOpenKeyset RS_promocao.Open "SELECT * FROM promocoes", Conexao while not RS_promocao.eof If InStr(1,RS.fields("promocao"),RS_promocao.fields("id")) <> 0 then %>
" width="446" height="120" />
<% end if RS_promocao.MoveNext wend end if %>
<% x_dia = weekday(RS.fields("data")) if request("id") <> "304" AND request("id") <> "305" then if (x_dia = 7 ) then x_id = replace(request("id"),"'","") Set RS_ganhadores = Server.CreateObject("ADODB.Recordset") RS_ganhadores.CursorType = adOpenKeyset RS_ganhadores.Open "SELECT * FROM sorteio WHERE agenda = '"&x_id&"' AND status = 'ativo' AND ganhador = 'sim'", Conexao if RS_ganhadores.eof then %>
CADASTRE-SE E CONCORRA
Preencha o formulário abaixo e concorra a 2 lugares para curtir de camarote esse grande show no Chapéu Brasil.

Os sorteados poderão levar um acompanhante.

Concorra!
" method="post" onSubmit="return validaForm()">
Ja sou cadastrado, mas quero excluir meu cadastro.
<% else %>
GANHADORES DO SORTEIO DO CAMAROTE
Veja os sortudos que vão curtir esse grande evento de camarote.
<% while not RS_ganhadores.eof Set RS_cadastro = Server.CreateObject("ADODB.Recordset") RS_cadastro.CursorType = adOpenKeyset RS_cadastro.Open "SELECT * FROM cadastro WHERE id = "&RS_ganhadores.fields("cadastro"), Conexao if not RS_cadastro.eof then %>
- <%=RS_cadastro.fields("nome")%>
<% end if Set RS_cadastro = Nothing RS_ganhadores.MoveNext wend %>
<% end if SET RS_ganhadores = Nothing end if end if %>