<%
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
%>
<%
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%>
<% kali = kali + 1 rs.movenext loop rs.close %>
<%if ch = empty and session("filuserid") <> empty then ' add cal
%>
<% end if %>
<%=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 %>
<% 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 %>
<%
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) %>
<% next
rsc.close%>
<% if session("filuserid") <> empty then %>
v | M | T | O | T | F | L | S | <%=datepart("ww", PrintTheDay) %> | <% 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 %> | <%=sb %><%=TheDay %><%=qb %> | <% PrintTheDay = dateadd("d", 1, PrintTheDay) theMonth = Month(PrintTheDay) i = i + 1 if da1 = 1 then %>
<%=datepart("ww", PrintTheDay) %> | <% end if loop%>
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 %>