Weather Forecast Source Code - ASP / XSL

<%
'Below I figure out what the current date is. The NWS SOAP Server wants a from date as xsd date or yyyy-mm-dd.

datToday = Date()
dateday = Day(datToday)
datemonth = Month(datToday)
dateyear = Year(datToday)
whatdate = dateyear & "-" & datemonth & "-" & dateday

'Page content set to xml and set to no cache.
  
Response.CacheControl = "no-cache"
Response.ContentType = "text/xml"

'Below sets Microsoft xmlhttp object.

Set ht = Server.CreateObject ("MSXML2.ServerXMLHTTP")

'Below compiles the SOAP request to NWS. You will need to replace "your latitude", "your longitude", and "your number of days" with your data. If you dont know you lat and long go to http://localhost/jason/geozip.asp. Note "your number of days" can be a value between 3 and 7 I beleive.
  
  tq = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""no"" ?>" _
  & "<SOAP-ENV:Envelope xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:si=""http://soapinterop.org/xsd"" xmlns:tns=""http://www.weather.gov/forecasts/xml/DWMLgen/wsdl/ndfdXML.wsdl"" xmlns:typens=""http://www.weather.gov/forecasts/xml/DWMLgen/schema/DWML.xsd"" xmlns:soap=""http://schemas.xmlsoap.org/wsdl/soap/"" xmlns:wsdl=""http://schemas.xmlsoap.org/wsdl/"" xmlns:SOAP-ENC=""http://schemas.xmlsoap.org/soap/encoding/"">" _
  & "<SOAP-ENV:Body>" _
  & "<mns:NDFDgenByDay xmlns:mns=""http://www.weather.gov/forecasts/xml/DWMLgen/wsdl/ndfdXML.wsdl"" SOAP-ENV:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/"">" _
  & "<latitude xsi:type=""xsd:decimal"">your latitude</latitude>" _ 
  & "<longitude xsi:type=""xsd:decimal"">your longitude</longitude>" _
  & "<startDate xsi:type=""xsd:date"">" & whatdate & "</startDate>" _
  & "<numDays xsi:type=""xsd:integer"">your number of days</numDays>" _
  & "<format xsi:type=""typens:formatType"">12 hourly</format>" _
  & "</mns:NDFDgenByDay>" _
  & "</SOAP-ENV:Body>" _
  & "</SOAP-ENV:Envelope>"

'Below sends request
  
  ht.Open "POST", "http://www.weather.gov/forecasts/xml/SOAP_server/ndfdXMLserver.php", false
  ht.Send tq
  
'Below opens the response and seperates out the xml from the SOAP envelope.

htresult = ht.responsexml.xml
  Set xd = Server.CreateObject ("Microsoft.XMLDOM")
  xd.async = "false"
  xd.loadXML(htresult)
  htdude = xd.getElementsByTagName("dwmlByDayOut").item(0).text

'Code below inserts a link to the xsl style sheet. Modern browsers will do the rest.

a = htdude
  pos = Instr(a,">")
  b = Left(a,pos) & "<?xml-stylesheet type=""text/xsl"" href=""forecast.xsl""?" & Mid(a,pos)
  Response.Write b
  
  Set xd = Nothing 
  Set ht = Nothing
%>

Weather Tips, Tricks, and Fine Print

This is basic data and not for navigation. Data may not be reliable. In other words no one should depend their life on this data. If you are going to use it on your web site you should disclaim the data.
Feel free to use this data for your website however data not for re-sale.

The Weather Data source is the NWS. Before you use the data please read the NWS Disclaimer.