|
|
 |
 |
|
 |
| Etkinlik Takvimi |
: Bu Ay |
<%
SetLocale("en-gb")
if request("cur_date")="" then
MyDate1=date()
else
MyDateArry = request("cur_date")
MyDateArry = Split(MyDateArry,"/")
MyDate1 = DateSerial(MyDateArry(2),MyDateArry(0),MyDateArry(1))
if request("action")="addmonth" then
MyDate1=DateAdd("m", 1, MyDate1)
elseif request("action")="removemonth" then
MyDate1=DateAdd("m", -1, MyDate1)
end if
end if
TempMonth=month(MyDate1)
TempYear=year(MyDate1)
if TempMonth=month(date) and TempYear=year(date) then
TempDay=day(date)
end if
MyDate = DateSerial(TempYear, TempMonth + 1, 1 - 1)
MyDate2 = DateSerial(TempYear, TempMonth,1)
EndDay=day(MyDate)
StartDay=1
MyWeekDay = Weekday(MyDate2)
MyDateLink=Month(MyDate2)&"/"&Day(MyDate2)&"/"&year(MyDate2)
MyDateLink=Server.UrlEncode(MyDateLink)
sub current_day(gun)
if StartDay=1 then
if MyWeekDay=gun then
if gun=1 or gun=7 then
Response.Write ""&value_link1&TempMonth&"/"&StartDay&"/"&TempYear&value_link2&StartDay&value_link4&""
else
response.write value_link1&TempMonth&"/"&StartDay&"/"&TempYear&value_link3&StartDay&value_link4
end if
getEvents(StartDay & "_" & tempMonth)
StartDay=StartDay+1
else
response.write " "
end if
else
if StartDay<=EndDay then
if TempDay=StartDay then
Response.Write ""&value_link1&TempMonth&"/"&StartDay&"/"&TempYear&value_link2&StartDay&value_link4&""&" { bugün }"
elseif gun=1 or gun=7 then
Response.Write ""&value_link1&TempMonth&"/"&StartDay&"/"&TempYear&value_link2&StartDay&value_link4&""
else
response.write "" & value_link1&TempMonth&"/"&StartDay&"/"&TempYear&value_link3&StartDay&value_link4 &""
end if
getEvents(StartDay & "_" & tempMonth)
StartDay=StartDay+1
else
response.write " "
end if
end if
end sub
gunler=false
ConnOpen
sqlDate = "((evDate>(dateserial("&tempYear&", "&tempMonth&", 1-8))) and"&_
" (evDate<(dateserial("&tempYear&", "&tempMonth&"+1, 10))))"
SET RS = ConnExec("SELECT * FROM EventItems WHERE (Auth=1) and " & sqlDate) '(month(dateAdd(evDate)="& tempMonth & " and year(evDate)="&tempYear&")")
Set iDays = Server.CreateObject("Scripting.Dictionary")
do while not(rs.eof)
itx = day(rs("evDate")) & "_" & month(rs("evDate"))
itx = Cstr(itx)
if not(iDays.Exists(itx)) then
iDays.Add itx, Cstr(StrCrop(rs("itTitle"),15))
else
iDays(itx) = iDays(itx) & "
" & Cstr(StrCrop(rs("itTitle"),15))
end if
rs.movenext()
loop
sub getEvents(gun)
On Error Resume Next
if gun="" then exit sub
response.write "
"
gun = Cstr(gun)
if iDays.Exists(gun) then response.write "" & iDays(gun) & ""
end sub
%>
| « <%=MonthArry(Month(MyDate)-1)%> <%=year(MyDate)%> »
|
<%do while StartDay<=EndDay%>
<%if gunler=false then%>
<%for i=0 to 6%>
|
<%if i<=7 then%>
<%=WeekdayArry(i)%>
<%else%>
<%=WeekdayArry(1)%>
<%end if%>
|
<%next
gunler=True %>
<%else %>
<%for i=2 to 8%>
|
<%if i<=7 then%>
<%current_day(i)%>
<%else%>
<%current_day(1)%>
<%end if%>
|
<%next %>
<%end if%>
<%loop %>
|
<%if tempMonth = month(date) then %>
| Etkinlik Takvimi |
: Bu Hafta |
<%
StartDay = 1
weDay = datepart("w",date())
if weday =1 then
fark = -6
elseif weday >2 then
fark = Cint("-" & (weDay - 2))
else
fark = 0
end if
fistWeDay = dateAdd("d", fark, date())
%>
|
<%'=MonthArry(Month(MyDate)-1)%>
<%=year(MyDate)%> <%="[ " & datepart("ww",date()) & ".Hafta ]"%> |
<%for i=0 to 6%>
| <%=WeekdayArry(i)%> |
" class="ver12"><%=day(dateAdd("d",i,fistWeDay))%><%if dateAdd("d",i,fistWeDay) = date() then response.write(" [bugün]")%>
<%getEvents( day(dateAdd("d",i,fistWeDay)) & "_" & month(dateAdd("d",i,fistWeDay)) )%> |
<%
next %>
|
<%end if %>
|
|
|
|
| |
|
|
|
