<%@LANGUAGE="VBSCRIPT"%> <% Dim contatermos_port Dim contatermos_port_cmd Dim contatermos_port_numRows Set contatermos_port_cmd = Server.CreateObject ("ADODB.Command") contatermos_port_cmd.ActiveConnection = MM_Jurislingie_STRING contatermos_port_cmd.CommandText = "SELECT * FROM dbo.contador_termos_portugues" contatermos_port_cmd.Prepared = true Set contatermos_port = contatermos_port_cmd.Execute contatermos_port_numRows = 0 %> <% Dim contaconvencoes_portugues Dim contaconvencoes_portugues_cmd Dim contaconvencoes_portugues_numRows Set contaconvencoes_portugues_cmd = Server.CreateObject ("ADODB.Command") contaconvencoes_portugues_cmd.ActiveConnection = MM_Jurislingie_STRING contaconvencoes_portugues_cmd.CommandText = "SELECT * FROM dbo.contador_convencoes_portugues" contaconvencoes_portugues_cmd.Prepared = true Set contaconvencoes_portugues = contaconvencoes_portugues_cmd.Execute contaconvencoes_portugues_numRows = 0 %> <% Dim contaorganismos_portugues Dim contaorganismos_portugues_cmd Dim contaorganismos_portugues_numRows Set contaorganismos_portugues_cmd = Server.CreateObject ("ADODB.Command") contaorganismos_portugues_cmd.ActiveConnection = MM_Jurislingie_STRING contaorganismos_portugues_cmd.CommandText = "SELECT * FROM dbo.contador_organismos_portugues" contaorganismos_portugues_cmd.Prepared = true Set contaorganismos_portugues = contaorganismos_portugues_cmd.Execute contaorganismos_portugues_numRows = 0 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim contatermos_port_total Dim contatermos_port_first Dim contatermos_port_last ' set the record count contatermos_port_total = contatermos_port.RecordCount ' set the number of rows displayed on this page If (contatermos_port_numRows < 0) Then contatermos_port_numRows = contatermos_port_total Elseif (contatermos_port_numRows = 0) Then contatermos_port_numRows = 1 End If ' set the first and last displayed record contatermos_port_first = 1 contatermos_port_last = contatermos_port_first + contatermos_port_numRows - 1 ' if we have the correct record count, check the other stats If (contatermos_port_total <> -1) Then If (contatermos_port_first > contatermos_port_total) Then contatermos_port_first = contatermos_port_total End If If (contatermos_port_last > contatermos_port_total) Then contatermos_port_last = contatermos_port_total End If If (contatermos_port_numRows > contatermos_port_total) Then contatermos_port_numRows = contatermos_port_total End If End If %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim contaconvencoes_portugues_total Dim contaconvencoes_portugues_first Dim contaconvencoes_portugues_last ' set the record count contaconvencoes_portugues_total = contaconvencoes_portugues.RecordCount ' set the number of rows displayed on this page If (contaconvencoes_portugues_numRows < 0) Then contaconvencoes_portugues_numRows = contaconvencoes_portugues_total Elseif (contaconvencoes_portugues_numRows = 0) Then contaconvencoes_portugues_numRows = 1 End If ' set the first and last displayed record contaconvencoes_portugues_first = 1 contaconvencoes_portugues_last = contaconvencoes_portugues_first + contaconvencoes_portugues_numRows - 1 ' if we have the correct record count, check the other stats If (contaconvencoes_portugues_total <> -1) Then If (contaconvencoes_portugues_first > contaconvencoes_portugues_total) Then contaconvencoes_portugues_first = contaconvencoes_portugues_total End If If (contaconvencoes_portugues_last > contaconvencoes_portugues_total) Then contaconvencoes_portugues_last = contaconvencoes_portugues_total End If If (contaconvencoes_portugues_numRows > contaconvencoes_portugues_total) Then contaconvencoes_portugues_numRows = contaconvencoes_portugues_total End If End If %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim contaorganismos_portugues_total Dim contaorganismos_portugues_first Dim contaorganismos_portugues_last ' set the record count contaorganismos_portugues_total = contaorganismos_portugues.RecordCount ' set the number of rows displayed on this page If (contaorganismos_portugues_numRows < 0) Then contaorganismos_portugues_numRows = contaorganismos_portugues_total Elseif (contaorganismos_portugues_numRows = 0) Then contaorganismos_portugues_numRows = 1 End If ' set the first and last displayed record contaorganismos_portugues_first = 1 contaorganismos_portugues_last = contaorganismos_portugues_first + contaorganismos_portugues_numRows - 1 ' if we have the correct record count, check the other stats If (contaorganismos_portugues_total <> -1) Then If (contaorganismos_portugues_first > contaorganismos_portugues_total) Then contaorganismos_portugues_first = contaorganismos_portugues_total End If If (contaorganismos_portugues_last > contaorganismos_portugues_total) Then contaorganismos_portugues_last = contaorganismos_portugues_total End If If (contaorganismos_portugues_numRows > contaorganismos_portugues_total) Then contaorganismos_portugues_numRows = contaorganismos_portugues_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (contatermos_port_total = -1) Then ' count the total records by iterating through the recordset contatermos_port_total=0 While (Not contatermos_port.EOF) contatermos_port_total = contatermos_port_total + 1 contatermos_port.MoveNext Wend ' reset the cursor to the beginning If (contatermos_port.CursorType > 0) Then contatermos_port.MoveFirst Else contatermos_port.Requery End If ' set the number of rows displayed on this page If (contatermos_port_numRows < 0 Or contatermos_port_numRows > contatermos_port_total) Then contatermos_port_numRows = contatermos_port_total End If ' set the first and last displayed record contatermos_port_first = 1 contatermos_port_last = contatermos_port_first + contatermos_port_numRows - 1 If (contatermos_port_first > contatermos_port_total) Then contatermos_port_first = contatermos_port_total End If If (contatermos_port_last > contatermos_port_total) Then contatermos_port_last = contatermos_port_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (contaconvencoes_portugues_total = -1) Then ' count the total records by iterating through the recordset contaconvencoes_portugues_total=0 While (Not contaconvencoes_portugues.EOF) contaconvencoes_portugues_total = contaconvencoes_portugues_total + 1 contaconvencoes_portugues.MoveNext Wend ' reset the cursor to the beginning If (contaconvencoes_portugues.CursorType > 0) Then contaconvencoes_portugues.MoveFirst Else contaconvencoes_portugues.Requery End If ' set the number of rows displayed on this page If (contaconvencoes_portugues_numRows < 0 Or contaconvencoes_portugues_numRows > contaconvencoes_portugues_total) Then contaconvencoes_portugues_numRows = contaconvencoes_portugues_total End If ' set the first and last displayed record contaconvencoes_portugues_first = 1 contaconvencoes_portugues_last = contaconvencoes_portugues_first + contaconvencoes_portugues_numRows - 1 If (contaconvencoes_portugues_first > contaconvencoes_portugues_total) Then contaconvencoes_portugues_first = contaconvencoes_portugues_total End If If (contaconvencoes_portugues_last > contaconvencoes_portugues_total) Then contaconvencoes_portugues_last = contaconvencoes_portugues_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (contaorganismos_portugues_total = -1) Then ' count the total records by iterating through the recordset contaorganismos_portugues_total=0 While (Not contaorganismos_portugues.EOF) contaorganismos_portugues_total = contaorganismos_portugues_total + 1 contaorganismos_portugues.MoveNext Wend ' reset the cursor to the beginning If (contaorganismos_portugues.CursorType > 0) Then contaorganismos_portugues.MoveFirst Else contaorganismos_portugues.Requery End If ' set the number of rows displayed on this page If (contaorganismos_portugues_numRows < 0 Or contaorganismos_portugues_numRows > contaorganismos_portugues_total) Then contaorganismos_portugues_numRows = contaorganismos_portugues_total End If ' set the first and last displayed record contaorganismos_portugues_first = 1 contaorganismos_portugues_last = contaorganismos_portugues_first + contaorganismos_portugues_numRows - 1 If (contaorganismos_portugues_first > contaorganismos_portugues_total) Then contaorganismos_portugues_first = contaorganismos_portugues_total End If If (contaorganismos_portugues_last > contaorganismos_portugues_total) Then contaorganismos_portugues_last = contaorganismos_portugues_total End If End If %> Apresentação do Jurislingue
Página principal > página inicial

 

