%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% titulo = titulo & " - " & gettitulo(submenu) %> <% Dim rs_convencao__MMColParam rs_convencao__MMColParam = "0" If (Request.QueryString("conv") <> "") Then rs_convencao__MMColParam = Request.QueryString("conv") End If rs_convencao__MMColParam = check_var(rs_convencao__MMColParam,"int") %> <% Dim rs_convencao Dim rs_convencao_numRows Set rs_convencao = Server.CreateObject("ADODB.Recordset") rs_convencao.ActiveConnection = MM_cc_STRING rs_convencao.Source = "SELECT * FROM dossier_convencao WHERE id = " + Replace(rs_convencao__MMColParam, "'", "''") + "" rs_convencao.CursorType = 0 rs_convencao.CursorLocation = 2 rs_convencao.LockType = 1 rs_convencao.Open() rs_convencao_numRows = 0 %>