scott tinkler - news

Best Jazz Release - 1998 Aria Awards - "The Future in Today"
with Ian Chaplain / Scott Tinkler / Philip Rex / Scott Lambie

Winner of the 1996 National Jazz Award

 

<% dim i dim p_title, DisplayLevel, TssParentId dim t_URL, a_URL TssParentId = TssGetVar("TssParentId") TSSCalendarName = "news" ' ' create the Calendar container ' set TssCalEntries = new TssCalendarClass ' set the filter/search values TssCalEntries.StartDt=now() TssCalEntries.ParentId=TssParentId ' go get the data TssCalEntries.load(TssCalendarName) p_title = TssGetVar("title") ' allow for an externally supplied title if p_title = "" then p_title=TssCalEntries.CalendarTitle %>

<% ' setup the table row background colours background=array("FFFFFF") backgroundcnt=0 ' loop through all the found entries for i = 1 to TssCalEntries.count TssCalEntryId = TssCalEntries.item("CalendarEntryId") a_URL = TssCalEntries.item("URL") calentryImage = TssCalEntries.item("ImageURL") calentrystartdt = TssCalEntries.item("StartDT") CalEntryEndDt=TssCalEntries.item("EndDt") calentryTitle = TssCalEntries.item("Title") pcount = TssCalEntries.item("SubCount") if(pcount="") then pcount=0 TssCalEntryText = replace("" & TssCalEntries.item("Text"),vbcrlf,"
") %> <% TssCalEntries.GetNext() backgroundcnt=backgroundcnt+1 if(backgroundcnt > ubound(background)) then backgroundcnt=0 next %>
<% ' write the Title if (calentryTitle > "") then response.write monthname(month(calentrystartdt),true) & " " response.write year(calentrystartdt)& "
" response.write calentryTitle end if ' if there are sub-entries then include a link to show those entries if (pcount>0) then response.write "
Click for more details" ' write the description/text %> 		<%=TssCalEntryText%> <% 'if(pcount>0) then response.write "" if (a_URL > "") then response.write "" ' write the start date ' response.write day(calentrystartdt) & " " & monthname(month(calentrystartdt),true) & " " 'response.write year(calentrystartdt) & " " & Hour(calentrystartdt) & ":" & Minute(calentrystartdt)& " (" & weekdayname(weekday(calentrystartdt)) & ") " ' write the start date %> <% 'response.write day(CalEntryEndDt) & " " & monthname(month(CalEntryEndDt),true) & " " & TimeValue(calentrystartdt)& " " 'response.write year(CalEntryEndDt) & " (" & weekdayname(weekday(CalEntryEndDt)) & ") " if (a_URL > "") then response.write "" %>
<% ' if there is an image then write out the details if(calentryImage > "") then ' if there is an URL then wrap the image details inside the link if (a_URL > "") then response.write "" response.write TssDisplayImage(calentryImage, 100, "", "align=""center"" border=""0""") if (a_URL > "") then response.write "" else response.write " " end if %>
<% if (a_URL > "") then response.write "" response.write "LINKS" response.write "" end if %>

Back