<% While ((RepeatP__numRows <> 0) AND (NOT rsPagina.EOF)) %> <% if (rsPagina.Fields.Item("COL1PG").Value) = "A" then %> <%=(rsPagina.Fields.Item("TXT1PG").Value)%> <% end if %> <% RepeatP__index=RepeatP__index+1 RepeatP__numRows=RepeatP__numRows-1 rsPagina.MoveNext() Wend %>
<% rsPagina.movefirst() RepeatP__numRows = -1 RepeatP__index = 0 rsPagina_numRows = rsPagina_numRows + RepeatP__numRows While ((RepeatP__numRows <> 0) AND (NOT rsPagina.EOF)) %> <% if (rsPagina.Fields.Item("COL1PG").Value) = "B" then %> <%=(rsPagina.Fields.Item("TXT1PG").Value)%> <% end if %> <% RepeatP__index=RepeatP__index+1 RepeatP__numRows=RepeatP__numRows-1 rsPagina.MoveNext() Wend %>
 

 

 

 
Centro de Estudos de história e Cartografia Antiga Centro de Estudos de História e Cartografia Antiga

CARTOTECA

O Centro de Estudos de História e Cartografia Antiga é o detentor das cartas manuscritas resultantes da actividade da Comissão de Cartografia, criada em 1883, e que se reportam ao conjunto dos territórios ultramarinos então sob administração portuguesa. Constituem o primeiro levantamento cartográfico sistemático desses territórios, contemplando aspectos como a delimitação das fronteiras, a caracterização dos portos marítimos e fluviais, o coberto vegetal, o povoamento e loteamento dos terrenos atribuídos para colonização, o traçado dos caminhos - dos tradicionais ao caminhos de ferro e estradas modernas - bem como relatórios, textuais e cartográficos, das expedições de reconhecimento científico.

No sentido de facilitar o acesso a tão diversificado e relevante acervo, o C.E.H.C.A. procedeu já à criação de uma base de dados de consulta, pesquisável segundo critérios pré-definidos, susceptíveis de articulação segundo as necessidades de cada investigador. Directamente associado encontra-se um banco de imagens, com a reprodução das referidas cartas.

De momento, estes instrumentos de trabalho apenas se encontram disponíveis para consulta directa no C.E.H.C.A., podendo os investigadores solicitar o acesso e a reprodução das cartas relevantes para a sua pesquisa.

<% rsPagina.movefirst() RepeatP__numRows = -1 RepeatP__index = 0 rsPagina_numRows = rsPagina_numRows + RepeatP__numRows While ((RepeatP__numRows <> 0) AND (NOT rsPagina.EOF)) %> <% if (rsPagina.Fields.Item("COL1PG").Value) = "H" then %> <%=(rsPagina.Fields.Item("TXT1PG").Value)%> <% end if %> <% RepeatP__index=RepeatP__index+1 RepeatP__numRows=RepeatP__numRows-1 rsPagina.MoveNext() Wend %>