Mountain Grove Campus

Headlines

Loading

Upcoming events

Loading Calendar. . .
loading

Campus facilities

Current temperature

<% 'Load XML file dim xmlDoc, objLst, i set xmlDoc = Server.CreateObject("Microsoft.XMLDOM") xmlDoc.async = false xmlDoc.setProperty "ServerHTTPRequest", true xmlDoc.load("http://agebb.missouri.edu/weather/xml/current/mtgRealTime.xml") if xmlDoc.parseError.errorcode<>0 then 'error handling code 'response.write xmlDoc.parseError else 'Transform file Response.write "  " Set objLst = xmlDoc.getElementsByTagName("*") For i = 0 to (objLst.length-1) If objLst.item(i).nodeName = "currentTemperatureF" Then response.write objLst.item(i).text Exit For End If Next Response.write "°F" end if %>