<% function GetRegion() dim leIDRegion leIDRegion = 5 if request.Cookies("RCEspaceMusique") <> "" then leIDRegion = request.Cookies("RCEspaceMusique") end if if request.Cookies("RadioCanadaAudioVideo") <> "" then leIDRegion = request.Cookies("RadioCanadaAudioVideo") if instr(leIDRegion, "regionLiveEM"":") > 0 and instr(instr(leIDRegion, "regionLiveEM"":") + 15, leIDRegion, """") > 0 then 'leIDRegion = replace(replace(leIDRegion, "{""regionLiveEM"":""", ""), """,""volume"":100}", "") dim tempID 'response.Write(leIDRegion&"
") tempID = mid(leIDRegion, instr(leIDRegion, "regionLiveEM"":") + 15, instr(instr(leIDRegion, "regionLiveEM"":") + 15, leIDRegion, """")- instr(leIDRegion, "regionLiveEM"":") - 15) 'response.Write("
") 'response.Write(tempID&"
") 'response.End() if ltrim(rtrim(tempID)) <> "" then if isnumeric(tempID) then 'Modif Raph if tempID = 9 then tempID=1 end if SET rsRegion = conn.EXECUTE("em_getOneRegionByMedianetID " & ltrim(rtrim(tempID))) leIDRegion = rsRegion("IDRegion") rsRegion.close() set rsRegion = nothing end if end if end if end if if request.QueryString("r") <> "" then response.Cookies("RCEspaceMusique") = request.QueryString("r") Response.Cookies("RCEspaceMusique").Expires = Date() + 10 leIDRegion = request.QueryString("r") end if dim rsRegion if leIDRegion = "" OR not isnumeric(leIDRegion) then leIDRegion = 5 end if SET rsRegion = conn.EXECUTE("em_getOneRegion " & leIDRegion) ' response.Write("") if not rsRegion.eof then idREGION = leIDRegion decalageREGION = rsRegion("DecalageHoraire") laRegion = rsRegion("region") nomFuseau = rsRegion("NomFuseauHoraire") courrielCommentaires = rsRegion("courrielCommentaires") idGHRegion = rsRegion("IDRegionDiohr") WTProfile = rsRegion("WTProfile") idMedianet = rsRegion("idVilleMedianet") 'response.Cookies("RCEspaceMusique") = leIDRegion ' Response.Cookies("RCEspaceMusique").Expires = Date() + 10 end if rsRegion.close() set rsRegion = nothing 'PATCH décembre 2010 : les régions n'ont pas d,émissions spéciales. Alors on affiche que Montréal ' dim nowdate, dateDebut, dateFin, afficheTitreSpecial nowdate = now dateDebut= "2010/12/29 00:01" dateFin= "2011/01/03 06:00" if (DateDiff("n", nowdate, dateDebut) <= 0) and (DateDiff("n", nowdate, dateFin) > 0) then afficheTitreSpecial = 1 else afficheTitreSpecial = 0 end if if afficheTitreSpecial = 1 then leIDRegion = 5 end if 'response.Write("") GetRegion = leIDRegion end function %>