//	dailypic()
//	
//	Changes the displayed figure every day
//	Copyright Throstur Thorsteinsson

myndpre = "myndir/";
myndext = ".jpg";
myndext2 = "_small";
myndalisti = ["bears$Animals#Bears playing at Woodland Park Zoo, Seattle, WA.",
"bfly01$Animals#Butterfly at Woodland Park Zoo, Seattle, WA.",
"goldengat$Pictures#Driving over the Golden Gate Bridge, San Fransisco, CA.",
"winecount$Pictures#Vineyards in Napa valley, California.",
"hailcmt$Travel#Hailstorm at Crystal Mountain in July 1998, WA.",
"hofsjokull$Iceland#A view of Vatnajökull from the main highway in Iceland.",
"hridge$Pacific NW#The visitor center at Hurricane Ridge, Olympic National Park, WA.",
"iceland$Family#Þröstur Almar, summer 1998, in Iceland.",
"mtrainier$Pacific NW#The mighty Mt Rainier, WA.",
"groundh$Animals#At the Olympic Game farm, Olympic Peninsula, WA.",
"seattle$Seattle#Downtown Seattle, as seen from the hills of Magnolia, Seattle, WA.",
"skata$Animals#Flat fish at an aquarium in Oregon.",
"sunset_p$Pacific NW#Sunset over Juan de Fuca Strait, Olympic Peninsula, WA.",
"skrautond$Birds#A beutiful duck in Sonoma, CA.",
"watermt$Iceland#Water streaming out of the mountain side.",
"hridge$Pacific NW#The visitor center at Hurricane Ridge, Olympic Peninsula, WA.",
"spray$Iceland#The spray from Skógarfoss, south coast of Iceland.",
"tophridge$Pacific NW#Mountain view from Hurricane Ridge, Olympic Peninsula, WA.",
"iceland$Family#Our Son Þröstur Almar, summer 1998, in Icealand.",
"elephant_close$Animals#Watoto, a female African Elephant at Woodland Park Zoo, Seattle, WA.",
"winecount$Pictures#Vineyards in Napa valley wincountry, California.",
"oraefi$Iceland#Deep in Icelands inland.",
"skogarfoss$Iceland#Skógarfoss waterfall, on the south coast of Iceland.",
"landmlaugar$Iceland#Landmannalaugar, Iceland.",
"elephant_leafs$Animals#Watoto, a female African Elephant at Woodland Park Zoo, Seattle, WA.",
"landml1$Iceland#Landmannalaugar, Iceland.",
"skata$Animals#Flat fish at an aquarium in Oregon.",
"kirkja$Iceland#A dramatic setting for a church, on the south coast of Iceland.",
"aedarungar$Birds#Edgar chicks, on Tjörnin in Reykjavík, Iceland.",
"bears$Animals#Bears playing at Woodland Park Zoo.",
"gullfoss$Iceland#Gullfoss (the Golden waterfall), Iceland."];


function dailypic() {

itoday = new Date();
dagnr = itoday.getDate();

  s = myndalisti[dagnr];
  mynd1 = s.substring(0,s.lastIndexOf("$"))
  titill = s.substring(s.lastIndexOf("$")+1,s.lastIndexOf("#"));
  texti = s.substring(s.lastIndexOf("#")+1,s.lastIndexOf("."));

document.write("<IMG border=\"5\" ALT=\"For the full version and more pictures, \nclick on Pictures\" SRC=\""+myndpre+mynd1+myndext2+myndext+"\"><BR>");
document.write("<A HREF=\"pict_list.htm\"><FONT COLOR=\"Navy\" SIZE=\"-1\"><B>" +titill+ "</B></FONT></A>.  <FONT COLOR=\"Black\" SIZE=\"-1\">" +texti+ "</FONT>");

}