<%@ Language = javascript %> <% GLOBAL.MDB = "../_private/_data/events.mdb" setMapping(GLOBAL.MDB) function getRecordset_tEVENTS() { var SQL_viewRset = new strSQL() SQL_viewRset.select = "SELECT tEVENTS.*, tEVENT_TYPES.TYPE_TITLE" SQL_viewRset.from = "FROM tEVENT_TYPES INNER JOIN tEVENTS ON tEVENT_TYPES.TYPE_ID = tEVENTS.FK_TYPE_ID" SQL_viewRset.where = "WHERE (((tEVENTS.FK_TYPE_ID)=" + iTypeID + "))" SQL_viewRset.orderby = "ORDER BY tEVENTS.DATE_FROM DESC , tEVENTS.FROM_HOURS DESC , tEVENTS.FROM_MINS DESC" //PRINT(true,'','SQL_viewRset.SELECT()='+SQL_viewRset.SELECT()) return openRecordset(SQL_viewRset.SELECT()) } //main var rR, iTypeID=-1, bGotTypeID=false, bGotRecords=false; iTypeID = Request.QueryString("iTypeID") + "" if (iTypeID != "undefined") bGotTypeID = true if (bGotTypeID) {rR = getRecordset_tEVENTS(); if (rR.Recordcount>0) bGotRecords=true;} %>

<% if (bGotRecords) { rR.MoveFirst(); var iYear = -1, iMonth = -1, iOldMonth = -1, sMonth="", iDayMonth = -1, iDayWeek=""; var oMonth = new Object(), oDayWeek = new Object(); oMonth.m0 = "Jan"; oMonth.m1 = "Feb"; oMonth.m2 = "Mar"; oMonth.m3 = "Apr"; oMonth.m4 = "May"; oMonth.m5 = "Jun"; oMonth.m6 = "Jul"; oMonth.m7 = "Aug"; oMonth.m8 = "Sep"; oMonth.m9 = "Oct"; oMonth.m10 = "Nov"; oMonth.m11 = "Dec"; oDayWeek.d0 = "Sunday"; oDayWeek.d1 = "Monday"; oDayWeek.d2 = "Tuesday"; oDayWeek.d3 = "Wednesday" oDayWeek.d4 = "Thursday"; oDayWeek.d5 = "Friday"; oDayWeek.d6 = "Saturday"; %> <% while (!rR.Eof) { var dateFrom = new Date(rR.Fields('DATE_FROM')); if (iYear != dateFrom.getYear()) iYear=dateFrom.getYear() if (iMonth != dateFrom.getMonth()) { iMonth=dateFrom.getMonth(); sMonth = oMonth['m'+iMonth] } if (iDayMonth != dateFrom.getDate()) {iDayMonth = dateFrom.getDate(); iDayWeek = dateFrom.getDay()} %> <% if (iOldMonth != iMonth) { iOldMonth = iMonth } %> <% var sto = ""; if (rR.Fields('TO_HOURS').value!=-1) { sto = "-" + rR.Fields('TO_HOURS').value + ":" if (rR.Fields('TO_MINS').value == 0) sto+="00" } var frommins= ":" + rR.Fields('FROM_MINS').value if (rR.Fields('FROM_MINS').value==0) { frommins = ":00" } %> <%=rR.Fields('TITLE')%> <%=oDayWeek['d'+iDayWeek]%>  <%=iDayMonth%>  <%=sMonth%>  <%=iYear%> <%=Text_ReplaceBadCharacters(rR.Fields('MAIN_DESCRIPTION'))%> <% rR.MoveNext() } %> <% } %>

<% closeRsets() %>