<% 'Βιβλιοθήκη συναρτήσεων 'IIf Function Function IIf(i,j,k) If i Then IIf = j Else IIf = k End Function 'GetDayName Function Function GetWeekDayName(day) Select Case number Case 1 result = "ΔΕΥΤΕΡΑ" Case 2 result = "ΤΡΙΤΗ" Case 3 result = "ΤΕΤΑΡΤΗ" Case 4 result = "ΠΕΜΠΤΗ" Case 5 result = "ΠΑΡΑΣΚΕΥΗ" Case 6 result = "ΣΑΒΒΑΤΟ" Case 7 result = "ΚΥΡΙΑΚΗ" End Select End Function 'Σύνδεση με βάση δεδομένων connString = "Provider=Sqloledb; User ID=blueskytv; Password=eth27188!); Initial Catalog=blueskytv;Data Source=localhost\sqlexpress;" 'Σύνδεση με τη βάση δεδομένων Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open connString 'Ανάκτηση μεταβλητής καναλιού channelId = Trim(Request.QueryString("channelId")) If Len(channelId) = 0 Then channelId = "1" End If 'Ανάκτηση ημέρας αναζήτησης (Δευτέρα 1, Κυριακή 7) dayofweek = Trim(Request.QueryString("dayofweek")) 'Αριθμός εκπομπών που θα εμφανίζονται μετά απο την τρέχουσα numberofshows = 8 If Len(dayofweek) = 0 Then dayofweek = Trim(WeekDay(Date(),0)) End If 'Ανάκτηση περιόδου dateTimeFrom = Trim(Request.QueryString("dateTimeFrom")) dateTimeTo = Trim(Request.QueryString("dateTimeTo")) 'Ανάκτηση λέξης κλειδιού keyword = Trim(Request.QueryString("keyword")) 'Τρέχουσα εκπομπή onair = False strQ = "SET DATEFORMAT DMY;" strQ = strQ & "SELECT * FROM vprogram WHERE " If channelId <> "" Then If IsNumeric(channelId) = True Then strQ = strQ & " channelId = " & channelId End If End If If dateTimeFrom <> "" AND dateTimeTo <> "" Then strQ = strQ & " AND (programDate >= '" & dateTimeFrom & "' AND programDate <= '" & dateTimeTo & "') " ElseIf dateTimeFrom <> "" Then strQ = strQ & " AND (programDate >= '" & dateTimeFrom & "') " ElseIf dateTimeTo <> "" Then strQ = strQ & " AND (programDate <= '" & dateTimeTo & "') " End If If Len(dayofweek) > 0 Then strQ = strQ & " AND (programDay = " & dayofweek & ") " End If If Len(keyword) > 0 Then strQ = strQ & " AND (programTitle LIKE '%" & keyword & "%') " End If Set objRS = objConn.Execute(strQ) If Not objRS.EOF Then %> <% i = 1 While Not objRS.EOF %> <% If (DateDiff("n", "1/1/1900 " & Time(), objRS("programDate")) >= -30 AND Trim(WeekDay(Date(),0)) = dayofweek AND i <= numberofshows) Then %> = -30 AND onair = False AND Trim(WeekDay(Date(),0)) = dayofweek Then %>style="background-color: #889aba;"<% onair = True %><% Else %>style="background-color: #ececec;"<% End If %>> <% i = i + 1 End If objRS.MoveNext Wend %>

"" Then %><%=objRS("propernessIcon") %><% Else %>spacer.gif<% End If %>" border="0" />	<%=FormatDateTime(objRS("programDate"),4) %>	<%=objRS("programTitle") %>	<%=IIf(objRS("programRepeat") = True,"(E)","") %>

<% End If %>