%@LANGUAGE="VBSCRIPT"%> <% 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 = 1 ORDER BY ChamadaID DESC LIMIT 10" media_cmd.Prepared = true Set media = media_cmd.Execute media_numRows = 0 %>