<% startdag = request("startdag") ch = request("ch") if startdag = empty then startdag = date() end if StartDay = Day(startdag) StartMonth = Month(startdag) pagetitel = "Kalender på " %>
<% if ch <> empty and session("filuserid") <> empty then sql = "select * from ord_calendar where cal_id = '" & ch & "' and cal_user_id = '" & session("filuserid") & "'" rs.open sql, conn, 1, 3 if not rs.eof then %>
Ändra: [Lägg till ny]
Rubrik:
" size="27" maxlength="50">
Mer information:

Datum:

<% if session("vip") = "on" then%> checked<%end if %>> Läsbar för alla
checked<%end if %>> Läsbar endast för ordare (blå text)
checked<%end if %>> Läsbar endast för dig (röd text)
<% else %> <% end if %> [')">Ta bort]
<% else ch = empty end if rs.close end if %>
Ordkalender <% if session("filuserid") = empty then sql = "select ord_calendar.*, users.namn, users.slug from ord_calendar left join users on users.id = ord_calendar.cal_user_id where ord_calendar.cal_date >= '" & startdag & "' and cal_status = 0 order by ord_calendar.cal_date" else sql = "select ord_calendar.*, users.namn, users.slug from ord_calendar left join users on users.id = ord_calendar.cal_user_id where ord_calendar.cal_date >= '" & startdag & "' and (cal_status <= 1 or (cal_status = 2 and cal_user_id='" & session("filuserid") & "')) order by ord_calendar.cal_date" end if month_today = month(date()) rs.open sql, conn, 1, 3 kali = 0 visa_vecka = "" visa_monad = "" do while (kali < 10 and not rs.eof ) if visa_monad <> month(rs("cal_date")) then %>
<%=monad_long(month(rs("cal_date"))) %> <%=year(rs("cal_date")) %>
<%visa_monad = month(rs("cal_date")) end if if rs("cal_status") = 1 then cal_bold_s = "" cal_bold_q = "" kalenderbakgrund = "class=kalenderbakgrundonord" elseif rs("cal_status") = 2 then cal_bold_s = "" cal_bold_q = "" kalenderbakgrund = "class=kalenderbakgrundonprivat" else cal_bold_s = empty cal_bold_q = empty kalenderbakgrund = "" end if%>
><%=cal_bold_s %><%=rs("cal_topic") %><%=cal_bold_q %> - <%=datum_kort(rs("cal_date")) %>
<% if rs("cal_info") <> empty then cal_info = Server.HTMLEncode(rs("cal_info"))%> <%=replace(cal_info, chr(10), "
") %>
<% end if %> Postat av: "><%= rs("namn") %> <% if int(session("filuserid")) = rs("cal_user_id") then %>">[Ändra]<% end if %>

<% kali = kali + 1 rs.movenext loop rs.close %>
<%if ch = empty and session("filuserid") <> empty then ' add cal %>
Lägg till ny
Rubrik:

Mer information:

Datum:

<% if session("vip") = "on" then%> Läsbar för alla
Läsbar endast för ordare (blå text)
Läsbar endast för dig (röd text)
<% else %> <% end if %>
<% end if %>
<% Set rsc = Server.CreateObject("ADODB.Recordset") PrintTheDay = dateserial(year(date()), month(date()), 1) if session("filuserid") = empty then sql = "select cal_date from ord_calendar where cal_date >= '" & PrintTheDay & "' and cal_status = 0 group by cal_date order by cal_date" else sql = "select cal_date from ord_calendar where cal_date >= '" & PrintTheDay & "' and (cal_status <= 1 or (cal_status = 2 and cal_user_id='" & session("filuserid") & "')) group by cal_date order by cal_date" end if rsc.open sql, conn, 1, 3 for vecka = 0 to 2 PrintTheDay = dateserial(year(date()), month(date()), 1) PrintTheDay = dateadd("m", vecka, PrintTheDay) TheDay= Day(PrintTheDay) da1 = DatePart("w", PrintTheDay) i = 0 theMonth = Month(PrintTheDay) theMonth2 = Month(PrintTheDay) k = 2 %>
<%=monad_long(theMonth) %> <% if da1 = 1 then da1 = 8 end if do while k < da1 %> <% k = k + 1 loop do while TheMonth = theMonth2 TheDay= Day(PrintTheDay) da1 = DatePart("w", PrintTheDay) sb = "" qb = "" if not rsc.eof then TestDay = day(rsc("cal_date")) TestMonth = month(rsc("cal_date")) if TheDay = TestDay and theMonth = TestMonth then sb = "" qb = "" rsc.movenext end if end if if TheDay = StartDay and theMonth = StartMonth then kalenderstyle="kalendertabactive" elseif PrintTheDay = Date() then kalenderstyle="kalendertabtoday" elseif PrintTheDay < Date() then kalenderstyle="kalendertabold" else kalenderstyle="kalendertabfuture" end if %> <% PrintTheDay = dateadd("d", 1, PrintTheDay) theMonth = Month(PrintTheDay) i = i + 1 if da1 = 1 then %> <% end if loop%>
v MTOTFLS
<%=datepart("ww", PrintTheDay) %><%=sb %><%=TheDay %><%=qb %>
<%=datepart("ww", PrintTheDay) %>
<% next rsc.close%> <% if session("filuserid") <> empty then %>
Ps. du vet väl att du med SP kan skapa privata händelser i kalendern som bara Ordare eller du och ingen annan kan se.
<%end if %>
<% conn.close %>