Página com textstream, ajuda.

#pragma

talvez algo como isto (não testei...)

<%
dim nomearquivo
dim indice

indice = Request.QueryString("i")
if...

#pragma

talvez algo como isto (não testei...)

<%
dim nomearquivo
dim indice

indice = Request.QueryString("i")
if...

<%

' Variáveis

dim nomearquivo 

dim indice 

dim nomeserver

' Função usada para abrir o arquivo com o artigo e escreve-lo na tela.

Function OpenFile()

set fs=Server.CreateObject("Scripting.FileSystemObject&quot

set file=fs.OpenTextFile(Server.MapPath(nomearquivo),1)

Response.Write(file.ReadAll)

End Function

' Índice cujo nome que é mudado com o link

indice = Request.QueryString("i&quot 

set fs=Nothing

set file=Nothing

' Se o índice estiver vazio então define para 0 e define a sintaxe do arquivo.

if(indice="&quot then indice="0" 

nomearquivo = "artlnx" + indice + ".txt"

' Se algum artigo estiver aberto (valores diferentes de 0) ele esconde os links

If indice <> 0 then

Else

' Seta o arquivo que contém os links

set fs=Server.CreateObject("Scripting.FileSystemObject&quot

set file=fs.OpenTextFile(Server.MapPath("listaartigos.txt&quot,1)

Response.Write(file.ReadAll)

End If

' Se o índice for 0 ele não faz nada, pois não é preciso abrir a função OpenFile, pois nenhum artigo foi selecionado.

' Caso o falor seja diferente de 0 ele executa o OpenFile que vai abrir o artigo dependendo de qual foi selecionado.

If indice = 0 Then

Else

OpenFile()

End If

%>

#pragma

Cuidado aí... me parece que
indice="0"
é diferente de
indice=0