Visitante nº.
contador de acessos
 
........................
Terminologia
<%=(contatermos_port_total)%>
 
........................
 
Instrumentos
Bilaterais/Multilaterais
<%=(contaconvencoes_portugues_total)%>
 
........................
Organismos
<%=(contaorganismos_portugues_total)%>
 
........................
 
 
 

 

Informação

“Por motivos técnicos informamos que momentaneamente, não é possível aceder a todas as funcionalidades do Jurislingue.

Agradecemos a sua compreensão e esperamos ser o mais breves possível.

Desejar a todos um Feliz Natal e um Próspero 2012.”

 

  
 

Apresentação

O Dicionário Jurislingue electrónico é um dicionário jurídico que integra actualmente 7 idiomas: Português / Francês / Inglês / Alemão / Neerlandês / Espanhol / Italiano.

Sendo um dicionário jurídico, contém termos de diferentes ramos do Direito sem, contudo, pretender ser um instrumento acabado. Pelo contrário, como instrumento de informação e de trabalho, carece de actualização e aperfeiçoamento constantes. Para tal conta também com a ajuda dos seus utilizadores, através de uma caixa de Sugestões / Comentários.

Com este dicionário é possível:

  • Pesquisar termos jurídicos, nomes de organismos internos e externos, instrumentos internacionais bilaterais e multilaterais em 7 idiomas;

  • Encontrar famílias de palavras, e/ou contextos em que ocorrem as palavras, em 7 idiomas;

  • Encontrar no separador Português uma definição para cada termo;
  • Encontrar siglas no menu Organismos, no separador Português.

 Clique no botão "historial" para ler o texto integral da apresentação.

 
   


entrar
........................................
Traduzido para:
 
Português
Francês
Inglês
Alemão
Neerlandês
Bandeira Espanhola
Bandeira da Itália
  
........................................

Visita Virtual
........................................


Agradecemos as suas

 

........................................
 

........................................
 

........................................
 

........................................
 

........................................
.......................................
........................................

 

 

 

 

 
........................................

Projecto desenvolvido com o apoio da:
 
Declaração sobre os direitos de autor (copyright)
Site Optimizado para I.E 6 ou superior, para resolução de 1024/768px
<% contatermos_port.Close() Set contatermos_port = Nothing %> <% contaconvencoes_portugues.Close() Set contaconvencoes_portugues = Nothing %> <% contaorganismos_portugues.Close() Set contaorganismos_portugues = Nothing %>