<% id = request("id") arquivo = id & ".html" caminho = "todosartigos/" & arquivo Set Objeto = CreateObject("Scripting.FileSystemObject") Set documento = Objeto.OpenTextFile(Server.MapPath(caminho)) Info = documento.ReadLine Titulo = documento.ReadLine Arquivo = documento.ReadAll documento.close Set Objeto=nothing 'extrai o título if Len(Titulo) > 0 Then TagTitulo = Replace(Titulo, "", "") else TagTitulo = "Pontonet - Consultoria em Internet - Há 7 anos na Internet" end if 'retira o comentário html Nav = Replace(Info, "", "") 'pega os dois termos anterior e posterior ArrNav = split(Nav, ",") 'pega o id do anterior ArrAnt = split(ArrNav(0), "=") 'pega o id do posterior ArrPos = split(ArrNav(1), "=") anterior = ArrAnt(1) posterior = ArrPos(1) %> <%= TagTitulo %>
             
     
           
   

Artigos de 2003

Artigos de 2002

Artigos de 2001

Arquivo do Nepô (artigos de 1996-2000)
 


 
 
<% response.write Arquivo %>

 

<% If anterior <> "0" Then%>« Artigo anterior<% End If %> <% If posterior <> "0" Then%>Próximo artigo »<% End If %>

 

 
         
 
           
 

    
 

| Colocar a coluna do Nepô em meu site |
| Deixar meu Currículo |