<%
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
%>