<%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 8:39
Solen går ner 14:06

Nordlandergatan 10, 931 33 SKELLEFTEÅ