<%
SUB ReadDisplayFile(FileToRead)
  whichfile=server.mappath(FileToRead)
  Set fs = CreateObject("Scripting.FileSystemObject")
 If fs.FileExists(whichfile) Then
  Set thisfile = fs.OpenTextFile(whichfile, 1, False)
  tempSTR=thisfile.readall
  response.write tempSTR
  thisfile.Close
  set thisfile=nothing
 else
  response.write "File " & whichfile & " Not found!"
  end if
  set fs=nothing
END SUB
 mainparam= "&page"
 mainvalue = Request.QueryString( mainparam )
 szPageName = mainvalue
 if szPageName="" then 
 szPageName = "catalogo.asp_&page_n0n3.asp"
 else
 for each x in request.QueryString
 if request.QueryString(x) <> mainvalue or x <> mainparam then
 szPageName = szPageName & "-" & x
 if request.QueryString(x) <> "" then
 szPageName = szPageName & "_" & request.QueryString(x)
	end if 
 end if
 next
 szPageName = "catalogo.asp_&page_" & szPageName & ".asp"
 end if
 Call ReadDisplayFile(szPageName)
%>