<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.CacheControl="no-cache" Response.AddHeader "Pragma","no-cache" Response.Expires=0 Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open = db Set Rs = Server.CreateObject("ADODB.RecordSet") sql = "" sql = sql & " Select ID, show, datashow, hora, setor, preco, censura, resumo, imagem, textoextra, clicks, player1, player2, player3, diaf, mesf, anof " sql = sql & " FROM shows " sql = sql & " WHERE IDidioma = 1 " if validatxt(Request("ID")) = "" then response.Redirect("default.asp") else sql = sql & " AND ID = "&validatxt(Request("ID"))&" " end if Rs.Open SQL, Conexao, 3, 3 if DateValue(rs(14)&"/"&rs(15)&"/"&rs(16)) < date() then response.Redirect("default.asp") end if %> Via Funchal
 
 


<%=Rs(1)%>
   
<% if Rs(9) <> "" then %>
<%=replace(Rs(9), vbcrlf, "
")%>

<% end if %> <% if Rs(2) <> "" then %><% end if %> <% if Rs(3) <> "" then %> <% end if %>
Data:
 <%=Rs(2)%>
Horário: <%=Rs(3)%>

<% if Rs(4) <> "" then %>
Setor
Preço (R$)
<%=replace(Rs(4), vbcrlf, "
")%>
<%=replace(Rs(5), vbcrlf, "
")%>
<% end if if Rs(6) <> "" then %>
Classificação etária : <%=Rs(6)%>
<% end if %>
<% if Rs(11) <> "" then%>
<% end if if Rs(12) <> "" then%>
 
<% end if if Rs(13) <> "" then%>
 
<% end if %>
<% if Rs(7) <> "" then %>

<% end if %> <%=replace(Rs(7), vbcrlf, "
")%>

 


<% Conexao.Close() Set Conexao = Nothing Set Rs = Nothing %>