اتصل بنا l بيان الخصوصية

<% If IsDate(Trim(Request.QueryString("sDate"))) Then datSDate = CDate(Trim(Request.QueryString("sDate"))) ElseIf IsDate(Trim(Request.QueryString("date"))) Then datSDate = CDate(Trim(Request.QueryString("date"))) Else datSDate = date End If If IsDate(Trim(Request.QueryString("date"))) Then dDate = CDate(Trim(Request.QueryString("date"))) Else dDate = Date End If 'Now we've got the date. Now get Days in the choosen month and the day of the week it starts on. iDIM = GetDaysInMonth(Month(dDate), Year(dDate)) iDOW = GetWeekdayMonthStartsOn(dDate) %>

<% ' Write spacer cells at beginning of first row if month doesn't start on a Sunday. If iDOW <> 1 Then Response.Write vbTab & "" & vbCrLf iPosition = 1 Do While iPosition < iDOW Response.Write vbTab & vbTab & "" & vbCrLf iPosition = iPosition + 1 Loop End If ' Write days of month in proper day slots iCurrent = 1 iPosition = iDOW Set rsCal = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM tbl_calendar WHERE schDate = #"&datSDate&"# ORDER BY schDate ASC;" rsCal.Open strSQL, objConn, 3, 3, &H0001 Do While iCurrent <= iDIM ' If we're at the begginning of a row then write TR If iPosition = 1 Then Response.Write vbTab & "" & vbCrLf End If If Not rsCal.EOF Or rsCal.BOF Then Else rsCal.MoveFirst End If sDate = CDate(Month(dDate) & "/" & iCurrent & "/" & Year(dDate)) blnDBDate = schedCheck(sDate) If blnDBDate Then 'highlight users scheduled dates Response.Write vbTab & vbTab & "" & vbCrLf ElseIf Cdate(DateSerial(year(dDate),month(dDate),iCurrent)) = date Then 'highlight todays date Response.Write vbTab & vbTab & "" & vbCrLf Else 'Rest of the days in the month Response.Write " " & vbCrLf End If ' If we're at the endof a row then write /TR If iPosition = 7 Then Response.Write vbTab & "" & vbCrLf iPosition = 0 End If ' Increment variables iCurrent = iCurrent + 1 iPosition = iPosition + 1 Loop ' Write spacer cells at end of last row if month doesn't end on a Saturday. If iPosition <> 1 Then Do While iPosition <= 7 Response.Write vbTab & vbTab & "" & vbCrLf iPosition = iPosition + 1 Loop Response.Write vbTab & "" & vbCrLf End If %>   <%= MonthName(Month(dDate)) & " " & Year(dDate) %>   الأحد الإثنين الثلاثاء الأربعاء الخميس الجمعة السبت   " & vbcrlf Response.Write "" Response.Write "" & iCurrent & " " & iCurrent & " " & vbcrlf Response.Write " " & iCurrent & "

<% If strLetUsers Then %> <% End If %> <% Response.Write "" & strMSG & "

" & vbcrlf If rsCal.RecordCount > 0 AND rsCal.EOF Then rsCal.MoveFirst blnMCheck = schedMCheck(sDate) If blnMCheck Then Response.Write "" & vbcrlf End If If Trim(Request.QueryString("sched")) = "yes" Then %>

Event Name:
Date:	<% selectDate() %>
Comments	(You May Enter Up To 100 Characters) Characters Left

<% End If If Request.QueryString("view") = "yes" Then If rsCal.Recordcount = 0 Then Else rsCal.MoveFirst Do While NOT rsCal.EOF If NOT rsCal.EOF AND CDate(Trim(Request.QueryString("sdate"))) = CDate(Trim(rsCal("schDate"))) Then Response.Write "" Do While NOT rsCal.EOF If CDate(rsCal("schDate")) = CDate(Request.QueryString("sdate")) Then %>

التاريخ :	<%= rsCal("schDate") %>
اسم الحدث :	<%= rplStringOut(rsCal("event")) %>
التفاصيل :	<%= rplStringOut(rsCal("text")) %>

<% If strLetUsers Then %> <% End If %>

<% End If rsCal.MoveNext Loop End If If rsCal.EOF Then exit do Else rsCal.MoveNext End If Loop End If End If rsCal.Close: Set rsCal = Nothing closeConn %>