<%
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. |