<%DIM mDag DIM mManad DIM strNamnsDag mdag =DatePart("d",Date()) mManad = DatePart("m",Date()) SELECT CASE mManad Case "1" SELECT CASE mDag Case "1" strNamnsDag = "Ingen" Case "2" strNamnsDag = "Svea" Case "3" strNamnsDag = "Alfred och Alfrida" Case "4" strNamnsDag = "Rut" Case "5" strNamnsDag = "Hanna och Hannele" Case "6" strNamnsDag = "Baltsar, Kasper och Melker" Case "7" strNamnsDag = "August och Augusta" Case "8" strNamnsDag = "Erland" Case "9" strNamnsDag = "Gunder och Gunnar" Case "10" strNamnsDag = "Sigbritt och Sigurd" Case "11" strNamnsDag = "Jan och Jannike" Case "12" strNamnsDag = "Frideborg och Fridolf" Case "13" strNamnsDag = "Knut" Case "14" strNamnsDag = "Felicia och Felix" Case "15" strNamnsDag = "Laura och Lorentz" Case "16" strNamnsDag = "Helmer och Hjalmar" Case "17" strNamnsDag = "Anton och Tony" Case "18" strNamnsDag = "Hilda och Hildur" Case "19" strNamnsDag = "Henrik" Case "20" strNamnsDag = "Fabian och Sebastian" Case "21" strNamnsDag = "Agnes och Agneta" Case "22" strNamnsDag = "Viktor och Vincent" Case "23" strNamnsDag = "Frej och Freja" Case "24" strNamnsDag = "Erika" Case "25" strNamnsDag = "Paul och Pål" Case "26" strNamnsDag = "Bodil och Boel" Case "27" strNamnsDag = "Göta och Göta" Case "28" strNamnsDag = "Karl och Karla" Case "29" strNamnsDag = "Diana" Case "30" strNamnsDag = "Gunhild och Gunilla" Case "31" strNamnsDag = "Ivar och Joar" END SELECT Case "2" SELECT CASE mDag Case "1" strNamnsDag = "Max och Maximllian" Case "2" strNamnsDag = "Ingen" Case "3" strNamnsDag = "Disa och Hjördis" Case "4" strNamnsDag = "Anselm och Ansgar" Case "5" strNamnsDag = "Agata och Agda" Case "6" strNamnsDag = "Doris och Dorotea" Case "7" strNamnsDag = "Dick och Rikard" Case "8" strNamnsDag = "Berta och Bert" Case "9" strNamnsDag = "Fanny och Franciska" Case "10" strNamnsDag = "Iris" Case "11" strNamnsDag = "Inge och Yngve" Case "12" strNamnsDag = "Evelina och Evy" Case "13" strNamnsDag = "Agne och Ove" Case "14" strNamnsDag = "Valentin" Case "15" strNamnsDag = "Sigfrid" Case "16" strNamnsDag = "Julia och Julius" Case "17" strNamnsDag = "Alexandra och Sandra" Case "18" strNamnsDag = "Frida och Fritjof" Case "19" strNamnsDag = "Ella och Gabriella" Case "20" strNamnsDag = "Vivianne" Case "21" strNamnsDag = "Hilding" Case "22" strNamnsDag = "Pia" Case "23" strNamnsDag = "Torsten och Torun" Case "24" strNamnsDag = "Mats och Mattias" Case "25" strNamnsDag = "Sigvard och Sivert" Case "26" strNamnsDag = "Torgny och Torkel" Case "27" strNamnsDag = "Lage" Case "28" strNamnsDag = "Maria" Case "29" strNamnsDag = "Ingen skottdagen" END SELECT Case "3" SELECT CASE mDag Case "1" strNamnsDag = "Elvira och Albin" Case "2" strNamnsDag = "Erna och Ernst" Case "3" strNamnsDag = "Gunborg och Gunvor" Case "4" strNamnsDag = "Adriana och Adrian" Case "5" strNamnsDag = "Tora och Tove" Case "6" strNamnsDag = "Ebba och Ebbe" Case "7" strNamnsDag = "Camilla" Case "8" strNamnsDag = "Siv" Case "9" strNamnsDag = "Torbjörn och Torleif" Case "10" strNamnsDag = "Ada och Edla" Case "11" strNamnsDag = "Edvin och Egon" Case "12" strNamnsDag = "Viktoria" Case "13" strNamnsDag = "Greger" Case "14" strNamnsDag = "Matilda och Maud" Case "15" strNamnsDag = "Christel och Kristoffer" Case "16" strNamnsDag = "Gilbert och Herbert" Case "17" strNamnsDag = "Gertrud" Case "18" strNamnsDag = "Edmund och Edvard" Case "19" strNamnsDag = "Josefina och Josef" Case "20" strNamnsDag = "Joakim och Kim" Case "21" strNamnsDag = "Bengt" Case "22" strNamnsDag = "Kennet och Kent" Case "23" strNamnsDag = "Gerd och Gerda" Case "24" strNamnsDag = "Gabriel och Rafael" Case "25" strNamnsDag = "Ingen" Case "26" strNamnsDag = "Emanuel" Case "27" strNamnsDag = "Ralf och Rudolf" Case "28" strNamnsDag = "Malkolm och Morgan" Case "29" strNamnsDag = "Jens och Jonas" Case "30" strNamnsDag = "Holger och Holmfrid" Case "31" strNamnsDag = "Ester" END SELECT Case "4" SELECT CASE mDag Case "1" strNamnsDag = "Harald och Hervor" Case "2" strNamnsDag = "Gudmund och Ingemund" Case "3" strNamnsDag = "Ferdinand och Nanna" Case "4" strNamnsDag = "Marianne och Marlene" Case "5" strNamnsDag = "Irene och Irja" Case "6" strNamnsDag = "Helmi och Vilhelm" Case "7" strNamnsDag = "Irma och Irmelin" Case "8" strNamnsDag = "Nadja och Tanja" Case "9" strNamnsDag = "Ottilia och Otto" Case "10" strNamnsDag = "Ingvor och Ingvar" Case "11" strNamnsDag = "Ylva och Ulf" Case "12" strNamnsDag = "Liv" Case "13" strNamnsDag = "Artur och Douglas" Case "14" strNamnsDag = "Tiburtius" Case "15" strNamnsDag = "Olivia och Olivier" Case "16" strNamnsDag = "Patricia och Patrik" Case "17" strNamnsDag = "Elias och Elis" Case "18" strNamnsDag = "Valdemar och Volmar" Case "19" strNamnsDag = "Ola och Olaus" Case "20" strNamnsDag = "Amalia och Amelie" Case "21" strNamnsDag = "Anneli och Annika" Case "22" strNamnsDag = "Allan och Glen" Case "23" strNamnsDag = "Georg och Göran" Case "24" strNamnsDag = "Vega" Case "25" strNamnsDag = "Markus" Case "26" strNamnsDag = "Terese och Teresia" Case "27" strNamnsDag = "Engelbrekt" Case "28" strNamnsDag = "Tyra och Ture" Case "29" strNamnsDag = "Tyko" Case "30" strNamnsDag = "Mariana" END SELECT Case "5" SELECT CASE mDag Case "1" strNamnsDag = "Valborg" Case "2" strNamnsDag = "Filip och Filippa" Case "3" strNamnsDag = "Jane och John" Case "4" strNamnsDag = "Mona och Monika" Case "5" strNamnsDag = "Erhard och Gotthard" Case "6" strNamnsDag = "Marit och Rita" Case "7" strNamnsDag = "Carina och Carita" Case "8" strNamnsDag = "Åke" Case "9" strNamnsDag = "Reidar och Reidun" Case "10" strNamnsDag = "Esbjörn och Styrbjörn" Case "11" strNamnsDag = "Märit och Märta" Case "12" strNamnsDag = "Charlotta och Lotta" Case "13" strNamnsDag = "Linn och Linnea" Case "14" strNamnsDag = "Halvar och Halvard" Case "15" strNamnsDag = "Sofia och Sonja" Case "16" strNamnsDag = "Ronald och Ronny" Case "17" strNamnsDag = "Rebecka och Ruben" Case "18" strNamnsDag = "Erik" Case "19" strNamnsDag = "Maj och Majken" Case "20" strNamnsDag = "Carola och Karolina" Case "21" strNamnsDag = "Conny och Konstantin" Case "22" strNamnsDag = "Hemming och Henning" Case "23" strNamnsDag = "Desideria och Desirée" Case "24" strNamnsDag = "Vanja och Ivan" Case "25" strNamnsDag = "Urban" Case "26" strNamnsDag = "Vilhelmina och Vilma" Case "27" strNamnsDag = "Beda och Blenda" Case "28" strNamnsDag = "Ingeborg och Borghild" Case "29" strNamnsDag = "Jeanette och Yvonne" Case "30" strNamnsDag = "Vera och Veronika" Case "31" strNamnsDag = "Pernilla och Petronella" END SELECT Case "6" SELECT CASE mDag Case "1" strNamnsDag = "Gun och Gunnel" Case "2" strNamnsDag = "Roger och Rutger" Case "3" strNamnsDag = "Gudmur och Ingemar" Case "4" strNamnsDag = "Solbritt och Solveig" Case "5" strNamnsDag = "Bo" Case "6" strNamnsDag = "Gustav och Gösta" Case "7" strNamnsDag = "Robert och Robin" Case "8" strNamnsDag = "Eivor och Majvor" Case "9" strNamnsDag = "Birger och Börje" Case "10" strNamnsDag = "Boris och Svante" Case "11" strNamnsDag = "Berthold och Bertil" Case "12" strNamnsDag = "Eskil" Case "13" strNamnsDag = "Aina och Aino" Case "14" strNamnsDag = "Håkan och Hakon" Case "15" strNamnsDag = "Margit och Margot" Case "16" strNamnsDag = "Axelina och Axel" Case "17" strNamnsDag = "Torborg och Torvald" Case "18" strNamnsDag = "Bjarne och Björn" Case "19" strNamnsDag = "Görel och Germund" Case "20" strNamnsDag = "Linda" Case "21" strNamnsDag = "Alf och Alvar" Case "22" strNamnsDag = "Paula och Paulina" Case "23" strNamnsDag = "Alice och Adolf" Case "24" strNamnsDag = "Ingen" Case "25" strNamnsDag = "David och Salomon" Case "26" strNamnsDag = "Lea och Rakel" Case "27" strNamnsDag = "Selma och Fingal" Case "28" strNamnsDag = "Leo" Case "29" strNamnsDag = "Petra och Peter" Case "30" strNamnsDag = "Elof och Leif" END SELECT Case "7" SELECT CASE mDag Case "1" strNamnsDag = "Mirjam och Aron" Case "2" strNamnsDag = "Rosa och Rosita" Case "3" strNamnsDag = "Aurora" Case "4" strNamnsDag = "Ulla och Ulrika" Case "5" strNamnsDag = "Laila och Ritva" Case "6" strNamnsDag = "Jessika och Esaias" Case "7" strNamnsDag = "Klas" Case "8" strNamnsDag = "Kjell" Case "9" strNamnsDag = "Jörgen och Örjan" Case "10" strNamnsDag = "André och Andrea" Case "11" strNamnsDag = "Eleonora och Ellinor" Case "12" strNamnsDag = "Hermine och Herman" Case "13" strNamnsDag = "Judit och Joel" Case "14" strNamnsDag = "Folke" Case "15" strNamnsDag = "Ragnhild och Ragnvald" Case "16" strNamnsDag = "Reine och Reinhold" Case "17" strNamnsDag = "Bruno" Case "18" strNamnsDag = "Fredrik och Fritz" Case "19" strNamnsDag = "Sara" Case "20" strNamnsDag = "Greta och Margareta" Case "21" strNamnsDag = "Johanna" Case "22" strNamnsDag = "Madeleine och Magdalena" Case "23" strNamnsDag = "Emma" Case "24" strNamnsDag = "Kerstin och Kristina" Case "25" strNamnsDag = "Jakob" Case "26" strNamnsDag = "Jesper" Case "27" strNamnsDag = "Marta" Case "28" strNamnsDag = "Botvid och Seved" Case "29" strNamnsDag = "Olof" Case "30" strNamnsDag = "Algot" Case "31" strNamnsDag = "Elin och Helena" END SELECT Case "8" SELECT CASE mDag Case "1" strNamnsDag = "Per" Case "2" strNamnsDag = "Kajsa och Karin" Case "3" strNamnsDag = "Tage" Case "4" strNamnsDag = "Arne och Arnold" Case "5" strNamnsDag = "Alrik och Ulrik" Case "6" strNamnsDag = "Inez och Alfons" Case "7" strNamnsDag = "Denise och Dennis" Case "8" strNamnsDag = "Silvia och Sylvia" Case "9" strNamnsDag = "Roland" Case "10" strNamnsDag = "Lars" Case "11" strNamnsDag = "Susanna" Case "12" strNamnsDag = "Klara" Case "13" strNamnsDag = "Kaj" Case "14" strNamnsDag = "Uno" Case "15" strNamnsDag = "Estelle och Stella" Case "16" strNamnsDag = "Brynolf" Case "17" strNamnsDag = "Valter och Verner" Case "18" strNamnsDag = "Ellen och Lena" Case "19" strNamnsDag = "Magnus och Måns" Case "20" strNamnsDag = "Bernahard och Bernt" Case "21" strNamnsDag = "Jonna och Jon" Case "22" strNamnsDag = "Henrietta och Henrika" Case "23" strNamnsDag = "Signe och Signhild" Case "24" strNamnsDag = "Bartolomeus" Case "25" strNamnsDag = "Louise och Lovisa" Case "26" strNamnsDag = "Östen" Case "27" strNamnsDag = "Raoul och Rolf" Case "28" strNamnsDag = "Gurli och Leila" Case "29" strNamnsDag = "Hampus och Hans" Case "30" strNamnsDag = "Albertina och Albert" Case "31" strNamnsDag = "Arvid och Vidar" END SELECT Case "9" SELECT CASE mDag Case "1" strNamnsDag = "Samuel" Case "2" strNamnsDag = "Justina och Justus" Case "3" strNamnsDag = "Alfhild och Alva" Case "4" strNamnsDag = "Gisela" Case "5" strNamnsDag = "Adela och Heidi" Case "6" strNamnsDag = "Lilian och Lilly" Case "7" strNamnsDag = "Regina och Roy" Case "8" strNamnsDag = "Alma och Hulda" Case "9" strNamnsDag = "Anita och Anette" Case "10" strNamnsDag = "Tord och Turid" Case "11" strNamnsDag = "Dagny och Helny" Case "12" strNamnsDag = "Åsa och Åslög" Case "13" strNamnsDag = "Sture" Case "14" strNamnsDag = "Ida" Case "15" strNamnsDag = "Sigrid och Siri" Case "16" strNamnsDag = "Daga och Dag" Case "17" strNamnsDag = "Hildegard och Magnhild" Case "18" strNamnsDag = "Orvar" Case "19" strNamnsDag = "Fredrika" Case "20" strNamnsDag = "Elise och Lisa" Case "21" strNamnsDag = "Matteus" Case "22" strNamnsDag = "Maurits och Moritz" Case "23" strNamnsDag = "Tea och Tekla" Case "24" strNamnsDag = "Gerhard och Gert" Case "25" strNamnsDag = "Tryggve" Case "26" strNamnsDag = "Einar och Enar" Case "27" strNamnsDag = "Dagmar och Rigmor" Case "28" strNamnsDag = "Lennart och Leonard" Case "29" strNamnsDag = "Mikaela och Mikael" Case "30" strNamnsDag = "Helge" END SELECT Case "10" SELECT CASE mDag Case "1" strNamnsDag = "Ragna och Ragnar" Case "2" strNamnsDag = "Love och Ludvig" Case "3" strNamnsDag = "Evald och Osvald" Case "4" strNamnsDag = "Frank och Frans" Case "5" strNamnsDag = "Bror" Case "6" strNamnsDag = "Jennifer och Jenny" Case "7" strNamnsDag = "Birgitta och Britta" Case "8" strNamnsDag = "Nils" Case "9" strNamnsDag = "Inger och Ingrid" Case "10" strNamnsDag = "Harriet och Harry" Case "11" strNamnsDag = "Erling och Jarl" Case "12" strNamnsDag = "Manfred och Valfrid" Case "13" strNamnsDag = "Berit och Birgit" Case "14" strNamnsDag = "Stellan" Case "15" strNamnsDag = "Hedvig och Hillevi" Case "16" strNamnsDag = "Finn" Case "17" strNamnsDag = "Antonia och Toini" Case "18" strNamnsDag = "Lukas" Case "19" strNamnsDag = "Tor och Tore" Case "20" strNamnsDag = "Sibylla" Case "21" strNamnsDag = "Ursula och Yrsa" Case "22" strNamnsDag = "Marika och Marita" Case "23" strNamnsDag = "Severin och Sören" Case "24" strNamnsDag = "Eilert och Evert" Case "25" strNamnsDag = "Inga och Ingalill" Case "26" strNamnsDag = "Amanda och Rasmus" Case "27" strNamnsDag = "Sabina" Case "28" strNamnsDag = "Simone och Simon" Case "29" strNamnsDag = "Viola" Case "30" strNamnsDag = "Elsa och Isabella" Case "31" strNamnsDag = "Edit och Edgar" END SELECT Case "11" SELECT CASE mDag Case "1" strNamnsDag = "Ingen" Case "2" strNamnsDag = "Tobias" Case "3" strNamnsDag = "Hubert och Hugo" Case "4" strNamnsDag = "Sverker" Case "5" strNamnsDag = "Eugenia och Eugen" Case "6" strNamnsDag = "Gustav Adolf" Case "7" strNamnsDag = "Ingegerd och Ingela" Case "8" strNamnsDag = "Vendela" Case "9" strNamnsDag = "Teodor och Teodora" Case "10" strNamnsDag = "Martina och Martin" Case "11" strNamnsDag = "Mårten" Case "12" strNamnsDag = "Konrad och Kurt" Case "13" strNamnsDag = "Krister och Kristian" Case "14" strNamnsDag = "Emilia och Emil" Case "15" strNamnsDag = "Leopold" Case "16" strNamnsDag = "Vibeke och Viveka" Case "17" strNamnsDag = "Maemi och Naima" Case "18" strNamnsDag = "Lillemor och Moa" Case "19" strNamnsDag = "Elisabet och Lisbet" Case "20" strNamnsDag = "Marina och Pontus" Case "21" strNamnsDag = "Helga och Olga" Case "22" strNamnsDag = "Cecilia och Sissela" Case "23" strNamnsDag = "Klemens" Case "24" strNamnsDag = "Gudrun och Rune" Case "25" strNamnsDag = "Katarina och Katja" Case "26" strNamnsDag = "Linus" Case "27" strNamnsDag = "Asta och Astrid" Case "28" strNamnsDag = "Malte" Case "29" strNamnsDag = "Sune" Case "30" strNamnsDag = "Anders och Andreas" END SELECT Case "12" SELECT CASE mDag Case "1" strNamnsDag = "Oskar och Ossian" Case "2" strNamnsDag = "Beata och Betrice" Case "3" strNamnsDag = "Lydia" Case "4" strNamnsDag = "Barbara och Barbro" Case "5" strNamnsDag = "Sven" Case "6" strNamnsDag = "Niklas och Nikolaus" Case "7" strNamnsDag = "Angela och Angelika" Case "8" strNamnsDag = "Virgina" Case "9" strNamnsDag = "Anna" Case "10" strNamnsDag = "Malena och Malin" Case "11" strNamnsDag = "Daniela och Daniel" Case "12" strNamnsDag = "Alexis och Alexander" Case "13" strNamnsDag = "Lucia" Case "14" strNamnsDag = "Sixten och Sten" Case "15" strNamnsDag = "Gottfrid" Case "16" strNamnsDag = "Assar" Case "17" strNamnsDag = "Stig" Case "18" strNamnsDag = "Abraham" Case "19" strNamnsDag = "Isak" Case "20" strNamnsDag = "Israel och Moses" Case "21" strNamnsDag = "Tomas" Case "22" strNamnsDag = "Jonatan och Natanael" Case "23" strNamnsDag = "Adam" Case "24" strNamnsDag = "Eva" Case "25" strNamnsDag = "Ingen" Case "26" strNamnsDag = "Staffan och Stefan" Case "27" strNamnsDag = "Johans och Johannes" Case "28" strNamnsDag = "Benjamin" Case "29" strNamnsDag = "Natalia och Natalie" Case "30" strNamnsDag = "Abel och Set" Case "31" strNamnsDag = "Sylvester" END SELECT END SELECT DIM iDag iDag = DatePart("w",Date()) SELECT CASE iDag Case "1" strDagNamn = "Söndag" Case "2" strDagNamn = "Måndag" Case "3" strDagNamn = "Tisdag" Case "4" strDagNamn = "Onsdag" Case "5" strDagNamn = "Torsdag" Case "6" strDagNamn = "Fredag" Case "7" strDagNamn = "Lördag" END SELECT Response.Write strDagNamn & " " & FormatDateTime(Date, vbLongDate) & "
" & strNamnsDag & " har namnsdag"%>
Solen går upp 5:00
Solen går ner 18:19

