<% if request("data") <> "" then diahoje = data_us(request("data")) diaseguinte = data_us(cdate(request("data")) + 1) hoje = cdate(request("data")) else diahoje = data_us(date()) diaseguinte = data_us(date() + 1) hoje = date() end if sql = "select programacao.*, tituloserie, tituloprograma, diretor, " & _ "'Brasil' as Pais, AnoProducao, ClassificacaoAncine, TituloEpisodio, " & _ " Sinopse, FaixaEtaria " & _ " from programacao, programa, serie " & _ " where programacao.idPrograma = programa.idPrograma " & _ " and programacao.idSerie = serie.idSerie " & _ " and (data = " & diahoje & " or data = " & diaseguinte & ") " & _ " order by data, hora " ' " and programa.GradePublica = -1 and programa.Publicidade = 0 " & _ ' recordSet da próxima hora (término do programa) set rs2 = Server.CreateObject("ADODB.RecordSet") ' recordSet Principal set rs = Server.CreateObject("ADODB.RecordSet") rs.open sql, conn ', 3, 3 ' Verifica pela data qual Banco deve abrir 'if hoje >= cdate("2012-08-01") then ' rs.open sql, conn2 ', 3, 3 'else ' rs.open sql, conn ', 3, 3 'end if 'rs.open sql, conn ', 3, 3 if rs.eof then %> <% end if do while not rs.eof id = rs("idPrograma") data = data_us(rs("data")) data2 = data_us_semtralha(rs("data")) hora = FormatDateTime(rs("hora"),4) idSerie = rs("idSerie") idPrograma = rs("idPrograma") tituloserie = ucase(rs("tituloserie")) tituloprograma = rs("tituloprograma") diretor = rs("diretor") destaque = rs("destaque") pais = rs("Pais") anoproducao = rs("AnoProducao") episodio = rs("TituloEpisodio") sinopse = rs("Sinopse") faixaEtaria = rs("FaixaEtaria") classificacaoAncine = rs("ClassificacaoAncine") ' Calcula a hora de termino do programa sql2 = "select top 1 programacao.hora" & _ " from programacao, programa, serie " & _ " where programacao.idPrograma = programa.idPrograma " & _ " and programacao.idSerie = serie.idSerie " & _ " and ((data + hora) > #" & data2 & " " & hora & "#)" & _ " order by data, hora " ' and (data + hora) > #2012-07-01 04:00:00# ' " and programa.GradePublica = -1 and programa.Publicidade = 0 " & _ rs2.open sql2, conn ', 3, 3 ' Verifica pela data qual Banco deve abrir ' if hoje >= cdate("2012-08-01") then ' rs2.open sql2, conn2 ', 3, 3 ' else ' rs2.open sql2, conn ', 3, 3 ' end if ' rs2.open sql2, conn ', 3, 3 if rs2.eof then horatermino = "" else horatermino = FormatDateTime(rs2("hora"),4) end if rs2.close if destaque <> "" then destaque = "" & destaque & "" end if if faixaEtaria <> "Livre" then faixaEtaria = faixaEtaria + " anos" end if 'MOSTRA CABEÇALHO MANHÃ if data = diahoje and hora >= "06:00" and hora < "12:00" and hora_manha = false then hora_manha = true %> <% end if 'MOSTRA CABEÇALHO TARDE if data = diahoje and hora >= "12:00" and hora < "18:00" and hora_tarde = false then hora_tarde = true %> <% end if 'MOSTRA CABEÇALHO NOITE if data = diahoje and hora >= "18:00" and hora < "21:00" and hora_noite = false then hora_noite = true %> <% end if 'MOSTRA CABEÇALHO NOBRE if data = diahoje and hora >= "21:00" and hora_nobre = false then hora_nobre = true %> <% end if 'MOSTRA CABEÇALHO MADRUGADA if data = diaseguinte and hora >= "00:00" and hora < "06:00" and hora_madrugada = false then hora_madrugada = true %> <% end if 'MOSTRA LINHA DO PROGRAMA if (data = diahoje and hora >= "06:00") or (data = diaseguinte and hora < "06:00") then %> <% end if %> <% rs.movenext loop rs.close set rs = nothing set rs2 = nothing conn.Close Set conn = Nothing %>
 
 A programação deste dia ainda não está disponível.
  MANHÃ
  TARDE
  NOITE
  HORÁRIO NOBRE
  MADRUGADA
<%=hora%> - <%=horatermino%> <%=tituloserie%>  <%=tituloprograma%> <%=episodio%>  de <%=diretor%> produzido em <%=anoproducao%>. País de Origem: <%=pais%> <%=destaque%> <%=faixaEtaria%> <%=classificacaoAncine%>