//Weather
//Programmed by David Carroll
//Ver 1.03 (August 7, 2005)
//***Begin Weather Code***

function setCookie(zip)
{
   var the_date = new Date("December 31, 2023");
   var the_cookie_date = the_date.toGMTString();
   var the_cookie = "zip_cookie=" + escape(zip) + ";expires=" + the_cookie_date;
   document.cookie = the_cookie;
}

function readCookie()
{
   var the_cookie = document.cookie;
   if (the_cookie != "")
   {
      var parsed_cookie = the_cookie.split("=");
      return parsed_cookie[1];
   }
   else
   {            
      return "22030";
   }
}

function preload_weather()
{
   var zip = readCookie();
   var wxport = new Image();
   wxport.src = "http://wxport.accuweather.com/wxpost/graphic.aspx?zipcode=" + zip + "&type=31&partner=13522";
}

function weather()
{
   var zip = readCookie();
   document.writeln('<a href="http://wwwa.accuweather.com/forecast.asp?zipcode=' + zip + '&partner=13522" name="wlink">'); 
   document.writeln('<img src="http://wxport.accuweather.com/wxpost/graphic.aspx?zipcode=' + zip + '&type=31&partner=13522" width="200" height="125" border="0" alt="WXPort" name="wgfx">');
   document.writeln('</a>');
}

function change_weather()
{
   var zip = window.document.wform.zipcode.value;
   setCookie(zip);
   window.document.wgfx.src = "http://wxport.accuweather.com/wxpost/graphic.aspx?zipcode=" + zip + "&type=31&partner=13522";
   if (window.document.all)
   {
      window.document.all.wlink.href = "http://wwwa.accuweather.com/forecast.asp?zipcode=" + zip + "&partner=13522";
   }
   else if ((navigator.appName == "Netscape") && (parseFloat(navigator.appVersion) < 5))
   {
      var i = 0;
      for (; i < window.document.links.length; i++)
	  {
 	     if (window.document.links[i].host == "wwwa.accuweather.com")
      	 {
      	    break;
   	     }
   	  }
      window.document.links[i].href = "http://wwwa.accuweather.com/forecast.asp?zipcode=" + zip + "&partner=13522";
   }
   else
   {	  
      window.document.links["wlink"].href = "http://wwwa.accuweather.com/forecast.asp?zipcode=" + zip + "&partner=13522";
   } 
}
//***End Weather Code***