Gå till Balderskolans sidor

Förändringar

Här beskrivs de förändringar vi gör i hårdvara (givare m.m.) och i mjukvaran (program) som kan förändra väderdata.

Mars - juni 2005:
Ny design utvecklas för hemsidan.

10 januari 2005:
Ny kamera för visning av strömmande video installeras.

19 januari 2005:
Ordnat ny funktion för visning av statistik

26 oktober 2004:
Byte station för mätvärden till Davis Vantage Pro plus. Klarar även av UV-index, solstrålning och räknar ut kommande väder

24 februari 2004:
Installerat värme på regnmätare för att kunna få nederbördsmängd även på vintern

16 februari 2004:
Byte temperaturgivare

Maj 2003:
Justering av sidans utseende påverkar ej väderdata

Juni 2003: ( 3/6 2003)
Givare för mätning av vindhastighet uppflyttad ca 1,2 m för att den skall störas mindre av virvelvindar från taket

September - december 2003:
Byte utseende på hemsida och uppgradering programvara på mätdator

Juni 2002:
Strålningsskydd monterat på temperaturgivare.
Det minskar de toppar vi tidigare fått när solen har belyst givaren, dvs efter kl 19 på kvällen och före kl. 07 på morgonen!

 


Nordlandergatan 10, 931 33 SKELLEFTEÅ