<% Dim xmlDoc, santo_data, atual_data Dim Object set Object = server.createobject("microsoft.xmldom") Object.load(server.MapPath("santo.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("Santo") For i = 0 To xmlLst.Length - 1 Set subLst = xmlLst.item(i) santo_data = CDate(subLst.childNodes(0).childNodes(0).Text) atual_data = date() if (santo_data = atual_data) then Response.Write "

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

" end if Next %>