<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% On Error Resume Next %> <% Response.Expires=0 Dim connStr connStr = "FILEDSN=" & Server.MapPath("/data/pds.dsn") & _ ";Uid=admin;Pwd=f@mous" Dim objConn, objRS, strQuery,dweek Dim strConnection Dim MyMonth 'Month of calendar Dim MyYear 'Year of calendar Dim FirstDay 'First day of the month. 0 = Sunday Dim CurrentDay 'Used to print dates in calendar Dim Col 'Calendar column Dim Row 'Calendar row Dim selected 'already made month choice Dim selectday Dim sun dim today Dim courseid courseid=cint(Request.Querystring("courseid")) 'todays=Date.Today.ToString("MM-dd-yyyy") selectday=day(date) MyMonth = month(date) MyYear = year(date) today=MyMonth&"-"&selectday&"-"&MyYear Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open connStr dweek = DatePart("w",selectday&"/"&MyMonth&"/"&MyYear) If dweek=1 Then strQuery = "Select * from tbl_course where (end_date >#"&today&"#) AND (start_date <=#"&today&"#) ORDER BY (start_time)"'SELECT * FROM tbl_course WHERE day_of_week=1 selectday=day(date) Else dweek = dweek -1 strQuery = "Select * from tbl_course where (end_date >#"&today&"#) AND (start_date <=#"&today&"#) ORDER BY (start_time)" End If set objRS = objConn.Execute(strQuery) %> <% If MyMonth = 0 then selected = 1 End If if MyYear = 0 then MyYear = Year(Date) Call ShowHeader (MyMonth, MyYear) FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 1)) FirstDay = FirstDay CurrentDay = 1 'Let's build the calendar For Row = 0 to 5 For Col = 1 to 7 If FirstDay=1 and Col=FirstDay and Row = 0 then For sun = 1 to 6 response.write " " Next response.write "" &CurrentDay& "" CurrentDay=2 elseif Row = 0 and Col < FirstDay-1 then response.write " " elseif CurrentDay > LastDay(MyMonth, MyYear) then response.write " " elseif (FirstDay>1 and Row=0)or(Row>0) then response.write "" & CurrentDay & "" else if Col>6 then response.write "style='color:#999999;'>" &CurrentDay& "" elseif mymonth=month(date) and CurrentDay < day(date) then response.write ">" & CurrentDay & "" else response.write ">" & CurrentDay & "" end if end if CurrentDay = CurrentDay + 1 End If Next response.write "" Next '------ Sub and functions Sub ShowHeader(MyMonth,MyYear) %> The Prince's Drawing School
The Prince's Drawing School
pdsroundlogo

Book a course

Course details
Who we are
Where we are
Postgraduate Programme
Public Programme
Young Artists Programme
Galleries
Calendar/Lectures/Films

Drawing School blog
Book the venue
Contact us

 

pds

HENRY MOORE

TATE BRITAIN
24 February - 8 August


Henry Moore is Britain’s most celebrated sculptor. This stunning exhibition takes a fresh look at his work and legacy, presenting over 150 stone sculptures, wood carvings, bronzes and drawings. Don’t miss this fantastic opportunity to truly understand this much-loved artist.

Competition: We have three pairs of tickets to give away, all you have to do is attend our Artist on Film feature ' Giacometti' on 17 March and put your name in the draw. Names will be drawn at the end of the evening.

Henry Moore sculpture

Henry Moore OM Recumbent Figure (detail) 1938 Tate © Reproduced by permission of the Henry Moore Foundation
Photography by Rocco Redondo

– Lectures and films 2010

– Lectures and films 2009 
– Lectures and films 2008

– Lectures and films 2007

– Lectures and films 2006

– Lectures and films 2005

– Lectures and films 2004

– Lectures and films 2003

– Lectures and films 2002