<% ano = Request.QueryString("ano") mes = Request.QueryString("mes") mes = String(2-(Len(mes)),"0") & mes nomearqxml = "boletins/boletim-" & ano & mes & ".xml" dim fs set fs=Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists(Server.MapPath(nomearqxml)) = true then 'Load XML set xml = Server.CreateObject("Microsoft.XMLDOM") xml.async = false xml.load(Server.MapPath(nomearqxml)) 'Load XSL set xsl = Server.CreateObject("Microsoft.XMLDOM") xsl.async = false xsl.load(Server.MapPath("boletim.xsl")) 'Transform file Response.Write(xml.transformNode(xsl)) else response.write("

Boletim do mês e ano selecionados não existe

") end if set fs=nothing %>

As matérias aqui publicadas não representam necessariamente a posição oficial do Centro Excursionista Guanabara. Ressaltamos que este é um espaço aberto a todos que queiram contribuir.