<% Dim xmlDoc, mensagem_data, atual_data Dim Object set Object = server.createobject("microsoft.xmldom") Object.load(server.MapPath("mensagem.xml")) Object.async = false Object.preserveWhiteSpace = true if Object.parseError <> 0 then response.write Object.parseError.srcText & "
" & _ Object.parseError.reason & " Linha " & _ Object.parseError.line & " Col " & Object.parseError.linepos response.end end if set xmlDoc = Object Set xmlLst = xmlDoc.getElementsByTagName("Mensagem") For i = 0 To xmlLst.Length - 1 Set subLst = xmlLst.item(i) mensagem_data = CDate(subLst.childNodes(0).childNodes(0).Text) atual_data = date() if (mensagem_data = atual_data) then ' Response.Write "

" & subLst.childNodes(1).childNodes(0).Text & "

" ' Response.Write "

"" & subLst.childNodes(2).childNodes(0).Text & ""

" Response.Write "

"" & subLst.childNodes(1).childNodes(0).Text & ""

" Response.Write "

São Francisco de Sales

" end if Next %>