<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
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 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
%>