<%@LANGUAGE="VBSCRIPT"%>
<%
Dim media__MMColParam
media__MMColParam = "1"
media__MMColParam = 1
%>
<%
Dim media
Dim media_cmd
Dim media_numRows
Set media_cmd = Server.CreateObject ("ADODB.Command")
media_cmd.ActiveConnection = MM_Loja_STRING
media_cmd.CommandText = "SELECT * from chamadasessao WHERE SessaoID = ? ORDER BY ChamadaID DESC"
media_cmd.Prepared = true
media_cmd.Parameters.Append media_cmd.CreateParameter("param1", 5, 1, -1, media__MMColParam) ' adDouble
Set media = media_cmd.Execute
media_numRows = 0
%>
Media Center
<% While not media.eof %>
<% If right(media.Fields.Item("ChamadaImagem").Value,4) = ".swf" Then %>