--- title: "Kalenderbekymmer" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/8161-kalenderbekymmer" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "jonne" published: "2001-02-15T15:50:00.000Z" updated: "2001-02-15T15:50:00.000Z" replies: 0 views: 114 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/8161-kalenderbekymmer" --- # Kalenderbekymmer ## #1 — jonne, 2001-02-15T15:50Z Har snickart lite fram och tillbaka på en kalander som ska visa dagens nummer med fet stil om det finns någon post i databasen som matchar. Fungerar som det ska för Februari MEN inte för resterade månader. Någon som orkar kolla igonom det hela. Datum i databas: ``` ID Actiontime 1 2001-02-12 2 2001-02-18 3 2001-02-24 4 2001-02-12 7 2001-03-15 8 2001-03-18 9 2001-02-10 10 2001-02-19 11 2001-04-20 12 2001-03-24 14 2001-04-15 ``` Kalender.asp ``` <%@LCID=1053%> Event Calendar <% If Request("EventDate") <> "" Then EventDate = DateValue(Request("EventDate")) Else EventDate = date End if CurrentMonth = Month(EventDate) CurrentMonthName = MonthName(CurrentMonth) CurrentYear = Year(EventDate) FirstDayDate = DateSerial(CurrentYear, CurrentMonth, 1) FirstDay = WeekDay(FirstDayDate, 0) CurrentDay = FirstDayDate Set cn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") cn.Open = "DSN=intranet" strSQL = "SELECT DISTINCT Actiontime FROM tblCalendar" rs.open strSQL,cn,adOpenStatic, adLockOptimistic %>

  Calendar
">  ">  <%= UCase(CurrentMonthName) %>  
 
<% For DayLoop = 1 to 7%> <% Next%> <% CorrectMonth = False DayCounter = 1 %> <% If FirstDay <> 1 Then %> <% rs.movenext %> <%else%> <%end if%> <% DayCounter = DayCounter + 1 If DayCounter > 7 then DayCounter = 1 %> <% End if CurrentDay = DateAdd("d", 1, CurrentDay) If Month(CurrentDay) <> CurrentMonth then CorrectMonth = False End if Loop %> <% IF DayCounter <> 1 Then%> <% End if%>
<%= Left(WeekDayName(Dayloop, True, 0),1)%>
<% End if DayCounter = FirstDay CorrectMonth = True Do While CorrectMonth = True or rs.eof %> <%if rs("actiontime") = currentday then%> "><%=Day(CurrentDay)%><%=Day(CurrentDay)%>
 
 Add event		  
 
``` Permalänk: https://www.webforum.nu/p/8161 --- Tråden på webben: https://www.webforum.nu/amne/asp/8161-kalenderbekymmer