<% Function FormataDataAstor(data) data = right((100 + year(data)),2) & right((100 + month(data)),2) & right((100 + day(data)),2) FormataDataAstor = data end function function Diadasemana(data) dim odia If data = date+1 Then odia = "Amanhã" ElseIf data = date Then odia = "Hoje" Else Select case Weekday(data) case 1 odia = "Domingo" case 2 odia = "Segunda-feira" case 3 odia = "Terça-feira" case 4 odia = "Quarta-feira" case 5 odia = "Quinta-feira" case 6 odia = "Sexta-feira" case 7 odia = "Sabado" End select End if Diadasemana = odia End function Function GetHTML(strURL) on error resume next Dim objXMLHTTP, strReturn Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") objXMLHTTP.Open "GET", strURL, False objXMLHTTP.Send strReturn = objXMLHTTP.responseText Set objXMLHTTP = Nothing GetHTML = strReturn End Function 'Trocar por onde está o WebService myurl = trim("http://189.56.59.44/cgi-bin/destino_xml.cgi") 'Response.Write myurl XML_WS = GetHTML(myurl) %>

		Selecione <% Set oXMLDoc = Server.CreateObject("Microsoft.XMLDOM") oXMLDoc.async = False oXMLDoc.loadXML(XML_WS) If oXMLDoc.parseError.errorCode = 0 and oXMLDoc.readyState=4 Then Set raiz = oXMLDoc.documentElement For i = 0 to (raiz.childNodes.length - 1) %> <%=raiz.childNodes.item(i).childNodes.item(0).text%> <% Next Else 'Response.Write oXMLDoc.parseError.errorCode & " " End if Set oXMLDoc = Nothing Set raiz = nothing %>
		<% Zero = 0 For i= 0 to 31 %> <%= date+i %> <%Next %>