<%@ Language=VBScript %>
<%
DIM dDate,strSQL
strSQL = ""
qsCount = Request.Querystring.Count
'RESPONSE.WRITE "qsCount = " & qsCount &" "
frmCount = Request.Form.Count
'RESPONSE.WRITE "frmCount = " & frmCount &" "
'Get QueryString values
IF qsCount > 0 THEN
dDate = Request.QueryString("date")
'Response.write "dDate in IF = "&Request.QueryString("date")&" "
ELSE
dDate= DATE()
END IF 'Request.Querystring
'Get Form Values
IF frmCount > 0 THEN
frmTopic = REQUEST.Form("selTopic")
'Response.write "frmTopic = "&frmTopic&" "
frmMonth = REQUEST.Form("month")
'Response.write "frmMonth = "&frmMonth&" "
frmYear = REQUEST.Form("year")
'Response.write "frmYear = "&frmYear&" "
'Build SQL String
'All events for that year
IF frmTopic = "" AND frmMonth = 0 THEN
strSQL = "SELECT * FROM Events WHERE SYear = "&frmYear&" ORDER BY Events.StartDate"
dDate = DateSerial(frmYear, 1, 1) 'Jan 1 of that year (?)
END IF
'All events for that month / year
IF frmTopic = "" AND frmMonth <> 0 THEN
strSQL = "SELECT * FROM Events WHERE SMonth = "&frmMonth&" AND SYear = "&frmYear&" ORDER BY Events.StartDate"
dDate = DateSerial(frmYear, frmMonth, 1)'first of month in that year
END IF
'Selected events for that year
IF frmTopic <> "" AND frmMonth = 0 THEN
strSQL = "SELECT * FROM Events WHERE SYear = "&frmYear&" AND Subject = '"&frmTopic&"' "
dDate = DateSerial(frmYear, 1, 1) 'Jan 1 of that year (?)
END IF
'Selected events for that month / year
IF frmTopic <> "" AND frmMonth <> 0 THEN
strSQL = "SELECT * FROM Events WHERE SMonth = "&frmMonth&" AND SYear = "&frmYear&" AND Subject = '"&frmTopic&"' "
dDate = DateSerial(frmYear, frmMonth, 1) 'first of month in that year
END IF
END IF 'REQUEST.Form
'RESPONSE.WRITE "dDate = " & dDate &" "
vDay = GetDay()
'RESPONSE.WRITE "vDay = " & vDay &" "
vMonth = getMonth()
RESPONSE.WRITE "vMonth = " & vMonth &" "
vYear = getYear()
'RESPONSE.WRITE "vYear = " & vYear &" "
FWDay = WeekDay(DateSerial(vYear,vMonth,1))
'RESPONSE.WRITE "FWDay = " & FWDay &" "
NumDays = Day(DateSerial(vYear,vMonth+1,0))
'RESPONSE.WRITE "NumDays = " & NumDays &" "
iDay = 2-FWDay
'RESPONSE.WRITE "iDay = " & iDay &" "
%>
<% 'Functions used by Application =========================================================================
Function GetDay()
Dim sDay
sDay = Day(dDate)
'RESPONSE.WRITE "sDay = " & sDay &" "
IF isEmpty(sDay) OR NOT isNumeric(sDay) THEN
GetDay=Day(Date())
ELSE
GetDay =Day(dDate)
END IF
End Function
Function getMonth()
Dim sMonth
sMonth = Month(dDate)
IF isEmpty(sMonth) OR NOT isNumeric(sMonth) THEN
getMonth=Month(Date())
ELSE
getMonth =Month(dDate)
END IF
End Function
Function getYear()
Dim sYear
sYear = Year(dDate)
IF isEmpty(sYear) OR NOT isNumeric(sYear) THEN
getYear=Year(Date())
ELSE
getYear =Year(dDate)
END IF
End Function
'move one month ahead
Function NextMonth(dDate)
NextMonth = DateAdd("m", 1, dDate)
'RESPONSE.WRITE "sDay = " & sDay &" "
End Function
'move one month back
Function LastMonth(dDate)
LastMonth = DateAdd("m", -1, dDate)
'RESPONSE.WRITE "sDay = " & sDay &" "
End Function
'====================================================================================================================
%>
<%
'do database stuff for search form
set rsList = Server.CreateObject("ADODB.Recordset")
rsList.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Webs\TestApp\Calendar2\Events.mdb;Persist Security Info=False"
rsList.Source = "SELECT DISTINCT Subject FROM Events"
'rsList.CursorType = 0
'rsList.CursorLocation = 2
'rsList.LockType = 3
rsList.Open
%>
Welcome to Julia A. Stark School
