Select Case
Hej..!behöver hjälp med en select case sats!!
jag har gjort ett script som väljer ut dagens datum och dagens namn!!
men nu skulle jag vilja ha in ett par strängar till!!
t.ex en "Img" sträng så att jag kan visa en bild efter namnet samt en "alt" text till bilden...efter de dagar som skall ha en bild samt en alt text!!!
här kommer ett exempel på koden!!
--------------code----------------------
<%
Function Namnsdagar
Dim Namn,Img
strMan=datepart("m",date())
strDag=datepart("d",date())
strNamn=strMan & strDag
Select Case(strNamn)
'Januari
Case 11 Namn="Nyårsdagen"
Case 12 Namn="Svea"
Case 13 Namn="Alfred och Alfrida"
Case 14 Namn="Rut"
Case 15 Namn="Hanna och Hannele"
Case 16 Namn="Baltsar, Melker och Kasper"
Case 17 Namn="August och Augusta"
Case 18 Namn="Erland"
Case 19 Namn="Gunnar och Gunder"
Case 110 Namn="Sigurd och Sigbritt"
Case 111 Namn="Jan och Jannike"
Case 112 Namn="Frideborg och Fridolf"
Case 113 Namn="Knut"
Case 114 Namn="Felix och Felicia"
Case 115 Namn="Laura och Lorentz"
Case 116 Namn="Hjalmar och Helmer"
Case 117 Namn="Anton och Tony"
Case 118 Namn="Hilda och Hildur"
Case 119 Namn="Henrik"
Case 120 Namn="Fabian och Sebastian"
Case 121 Namn="Agnes och Agneta"
Case 122 Namn="Vincent och Viktor"
Case 123 Namn="Frej och Freja"
Case 124 Namn="Erika"
Case 125 Namn="Paul och Pål"
Case 126 Namn="Bodil och Boel"
Case 127 Namn="Göte och Göta"
Case 128 Namn="Karl och Karla"
Case 129 Namn="Diana"
Case 130 Namn="Gunhild och Gunilla"
Case 131 Namn="Ivar och Joar"
'Februari
Case 21 Namn="Max och Maximilian"
Case 22 Namn="Kyndelsmässodagen"
Case 23 Namn="Disa och Hjördis"
End Select
response.write "<b>Dagens namn:<a href='http://www.fidonet.pp.se/namnsdagar.php3' Target='_blank'> " & Namn&"</a></b>"
End Function
-----------end code
