<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim RsUltvideos Dim RsUltvideos_numRows Set RsUltvideos = Server.CreateObject("ADODB.Recordset") RsUltvideos.ActiveConnection = MM_Podcast_STRING RsUltvideos.Source = "SELECT * FROM Podcast ORDER BY Data DESC" RsUltvideos.CursorType = 2 RsUltvideos.CursorLocation = 3 RsUltvideos.LockType = 1 RsUltvideos.Open() RsUltvideos.Pagesize = 3 IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RsUltvideos.PageCount then intpagina=RsUltvideos.PageCount ELSE intpagina= Request.QueryString("pagina") END IF END IF END IF RsUltvideos.AbsolutePage = intpagina %> <% Dim RsVideoPrincipal Dim RsVideoPrincipal_numRows Set RsVideoPrincipal = Server.CreateObject("ADODB.Recordset") RsVideoPrincipal.ActiveConnection = MM_Podcast_STRING RsVideoPrincipal.Source = "Select Top 1 * from Chamadas where CategoriaID= 1 order by chamadaid DESC" RsVideoPrincipal.CursorType = 0 RsVideoPrincipal.CursorLocation = 2 RsVideoPrincipal.LockType = 1 RsVideoPrincipal.Open() RsVideoPrincipal_numRows = 0 %> <% Dim RsDestaques Dim RsDestaques_numRows Set RsDestaques = Server.CreateObject("ADODB.Recordset") RsDestaques.ActiveConnection = MM_Podcast_STRING RsDestaques.Source = "Select top 7 Podcast.* from PodCast inner join Chamadas on (Chamadas.PodcastId = Podcast.PodcastID) where Chamadas.categoriaID=2 order by Chamadas.ChamadaID DESC, chamadas.ordem ASC" RsDestaques.CursorType = 0 RsDestaques.CursorLocation = 2 RsDestaques.LockType = 1 RsDestaques.Open() RsDestaques_numRows = 0 %> <% Dim RsPrograma Dim RsPrograma_numRows Set RsPrograma = Server.CreateObject("ADODB.Recordset") RsPrograma.ActiveConnection = MM_Podcast_STRING RsPrograma.Source = "Select top 4 * from Podcast where CategoriaID = 11 order by data desc" RsPrograma.CursorType = 0 RsPrograma.CursorLocation = 2 RsPrograma.LockType = 1 RsPrograma.Open() RsPrograma_numRows = 0 %> <% Dim RsCategorias Dim RsCategorias_numRows Set RsCategorias = Server.CreateObject("ADODB.Recordset") RsCategorias.ActiveConnection = MM_Podcast_STRING RsCategorias.Source = "Select * from Categorias order by Nome" RsCategorias.CursorType = 0 RsCategorias.CursorLocation = 2 RsCategorias.LockType = 1 RsCategorias.Open() RsCategorias_numRows = 0 %> <% Dim RsPublicidade Dim RsPublicidade_numRows Set RsPublicidade = Server.CreateObject("ADODB.Recordset") RsPublicidade.ActiveConnection = MM_Podcast_STRING RsPublicidade.Source = "SELECT * FROM Publicidade" RsPublicidade.CursorType = 0 RsPublicidade.CursorLocation = 2 RsPublicidade.LockType = 1 RsPublicidade.Open() RsPublicidade_numRows = 0 %> <% Dim PodcastExib Dim PodcastExib_numRows If request.QueryString("video") <> "" then WHEREC = " where PodcastID="&cint(request.QueryString("video")) Elseif not RsVideoPrincipal.EOF then WHEREC = " where PodcastID = "&cint(RsVideoPrincipal.Fields.Item("PodcastID").Value) end if Set PodcastExib = Server.CreateObject("ADODB.Recordset") PodcastExib.ActiveConnection = MM_Podcast_STRING PodcastExib.Source = "SELECT * FROM Podcast"&WHEREC PodcastExib.CursorType = 0 PodcastExib.CursorLocation = 2 PodcastExib.LockType = 1 PodcastExib.Open() PodcastExib_numRows = 0 If PodCastExib.EOf then MSG = "Nenhum video encontrado..." End if %> WEBTV Seth - Sindicato dos Empregados em Turismo e Hospitalidade de São José do Rio Preto e Região <% if request.QueryString("paginacao") <> "sim" then %>
TV Gisele Online
HOME - PÁGINA INICIAL
BUSCAR VIDEOS      
 
MEDIA CENTER - WEBTV SETH
ÚLTIMOS VÍDEOS
 
 
 <%=(PodCastExib.Fields.Item("Data").Value)%> | POR <%=Ucase(PodCastExib.Fields.Item("Autor").Value)%> | <%=Ucase(PodCastExib.Fields.Item("Nome").Value)%>  
