<% 'defeniera dagar: dagnamn = array("x","Sön","Mån","Tis","Ons","Tor","Fre","Lör") monthnamn = array("x","Januari","Februari","Mars","April","Maj","Juni","Juli","Augusti","September","Oktober","November","December") monthdays = array(0,31,28,31,30,31,30,31,31,30,31,30,31) idagyear = DatePart("YYYY", Date) idagmonth = DatePart("M", Date) idagdag = DatePart("D", Date) idagdagnamn = DatePart("W", Date) 'Om skottår... monthdays2 = array(0,31,29,31,30,31,30,31,31,30,31,30,31) skott = array(2004,2004,2008,2012,2016,2020) dubbelyear = 0 For y = 0 to UBound(skott) If skott(y) = idagyear then monthdays = monthdays2 Next 'kolla om det behövs hämta data ur två månadsfiler... If monthdays(idagmonth) - idagdag < 6 then dubbel = 1 If idagmonth = 12 then dubbelyear = 1 End If else dubbel = 0 end if %> <% 'Hämta data! 'hämta och lista datan: 'Defeniera sökväg path = Server.MapPath("/bgoif/kalendarium") fil_1 = path & "/" & idagyear &"/" & idagmonth 'Skapa serverobjekt Set T_Obj = Server.CreateObject("Scripting.FileSystemObject") 'Metod_läs från fil Set fromfile = T_Obj.OpenTextFile(fil_1, 1, true) 'Läs från filen in i textrad() 'Dim radnr ReDim textrad_1(50) radnr = 0 'går igenom filen While not fromfile.AtEndOfStream text = fromfile.ReadLine If Len(text) <> 0 then textrad_1(radnr) = text radnr = radnr + 1 End If Wend 'stäng filen fromfile.Close Set T_Obj = Nothing set fromfile=nothing %> <% 'Hämta data från nästa månad om det behövs! if dubbel = 1 then 'hämta och lista datan: nextmonth = idagmonth + 1 if nextmonth = 13 then nextmonth = 1 'Defeniera sökväg path = Server.MapPath("/bgoif/kalendarium") If dubbelyear = 1 then fil_2 = path & "/" & (idagyear + 1) & "/" &nextmonth else fil_2 = path & "/" & idagyear &"/" & nextmonth End if 'Skapa serverobjekt Set T_Obj = Server.CreateObject("Scripting.FileSystemObject") 'Metod_läs från fil Set fromfile = T_Obj.OpenTextFile(fil_2, 1, true) 'Läs från filen in i textrad() 'Dim radnr ReDim textrad_2(50) radnr = 0 'går igenom filen While not fromfile.AtEndOfStream text = fromfile.ReadLine If Len(text) <> 0 then textrad_2(radnr) = text radnr = radnr + 1 End If Wend 'stäng filen fromfile.Close Set T_Obj = Nothing end if %> <% 'Skapa texter som kommer med: ReDim textdag(7) ReDim textdatum(7) ReDim textdagnamn(7) ReDim textdagmonth(7) 'Om det är två månader det sträcker sig över: If dubbel = 1 then kalenderdag = 0 For n = idagdag to monthdays(idagmonth) kalenderdag = kalenderdag + 1 'Sätt texterna textdag(kalenderdag) = textrad_1(n - 1) 'Sätt datum textdatum(kalenderdag) = n 'Sätt månadsnummer textdagmonth(kalenderdag) = idagmonth 'Sätt veckodag 'nyttdatum = idagmonth & "/" & n & "/" & idagyear nyttdatum = n & "/" & idagmonth & "/" & idagyear textdagnamn(kalenderdag) = dagnamn(Cint(DatePart("W", Cstr(nyttdatum)))) Next '----- temp = kalenderdag If idagmonth = 12 then nextyear = idagyear + 1 else nextyear = idagyear End if '----- For n = 1 to 7 - temp kalenderdag = kalenderdag + 1 'Sätt texterna textdag(kalenderdag) = textrad_2(n - 1) 'Sätt datum textdatum(kalenderdag) = n 'Sätt månadsnummer textdagmonth(kalenderdag) = nextmonth 'Sätt veckodag 'nyttdatum = nextmonth & "/" & n & "/" & nextyear nyttdatum = n & "/" & nextmonth & "/" & nextyear textdagnamn(kalenderdag) = dagnamn(Cint(DatePart("W", Cstr(nyttdatum)))) Next End if If dubbel = 0 then kalenderdag = 0 For n = idagdag to (idagdag + 6) kalenderdag = kalenderdag + 1 'Sätt texterna textdag(kalenderdag) = textrad_1(n - 1) 'Sätt datum textdatum(kalenderdag) = n 'Sätt månadsnummer textdagmonth(kalenderdag) = idagmonth 'Sätt veckodag 'nyttdatum = idagmonth & "/" & n & "/" & idagyear nyttdatum = n & "/" & idagmonth & "/" & idagyear textdagnamn(kalenderdag) = dagnamn(Cint(DatePart("W", Cstr(nyttdatum)))) 'Response.write kalenderdag Next End if %>

<%=textdagnamn(1)%> <%=textdatum(1)%>/<%=textdagmonth(1)%> <%=textdagnamn(2)%> <%=textdatum(2)%>/<%=textdagmonth(2)%> <%=textdagnamn(3)%> <%=textdatum(3)%>/<%=textdagmonth(3)%> <%=textdagnamn(4)%> <%=textdatum(4)%>/<%=textdagmonth(4)%> <%=textdagnamn(5)%> <%=textdatum(5)%>/<%=textdagmonth(5)%> <%=textdagnamn(6)%> <%=textdatum(6)%>/<%=textdagmonth(6)%> <%=textdagnamn(7)%> <%=textdatum(7)%>/<%=textdagmonth(7)%> <%=textdag(1)%>  <%=textdag(2)%>  <%=textdag(3)%>  <%=textdag(4)%>  <%=textdag(5)%>  <%=textdag(6)%>  <%=textdag(7)%>  << Läs hela kalendariet >>