<%Language=VBSCRIPT%> <%Response.Buffer = True%> <% If Cint(Request.QueryString("PageID"))= 0 then PID = 49 end if maintenance = "" 'maintenance = "irishfilm.ie is currently undergoing maintenance, some links may not function correctly, sorry for any inconvenience.
" %> <% Session.LCID = 1033 dark = "003366" middle = "669999" light = "CCCCFF" T_Films = "" Is_ID = Request.QueryString("isID") Dday = Int(Request.QueryString("Day")) Dmonth = Int(Request.QueryString("Month")) Dyear = Int(Request.QueryString("Year")) Tday = Day(Date) Tmonth = Month(Date) Tyear = Year(Date) function DayName (Start_Day) select case Start_Day case 1 DayName = "Sun" case 2 DayName = "Mon" case 3 DayName = "Tue" case 4 DayName = "Wed" case 5 DayName = "Thu" case 6 DayName = "Fri" case 7 DayName = "Sat" end select end function x = 0 Film_List = "" Job_Op = "
" 'end if 'if rsSQL("S_Type") = "arc" AND rsSQL("Date") >= Date() then 'StrSeason1 = StrSeason1&"" 'StrSeason1 = StrSeason1&"" 'arc_film = arc_film&"
::Job Opportunities::
" data_source = "ifi_cinemobile" Set rsSQL = CreateObject("ADODB.Recordset") Set MyConn = Server.CreateObject("ADODB.Connection") TDate = Date() Set rsSQLVenue = CreateObject("ADODB.Recordset") 'strSQLSeason = "Select * FROM Seasons WHERE End_Date >= "&TDate&" ORDER BY Start_Date ASC" StrSeason1 = "" MyConn.Open(data_source) strSQLVenue = "Select * FROM Venue WHERE End_Date >= #"&Date()&"# ORDER BY End_Date ASC" Set rsSQLVenue = MyConn.Execute(strSQLVenue) if rsSQLVenue.BOF AND rsSQLVenue.EOF then strVenue = "The cinemobile schedule will be updated shortly" end if While not rsSQLVenue.EOF if x < 1 then Start_Date = rsSQLVenue("Start_Date") Start_Day = WeekDay(Start_Date) End_Date = rsSQLVenue("End_Date") End_Day = WeekDay(End_Date) if rsSQLVenue("End_Date") > Date() AND rsSQLVenue("Start_Date") > Date() then strVenue = "The Cinemobile will be in "& rsSQLVenue("Venue") &", " & rsSQLVenue("County") &" From "&DayName(Start_Day)&", "&DatePart("D",Start_Date)&" "&MonthName(Month(Start_Date)) end if if rsSQLVenue("Start_Date") <= Date() then strVenue = "The Cinemobile is in "& rsSQLVenue("Venue") &", " & rsSQLVenue("County") &" Until "&DayName(End_Day)&", "&DatePart("D",End_Date)&" "&MonthName(Month(End_Date)) end if x = x+1 end if rsSQLVenue.movenext wend rsSQLVenue.Close() Set rsSQLVenue = nothing Set strSQLVenue = nothing intArc = 0 'strSQL = "Select * FROM Calendar WHERE Year ="&Tyear&" AND Month ="&Tmonth&" AND Day ="&Tday&" ORDER BY Times ASC" strSQL = "Select * FROM Films WHERE Active = True ORDER BY Title Asc" Set rsSQL = MyConn.Execute(strSQL) While not rsSQL.EOF if rsSQL("Picture") = False then FilmPic = "" ArcPic = "" else FilmPic = "" ArcPic = "
" end if 'if rsSQL("Date") = Date() then 'heading = "Today's Films: "&Tday&" "&MonthName(TMonth)&" "&TYear 'nfilms = nfilms + 1 T_Films = T_Films&"
"&rsSQL("Title")&""&FilmPic&"

::Archive Screening:: "&rsSQL("Title")&"" 'StrSeason1 = StrSeason1&"
"&DayName(weekday(rsSQL("Date")))&", "&DatePart("D",rsSQL("Date"))&" "&MonthName(Month(rsSQL("Date")))&","&rsSQL("Times")&"		"&ArcPic&"
From the Archive
"&rsSQL("Title")&"
"&rsSQL("Date")&" "&rsSQL("Times")&"
"&ArcPic&"
" 'end if rsSQL.movenext wend rsSQL.Close() Set rsSQL = nothing Set strSQL = nothing Set myConn = nothing T_Films = T_Films&"" if nofilms > 3 and nofilms < 8 then edbox = 150 nfilms = 360 end if if nofilms <= 3 then nfilms = 200 edbox = 150 end if if nofilms >= 8 then nfilms = 470 edbox = 150 end if %> Cinemobile-Ireland's First Travelling Cinema
 
<%=strVenue%>



Send us your feedback from here...

 

We always welcome your comments on Cinemobile, so please complete the form below and click 'Submit'.

 

First Name
Second Name
Your email:
Your Comments:
 

 

For further information contact:

Cinemobile
Fis na Milaoise Teo.,
Cluain Mhuire,
Monivea Road,
Galway.

Tel: 091 751629, Fax: 091 770948

Email : cinemobile@oceanfree.net