<%If MSG = "" Then%> <%If (PodcastExib.Fields.Item("Tipo").Value) = 3 Then%> <%ElseIf (PodcastExib.Fields.Item("Tipo").Value) = 0 Then%> <%Elseif (PodcastExib.Fields.Item("Tipo").Value) = 1 Then%> &flashvars=&autostart=true&javascriptid=jstest&enablejs=true" width="550" height="325"> <% Else %> " /> " width="550" height="325" autostart="True" type="application/x-mplayer2" pluginspage="http://www.microsoft.com/windows/mediaplayer/download/default.asp" name="WMPlay" transparentatstart="True" showcontrols="1" showdisplay="0" showstatusbar="1" animationatstart="0" filename="<%=(PodcastExib.Fields.Item("Link").Value)%>" autosize="0"> <%End If%> <% Else%> <%= MSG %> <% End If%>
<%=Ucase(PodCastExib.Fields.Item("MiniDescricao").Value)%>
<% end if %>
<% for i=1 to 3 if not RsUltvideos.EOF then %> <% RsUltvideos.MoveNext end if next %>
&video=<%=(RsUltvideos.Fields.Item("PodcastID").Value)%>" target="_parent">" width="130px" height="100px" border="0" />
 &video=<%=(RsUltvideos.Fields.Item("PodcastID").Value)%>" target="_parent"><%=server.HTMLEncode(RsUltvideos.Fields.Item("Nome").Value)%>
<% if len(RsUltvideos.Fields.Item("MiniDescricao").Value) > 60 then Descricao = mid(RsUltvideos.Fields.Item("MiniDescricao").Value, 1, 60) ULetra = mid(Descricao, 60,60) While ULetra <> " " Descricao = mid(Descricao,1,len(Descricao)-1) ULetra = mid(Descricao, len(Descricao), len(Descricao)) wend Descricao = mid(Descricao, 1, len(Descricao)-1) Descricao = Descricao & "..." else Descricao = RsUltvideos.Fields.Item("MiniDescricao").Value end if %> <%=Server.HTMLEncode(Descricao)%>

 <%=(RsUltvideos.Fields.Item("Data").Value)%>  |  por <%=server.HTMLEncode(RsUltvideos.Fields.Item("Autor").Value)%>
PÁGINAS - <% if RsUltvideos.PageCount >= 9 then Pg = 9 else Pg = RsUltvideos.PageCount end if %> <% if request.QueryString("pagina") <> "" then PAtual = cint(request.QueryString("pagina")) else PAtual = 1 end if for j=1 to Pg %> <% if (j = PAtual) then %><%=j%><% else %><%=j%><% end if %> <% next %> <% if RsUltvideos.PageCount > 9 then %> MAIS >>> <% end if %>
<% if request.QueryString("paginacao") <> "sim" then %> 		 
  DESTAQUES WEBTV SETH  
 
<% while not RsDestaques.EOF %> <% RsDestaques.MoveNext wend %>
">" width="120px" height="90px" border="0" />
 <%=(RsDestaques.Fields.Item("Data").Value)%>
por <%=server.HTMLEncode(RsDestaques.Fields.Item("Autor").Value)%>
"><%=(RsDestaques.Fields.Item("Nome").Value)%>
 
GUIA DE VÍDEOS
PUBLICIDADE SHOPPING
PUBLICIDADES
 
  • PROGRAMA
  • CATEGORIA
<% While not RsPrograma.EOF %> <% RsPrograma.MoveNext Wend %>
">" width="80px" height="60px" border="0" />
 "><%=server.HTMLEncode(RsPrograma.Fields.Item("Nome").Value)%>
<% if len(RsPrograma.Fields.Item("MiniDescricao").Value) > 40 then Descricao = mid(RsPrograma.Fields.Item("MiniDescricao").Value, 1, 40) ULetra = mid(Descricao, 40,40) While ULetra <> " " Descricao = mid(Descricao,1,len(Descricao)-1) ULetra = mid(Descricao, len(Descricao), len(Descricao)) wend Descricao = mid(Descricao, 1, len(Descricao)-1) Descricao = Descricao & "..." else Descricao = RsPrograma.Fields.Item("MiniDescricao").Value end if %> <%=Server.HTMLEncode(Descricao)%>
 <%=(RsPrograma.Fields.Item("Data").Value)%>  |  por <%=server.HTMLEncode(RsPrograma.Fields.Item("Autor").Value)%>
<% while not RsCategorias.EOF %> <% RsCategorias.MoveNext wend %>
<% RsPublicidade.Filter = "PublicidadeID = 1" if not RsPublicidade.EOF then %> <%=(RsPublicidade.Fields.Item("Corpo").Value)%> <% end if %>
<% RsPublicidade.Filter = "PublicidadeID = 2" if not RsPublicidade.EOF then %> <%=(RsPublicidade.Fields.Item("Corpo").Value)%> <% end if %>
 
WEBTV SETH

Seth - Sindicato dos Empregados em Turismo e Hospitalidade de São José do Rio Preto e Região

www.sindicatoseth.com.br
BUSCAR VIDEOS      
<% end if %> <% RsUltvideos.Close() Set RsUltvideos = Nothing %> <% RsVideoPrincipal.Close() Set RsVideoPrincipal = Nothing %> <% RsDestaques.Close() Set RsDestaques = Nothing %> <% RsPrograma.Close() Set RsPrograma = Nothing %> <% RsCategorias.Close() Set RsCategorias = Nothing %> <% RsPublicidade.Close() Set RsPublicidade = Nothing %> <% PodcastExib.Close() Set PodcastExib = Nothing %>