<% 'Βιβλιοθήκη συναρτήσεων '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")) 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 %>

daycurrent<% Else %>day<% End If %>">ΔΕΥΤΕΡΑ

daycurrent<% Else %>day<% End If %>">ΤΡΙΤΗ

daycurrent<% Else %>day<% End If %>">ΤΕΤΑΡΤΗ

daycurrent<% Else %>day<% End If %>">ΠΕΜΠΤΗ

daycurrent<% Else %>day<% End If %>">ΠΑΡΑΣΚΕΥΗ

daycurrent<% Else %>day<% End If %>">ΣΑΒΒΑΤΟ

daycurrent<% Else %>day<% End If %>">ΚΥΡΙΑΚΗ

<% While Not objRS.EOF %> = -30 AND onair = False AND Trim(WeekDay(Date(),0)) = dayofweek Then %>style="background-color: #889aba;"<% onair = True %><% Else %>style="background-color: #ececec;"<% End If %>> <% objRS.MoveNext Wend %>

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

<% End If %>