%@LANGUAGE="VBSCRIPT"%> <% Dim rs_stream Dim rs_stream_cmd Dim rs_stream_numRows Set rs_stream_cmd = Server.CreateObject ("ADODB.Command") rs_stream_cmd.ActiveConnection = MM_conexao_STRING rs_stream_cmd.CommandText = "SELECT * FROM oobservador.streaming ORDER BY cod" rs_stream_cmd.Prepared = true Set rs_stream = rs_stream_cmd.Execute rs_stream_numRows = 0 %>
Última Edição

