desiwww.Com - The Best Site for Indians in the US

<%@ LANGUAGE=VBSCRIPT %> <%Option Explicit%> <% Response.Buffer=True %> <% Dim iDay, iMonth, iYear ,iMonthIncr,curmon 'iMonthIncr=iMonth dim reqDate,reqYr1,reqDay,reqYr,reqMon,dt dt=Date() reqDate=Split(dt,"/",-1,1) reqDay=reqDate(1) reqMon=reqDate(0) reqYr=reqDate(2) reqYr1="20"&reqYr curmon=Month(dt) If Request.Form("AddEvent") = "Add Event" Then Response.Redirect("add.asp") End If Dim DB_CONNECTIONSTRING Dim objRecordset DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db1.mdb") & ";" Set objRecordset = Server.CreateObject("ADODB.Recordset") objRecordset.Open "Addresses2", DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic '----------------------------Getting Days in a month---------- Function GetDaysInMonth(iMonth, iYear) Select Case iMonth Case 1, 3, 5, 7, 8, 10, 12 GetDaysInMonth = 31 Case 4, 6, 9, 11 GetDaysInMonth = 30 Case 2 If IsDate("February 29, " & iYear) Then GetDaysInMonth = 29 Else GetDaysInMonth = 28 End If End Select End Function Function GetWeekdayMonthStartsOn(iMonth, iYear) GetWeekdayMonthStartsOn = WeekDay(CDate(iMonth & "/1/" & iYear)) End Function '---------------Substracing one month ---------- Function SubtractOneMonth(dDate) iDay = Day(dDate) iMonth = Month(dDate) iYear = Year(dDate) If iMonth = 1 Then iMonth = 12 iYear = iYear - 1 Else iMonth = iMonth - 1 End If If iDay > GetDaysInMonth(iMonth, iYear) Then iDay = GetDaysInMonth(iMonth, iYear) SubtractOneMonth = CDate(iMonth & "-" & iDay & "-" & iYear) End Function '---------------Adding one month ---------- Function AddOneMonth(dDate) iDay = Day(dDate) iMonth = Month(dDate) iYear = Year(dDate) If iMonth = 12 Then iMonth = 1 iYear = iYear + 1 Else iMonth = iMonth + 1 End If If iDay > GetDaysInMonth(iMonth, iYear) Then iDay = GetDaysInMonth(iMonth, iYear) AddOneMonth = CDate(iMonth & "-" & iDay & "-" & iYear) End Function '------------Getting data--------------- Dim dDate ' Date we're displaying calendar for Dim iDIM ' Days In Month Dim iDOW ' Day Of Week that month starts on Dim iCurrent ' Variable we use to hold current day of month as we write table Dim iPosition ' Variable we use to hold current position in table If IsDate(Request.QueryString("date")) Then dDate = CDate(Request.QueryString("date")) Else If IsDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) Then dDate = CDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) Else dDate = Date() If Request.QueryString.Count <> 0 Then Response.Write "The date you picked was not a valid date. The calendar was set to today's date.

" End If End If End If iDIM = GetDaysInMonth(Month(dDate), Year(dDate)) iDOW = GetWeekdayMonthStartsOn(Month(dDate), Year(dDate)) %> desiwww.Com - The Best Site for Indians in the US

	New government study reveals that healthy women need to add just one large strawberry to meet their daily diets. Read more...

	Women need a lot of variety in their lives and make-up is one of the most exciting and vibrant ways of achieving it. Click here to read more about beauty...

	Fashion is innate. Some actors exude attitude by just a look here and a nod there. Some need a nose job. Read more on fashion...

Kyo Kii Main Jhoot Nahin Boltaai
Govinda
Sharad Kapoor
Sushmita Sen

Pyaar Ishq Aur Mohabbat: Sunil Shetty, Kirti Reddy Director: Rajeev Rai

<% iDay = Day(dDate) iMonth = Month(dDate) iYear = Year(dDate) 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 Do While iCurrent <= iDIM 'Response.Write iCurrent '------------ open the table row ------------ If iPosition = 1 Then Response.Write(vbTab & "" & vbCrLf) End If '---------Write the date and subject------- if iCurrent=iDay then Response.Write(vbTab & vbTab & "" & vbCrLf) '-- Close the table row -- If iPosition = 7 Then Response.Write vbTab & "" & vbCrLf iPosition = 0 End If '-- Increment variables -- iCurrent = iCurrent + 1 iPosition = iPosition + 1 Loop If iPosition <> 1 Then Do While iPosition <= 7 Response.Write(vbTab & vbTab & "" & vbCrLf) iPosition = iPosition + 1 Loop Response.Write vbTab & "" & vbCrLf End If %>

<% 'if date==dDate%>

<%= MonthName(Month(dDate)) & " " & Year(dDate) %>

SUN

MON

TUE

WED

THU

FRI

SAT

" & iCurrent & "") 'Response.Write(vbTab & vbTab & "

" & iCurrent & "") else Response.Write(vbTab & vbTab & "

" & iCurrent & "") end if If Not objRecordset.BOF Then objRecordset.MoveFirst Do Until objRecordset.EOF 'If objRecordset.Fields("Year") = Year(dDate) Then ' If objRecordset.Fields("Month") = Month(dDate) Then ' If objRecordset.Fields("Day") = iCurrent Then ' Response.Write("
" & objRecordset.Fields("Subject") & "
") ' End If ' End If 'End If objRecordset.MoveNext Loop End If Response.Write("

<% objRecordset.Close Set objRecordset = Nothing %>

Event Calendar Today's Events Add an Event