<% if Request.QueryString("id") <> "" Then Video_ID = Request.QueryString("id") End if if Isnumeric(Video_ID) = false then Video_ID = 0 Else Video_ID = cint(Video_ID) end if Ordem_Video = 8 campos_chamadas = "chamadas.ChamadaTitulo as Titulo, chamadas.ChamadaTexto as Texto, chamadas.ChamadaNoar as Data, chamadas.ChamadaImagem as Imagem, chamadas.ChamadaUrl as Url, chamadas.ChamadaID as ID, sessoes.SessaoID as SessaoID, sessoes.SessaoNome as Sessao, sessoes.SessaoOrdem as Ordem" from_chamadas = "chamadas inner join sessoes on chamadas.SessaoID = sessoes.SessaoID" Set rs_Recordset_cmd = Server.CreateObject ("ADODB.Command") rs_Recordset_cmd.ActiveConnection = MM_Loja_STRING rs_Recordset_cmd.CommandText = "select "& campos_chamadas &" from "& from_chamadas &" WHERE SessaoOrdem = "& Ordem_Video &" ORDER BY chamadaID desc limit 11" rs_Recordset_cmd.Prepared = true Set rs_Recordset = rs_Recordset_cmd.Execute %>

Galeria

Imagens
Vídeos

<% if Video_ID > 0 then rs_Recordset.filter = "ID = "& Video_ID if rs_Recordset.eof then Video_ID = 0 rs_Recordset.filter = "" end if End if %>

<%=FormatarData(rs_Recordset("data"))%>

<%=rs_Recordset.fields.item("Titulo").value%>

"> ">Watch on YouTube: "<%=rs_Recordset.fields.item("Titulo").value%>"

<%=rs_Recordset.fields.item("Texto").value%>

Outros vídeos

<% if Video_ID > 0 Then rs_Recordset.filter = "ID <> "& Video_ID Else rs_Recordset.Movenext() End if While not rs_Recordset.eof %> /<%=Nome_Url(rs_Recordset.fields.item("Titulo").value)%>" class="card card-horizontal text-decoration-none border border-0 mb-3">

" class="img-fluid ">

<%=FormatarData(rs_Recordset.Fields.Item("data").Value)%>

<%=rs_Recordset.fields.item("titulo").value%>

<% rs_Recordset.Movenext() Wend %>