<%@LANGUAGE ="VBScript.Encode" CODEPAGE=1254%> <% if request("id")<>"" then value_id=request("id") end if setPage = "event.asp" value_link1="" value_link3= chr(34)&" class='ver12b'>" value_link4="" MonthArry = Array("Ocak","Şubat","Mart","Nisan","Mayıs","Haziran","Temmuz","Ağustos","Eylül","Ekim","Kasım","Aralık") 'WeekdayArry = Array("Pts","Sal","Çar","Per","Cum","Cts","Paz","") WeekdayArry = Array("Pazartesi","Salı","Çarşamba","Perşembe","Cuma","Cumartesi","Pazar","") %> :: Op. Dr. Hakan Teoman Yanar ::
 
 


Prof. Dr. Cemalettin Ertekin

Prof. Dr. Korhan Taviloğlu
Ulusal Travma ve Acil Cerrahi Derneği
Obezite Cerrahisi
Procto.com
Yoursurgery.com
Laparoskopi.com
Surgerychannel.com
Türk-Medline
Medscape
Journal of Trauma
Pubmed
Johns Hopkinks


 

<%if tempMonth = month(date) then %> <%end if %>
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 %> <%do while StartDay<=EndDay%> <%if gunler=false then%> <%for i=0 to 6%> <%next gunler=True %> <%else %> <%for i=2 to 8%> <%next %> <%end if%> <%loop %>
« <%=MonthArry(Month(MyDate)-1)%> <%=year(MyDate)%> »
<%if i<=7 then%> <%=WeekdayArry(i)%> <%else%> <%=WeekdayArry(1)%> <%end if%>
<%if i<=7 then%> <%current_day(i)%> <%else%> <%current_day(1)%> <%end if%>
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()) %> <%for i=0 to 6%> <% next %>
<%'=MonthArry(Month(MyDate)-1)%>  <%=year(MyDate)%> <%="[ " & datepart("ww",date()) & ".Hafta ]"%> 
<%=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)) )%>