<!--#INCLUDE VIRTUAL="/_top.asp"--> 
<!-- **************************************************** -->

<% 
 Link_me=Request.QueryString("link")
 SUBLink_me=Request.QueryString("sublink")
 IF Len(Link_me)=0 THEN
		Link_me="main"
		END IF
 IF Len(SUBLink_me)=0 THEN
		SUBLink_me=Link_me
		END IF

 IF Link_me="main" THEN
	
   %>
	<!--#INCLUDE VIRTUAL="/main/main.asp"--> 
   <%

 ELSE
	Path_me="/"+Link_me+"/"+SUBLink_me+".txt"
	Titulo_me="/"+Link_me+"/titulo.inc"

	Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject")

	Set MyTextFile = MyFileObj.OpenTextFile(Server.MapPath(Titulo_me))
	WHILE NOT MyTextFile.AtEndOfStream
	Response.Write(MyTextFile.ReadLine)
	WEND
	MyTextFile.Close
	
	Set MyTextFile = MyFileObj.OpenTextFile(Server.MapPath(Path_me))
	WHILE NOT MyTextFile.AtEndOfStream
	Response.Write(MyTextFile.ReadLine)
	WEND
	MyTextFile.Close

END IF

%> 

<!-- **************************************************** -->
<!--#INCLUDE VIRTUAL="/_end.asp"-->