Ligne 1 : #ExternalChecksum("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","ED1A70C92DD3DF00F4A892B9445E1D03BC7363C0")
Ligne 2 : '------------------------------------------------------------------------------
Ligne 3 : ' <auto-generated>
Ligne 4 : ' Ce code a été généré par un outil.
Ligne 5 : ' Version du runtime :4.0.30319.42000
Ligne 6 : '
Ligne 7 : ' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
Ligne 8 : ' le code est régénéré.
Ligne 9 : ' </auto-generated>
Ligne 10 : '------------------------------------------------------------------------------
Ligne 11 :
Ligne 12 : Option Strict Off
Ligne 13 : Option Explicit On
Ligne 14 :
Ligne 15 : Imports Microsoft.VisualBasic
Ligne 16 : Imports System
Ligne 17 : Imports System.Collections
Ligne 18 : Imports System.Collections.Generic
Ligne 19 : Imports System.Collections.Specialized
Ligne 20 : Imports System.Configuration
Ligne 21 : Imports System.Text
Ligne 22 : Imports System.Text.RegularExpressions
Ligne 23 : Imports System.Web
Ligne 24 : Imports System.Web.Caching
Ligne 25 : Imports System.Web.Profile
Ligne 26 : Imports System.Web.Security
Ligne 27 : Imports System.Web.SessionState
Ligne 28 : Imports System.Web.UI
Ligne 29 : Imports System.Web.UI.HtmlControls
Ligne 30 : Imports System.Web.UI.WebControls
Ligne 31 : Imports System.Web.UI.WebControls.WebParts
Ligne 32 :
Ligne 33 :
Ligne 34 : Partial Public Class Agenda
Ligne 35 : Implements System.Web.SessionState.IRequiresSessionState
Ligne 36 :
Ligne 37 : Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Ligne 38 : Get
Ligne 39 : Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Ligne 40 : End Get
Ligne 41 : End Property
Ligne 42 :
Ligne 43 : Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Ligne 44 : Get
Ligne 45 : Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Ligne 46 : End Get
Ligne 47 : End Property
Ligne 48 : End Class
Ligne 49 :
Ligne 50 : Namespace ASP
Ligne 51 :
Ligne 52 : <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Ligne 53 : Public Class default_aspx
Ligne 54 : Inherits Global.Agenda
Ligne 55 : Implements System.Web.IHttpHandler
Ligne 56 :
Ligne 57 : Private Shared __initialized As Boolean
Ligne 58 :
Ligne 59 : Private Shared __stringResource As Object
Ligne 60 :
Ligne 61 : Private Shared __fileDependencies As Object
Ligne 62 :
Ligne 63 : <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Ligne 64 : Public Sub New()
Ligne 65 : MyBase.New
Ligne 66 : Dim dependencies() As String
Ligne 67 :
Ligne 68 : #ExternalSource("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx.vb",912304)
Ligne 69 : CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/default.aspx"
Ligne 70 :
Ligne 71 : #End ExternalSource
Ligne 72 : If (Global.ASP.default_aspx.__initialized = false) Then
Ligne 73 : Global.ASP.default_aspx.__stringResource = Me.ReadStringResource
Ligne 74 : dependencies = New String(23) {}
Ligne 75 : dependencies(0) = "/accueil/se-connecter.asp"
Ligne 76 : dependencies(1) = "/global_inc/configuration/coreapplicationconfig.inc"
Ligne 77 : dependencies(2) = "/accueil/aspx/menu-full.asp"
Ligne 78 : dependencies(3) = "~/default.aspx"
Ligne 79 : dependencies(4) = "/bloc/bloc-boite-a-outils.inc"
Ligne 80 : dependencies(5) = "/accueil/newsletter-script.asp"
Ligne 81 : dependencies(6) = "/Global_inc/Xiti-Visit.inc"
Ligne 82 : dependencies(7) = "/bloc/bloc-newsletter-quotidienne.inc"
Ligne 83 : dependencies(8) = "/bloc/col-right.inc"
Ligne 84 : dependencies(9) = "/Global_inc/Xiti-Init.inc"
Ligne 85 : dependencies(10) = "/accueil/compatible/html-common-headx.asp"
Ligne 86 : dependencies(11) = "/inc/Headx.inc"
Ligne 87 : dependencies(12) = "/global_inc/pubsmartadserver-typebanniere.inc"
Ligne 88 : dependencies(13) = "/Inc/EnteteSalonAgendaX-new.inc"
Ligne 89 : dependencies(14) = "/bloc/bloc-salon-agenda.inc"
Ligne 90 : dependencies(15) = "/accueil/footer-2.asp"
Ligne 91 : dependencies(16) = "/Global_inc/EnteteaspxDeclaration.inc"
Ligne 92 : dependencies(17) = "/accueil/footer-4.asp"
Ligne 93 : dependencies(18) = "/bloc/bloc-formation-ecole.inc"
Ligne 94 : dependencies(19) = "/Global_Inc/MagEnCours.inc"
Ligne 95 : dependencies(20) = "/Global_Inc/HebdoEnCours.inc"
Ligne 96 : dependencies(21) = "/global_inc/paywallcontrol.inc"
Ligne 97 : dependencies(22) = "/accueil/compatible/footer-full-aspx.asp"
Ligne 98 : dependencies(23) = "~/default.aspx.vb"
Ligne 99 : Global.ASP.default_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Ligne 100 : Global.ASP.default_aspx.__initialized = true
Ligne 101 : End If
Ligne 102 : Me.Server.ScriptTimeout = 30000000
Ligne 103 : End Sub
Ligne 104 :
Ligne 105 : Protected Overrides ReadOnly Property SupportAutoEvents() As Boolean
Ligne 106 : Get
Ligne 107 : Return false
Ligne 108 : End Get
Ligne 109 : End Property
Ligne 110 :
Ligne 111 : <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Ligne 112 : Private Sub __BuildControlTree(ByVal __ctrl As default_aspx)
Ligne 113 :
Ligne 114 : #ExternalSource("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx",1)
Ligne 115 : Me.InitializeCulture
Ligne 116 :
Ligne 117 : #End ExternalSource
Ligne 118 : __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Ligne 119 : End Sub
Ligne 120 :
Ligne 121 : Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Ligne 122 :
Ligne 123 : #ExternalSource("E:\InetPub\Global\Inc\EnteteaspxDeclaration.inc",1)
Ligne 124 :
Ligne 125 :
Ligne 126 : Dim Nb_UserAgentMobile
Ligne 127 : Dim Tab_UserAgent
Ligne 128 : Dim UserAgent
Ligne 129 : Dim UserAgentMobile
Ligne 130 : Dim PubHOaccueil_IMG
Ligne 131 : Dim PubHOaccueil_HREF
Ligne 132 : Dim PubHOaccueil_FICHIER
Ligne 133 : Dim indice
Ligne 134 : Dim NbPubHOaccueil
Ligne 135 : Dim time = 0.0
Ligne 136 : Dim SOMMAIRE_HEBDO
Ligne 137 : Dim COUV_HEBDO
Ligne 138 : Dim DATE_HEBDO
Ligne 139 : Dim sas_formatid As String
Ligne 140 : Dim sas_pageid As String
Ligne 141 : Dim All_sas_formatid As String
Ligne 142 : Dim T_All_sas_formatid() As String
Ligne 143 : Dim xt_mtcl
Ligne 144 : Dim xt_npg
Ligne 145 : Dim Tmp
Ligne 146 : Dim CodeHTML_Avant_XITI As String
Ligne 147 : Dim LHREmploi
Ligne 148 : Dim SSL
Ligne 149 : Dim TmpUrl
Ligne 150 : Dim AfficherMetaCanonical 'as string =""
Ligne 151 : Dim Tmp_script_name
Ligne 152 : Dim UrlMetaCanonical
Ligne 153 : Dim ImgVideo
Ligne 154 : Dim ResizeHeader
Ligne 155 : dim necessite_no_abo
Ligne 156 : dim app_name
Ligne 157 : dim urlName
Ligne 158 : dim type_menu
Ligne 159 : dim AccueilEmploi
Ligne 160 : dim masquer_cgu
Ligne 161 : dim langue
Ligne 162 : dim VarMenuOngletCouleur
Ligne 163 : dim profil
Ligne 164 : dim profil_PA
Ligne 165 : dim urlConnection
Ligne 166 : dim base
Ligne 167 : dim RacineDemandee
Ligne 168 : dim Protege
Ligne 169 : dim urlConnectionGlobal
Ligne 170 : dim fichier_Lg
Ligne 171 : dim PrefixSession
Ligne 172 : dim aspx_true = true
Ligne 173 : dim SOMMAIRE_MAG
Ligne 174 : dim COUV_MAG
Ligne 175 : Dim DATE_MAG
Ligne 176 : dim qsmenu
Ligne 177 : dim valc_ouvre
Ligne 178 : dim onloadfunction
Ligne 179 : dim Bannbcv
Ligne 180 : dim PAGE_HEBDO
Ligne 181 : dim PAGE_MAG
Ligne 182 : dim TmpMetaCanonical
Ligne 183 : dim PARUTION_HEBDO
Ligne 184 : dim PARUTION_MAG
Ligne 185 : dim TmpAlternate
Ligne 186 : Dim ListUriAlternate
Ligne 187 : Dim espaceSite
Ligne 188 : Dim logoAppli
Ligne 189 : Dim Abonnement
Ligne 190 : Dim copyrightOnly
Ligne 191 : Dim miniFooter
Ligne 192 : Dim EmploiCommun
Ligne 193 :
Ligne 194 :
Ligne 195 : #End ExternalSource
Ligne 196 : Me.WriteUTF8ResourceString(__w, 0, 1587, false)
Ligne 197 :
Ligne 198 : #ExternalSource("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx",21)
Ligne 199 :
Ligne 200 : dim Manufacturer
Ligne 201 : dim Taille
Ligne 202 :
Ligne 203 :
Ligne 204 : #End ExternalSource
Ligne 205 : Me.WriteUTF8ResourceString(__w, 1587, 2362, false)
Ligne 206 :
Ligne 207 : #ExternalSource("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx",64)
Ligne 208 : __w.Write(DivJsFermerTout )
Ligne 209 :
Ligne 210 :
Ligne 211 : #End ExternalSource
Ligne 212 : Me.WriteUTF8ResourceString(__w, 3949, 593, false)
Ligne 213 :
Ligne 214 : #ExternalSource("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx",72)
Ligne 215 : __w.Write(DivJsAfficherTout )
Ligne 216 :
Ligne 217 :
Ligne 218 : #End ExternalSource
Ligne 219 : Me.WriteUTF8ResourceString(__w, 4542, 564, true)
Ligne 220 : __w.Write("<link rel=""stylesheet"" href=""/css/fontscss.css"" media=""all"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<link href=""/css/st"& _
Ligne 221 : "yles-base.css"" rel=""stylesheet"" type=""text/css"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<link href=""/css/styles-cont"& _
Ligne 222 : "enu.css"" rel=""stylesheet"" type=""text/css"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<link rel=""stylesheet"" href=""/css/"& _
Ligne 223 : "icones.css"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Ligne 224 :
Ligne 225 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\compatible\html-common-headx.asp",2)
Ligne 226 :
Ligne 227 :
Ligne 228 : Dim URLArticle
Ligne 229 : Dim idBlog
Ligne 230 : Dim request_uri
Ligne 231 : Dim date_fin_abo_token
Ligne 232 : Dim FACEBOOK_APPID
Ligne 233 : Dim FACEBOOK_CHANNELURL
Ligne 234 :
Ligne 235 :
Ligne 236 :
Ligne 237 : #End ExternalSource
Ligne 238 : Me.WriteUTF8ResourceString(__w, 5106, 1350, true)
Ligne 239 :
Ligne 240 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\compatible\html-common-headx.asp",29)
Ligne 241 : if VarMenuOngletCouleur = "" or VarMenuOngletCouleur= "OngletMenuJournal" then
Ligne 242 :
Ligne 243 : #End ExternalSource
Ligne 244 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<link href=""/accueil/css/accueil.min.css"" rel=""stylesheet"" type=""text/css"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Ligne 245 : "")
Ligne 246 :
Ligne 247 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\compatible\html-common-headx.asp",31)
Ligne 248 : end if
Ligne 249 :
Ligne 250 : #End ExternalSource
Ligne 251 : Me.WriteUTF8ResourceString(__w, 6456, 440, true)
Ligne 252 :
Ligne 253 : #ExternalSource("E:\InetPub\Global\configuration\prod\coreapplicationconfig.inc",1)
Ligne 254 :
Ligne 255 : if isEmpty(CORE_APPLICATION_ACTIVE) then
Ligne 256 : CORE_APPLICATION_DIRECTORY = ""
Ligne 257 : CORE_APPLICATION_ACTIVE = True
Ligne 258 : end if
Ligne 259 :
Ligne 260 :
Ligne 261 : #End ExternalSource
Ligne 262 :
Ligne 263 : #ExternalSource("E:\InetPub\Global\Inc\Xiti-Init.inc",2)
Ligne 264 :
Ligne 265 : 'Ne pas déclencher xiti pour les applis sous iOS
Ligne 266 : If Not (Session("is_app") = True and Instr(UCase(Session("HTTP_X_APP_OS")), "IOS") > 0) Then
Ligne 267 : pageURL = LCase(Request.ServerVariables("PATH_INFO"))
Ligne 268 : If pageURL = "/erreur404.asp" Then
Ligne 269 : ' si le script est erreur404,on est tombé dans une trappe de redirection des question blog des experts
Ligne 270 : 'essayer de traiter dans ce cas l URL. en eliminant
Ligne 271 : ' retirer les elements ajoutés en query string
Ligne 272 : pageURL = Replace(Replace(Request.ServerVariables("QUERY_STRING"), "404;", ""), ":443", "")
Ligne 273 : pageURL = Mid(PageURL, Instr(5, PageURL, Request.ServerVariables("SERVER_NAME")) + Len(Request.ServerVariables("SERVER_NAME")))
Ligne 274 : end if
Ligne 275 : 'Stop
Ligne 276 : Xiti_Url = Application("SASXiti_Url")
Ligne 277 : Xiti_AreaId = Application("Xiti_AreaId")
Ligne 278 :
Ligne 279 : AreaIdXiti = 0
Ligne 280 :
Ligne 281 : For i = 0 to UBound(Xiti_Url)
Ligne 282 : If InStr(1, Left(PageUrl, Len(Xiti_Url(i))), LCase(Xiti_Url(i))) <> 0 Then
Ligne 283 : AreaIdXiti = Xiti_AreaId(i)
Ligne 284 : Exit For
Ligne 285 : End If
Ligne 286 : Next
Ligne 287 :
Ligne 288 :
Ligne 289 : #End ExternalSource
Ligne 290 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<script type=""text/javascript"" src=""https://tag.aticdn.net/131883/smarttag.js"""& _
Ligne 291 : "></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Ligne 292 :
Ligne 293 : #ExternalSource("E:\InetPub\Global\Inc\Xiti-Init.inc",27)
Ligne 294 :
Ligne 295 : End If
Ligne 296 :
Ligne 297 :
Ligne 298 : #End ExternalSource
Ligne 299 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<script src=""")
Ligne 300 :
Ligne 301 : #ExternalSource("E:\InetPub\Global\Inc\Xiti-Init.inc",30)
Ligne 302 : __w.Write(CORE_APPLICATION_DIRECTORY)
Ligne 303 :
Ligne 304 :
Ligne 305 : #End ExternalSource
Ligne 306 : __w.Write("/_js/xiti_init.min.js""></script>")
Ligne 307 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<script src=""/accueil/js/jquery-3.2.1.min.js""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<link href=""/gcss/vcar"& _
Ligne 308 : "d-mini.css"" rel=""stylesheet"" type=""text/css"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<script type=""text/javascript"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Ligne 309 : ""&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 310 :
Ligne 311 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\compatible\html-common-headx.asp",52)
Ligne 312 : if session("User-alerte-popup-reabo") and session("User-alerte-popup-reabo-message") <> "" then
Ligne 313 :
Ligne 314 : #End ExternalSource
Ligne 315 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"TINY.box.show({ html: '")
Ligne 316 :
Ligne 317 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\compatible\html-common-headx.asp",53)
Ligne 318 : __w.Write(Replace(session("User-alerte-popup-reabo-message"),"'","\'"))
Ligne 319 :
Ligne 320 :
Ligne 321 : #End ExternalSource
Ligne 322 : __w.Write("', boxid: 'frameless', width: 300, height: 150, fixed: false, maskid: 'bluemask',"& _
Ligne 323 : " maskopacity: 40 });"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 324 :
Ligne 325 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\compatible\html-common-headx.asp",54)
Ligne 326 : session("User-alerte-popup-reabo-message")=""
Ligne 327 : end if
Ligne 328 :
Ligne 329 : #End ExternalSource
Ligne 330 : Me.WriteUTF8ResourceString(__w, 6896, 908, true)
Ligne 331 :
Ligne 332 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\compatible\html-common-headx.asp",65)
Ligne 333 : fichier_Lg="FR"
Ligne 334 : on error resume next
Ligne 335 : if Request("langue")="US" then fichier_Lg="US"
Ligne 336 : on error goto 0
Ligne 337 :
Ligne 338 : #End ExternalSource
Ligne 339 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<script type=""text/javascript"" src=""/js/")
Ligne 340 :
Ligne 341 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\compatible\html-common-headx.asp",69)
Ligne 342 : __w.Write(fichier_Lg)
Ligne 343 :
Ligne 344 :
Ligne 345 : #End ExternalSource
Ligne 346 : Me.WriteUTF8ResourceString(__w, 7804, 406, true)
Ligne 347 :
Ligne 348 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\compatible\html-common-headx.asp",76)
Ligne 349 : __w.Write(FACEBOOK_APPID)
Ligne 350 :
Ligne 351 :
Ligne 352 : #End ExternalSource
Ligne 353 : __w.Write("';"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"var fbAppUrl = '")
Ligne 354 :
Ligne 355 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\compatible\html-common-headx.asp",77)
Ligne 356 : __w.Write(FACEBOOK_CHANNELURL)
Ligne 357 :
Ligne 358 :
Ligne 359 : #End ExternalSource
Ligne 360 : __w.Write("';"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<script type=""text/javascript"" src=""/js/js_auth_v4.js""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Ligne 361 : "")
Ligne 362 :
Ligne 363 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\compatible\html-common-headx.asp",80)
Ligne 364 : If session("User-id") & "" = "" then
Ligne 365 :
Ligne 366 : #End ExternalSource
Ligne 367 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<script type=""text/javascript"" src=""/js/js_auth_v5.js""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<script src="""& _
Ligne 368 : "https://connect.facebook.net/fr_FR/all.js""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Ligne 369 :
Ligne 370 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\compatible\html-common-headx.asp",83)
Ligne 371 : end if
Ligne 372 :
Ligne 373 : #End ExternalSource
Ligne 374 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<link href=""/plugins/jalert/jAlert.css"" rel=""stylesheet"" type=""text/css"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<s"& _
Ligne 375 : "cript src=""/plugins/jalert/jAlert.js"" type=""text/javascript""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Ligne 376 : __w.Write("<script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" $(function () {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" $(""#inscription-newsletter-button, #inscri"& _
Ligne 377 : "ption-newsletter-button-footer"").click(function () {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" var email = "& _
Ligne 378 : "$(this).parent().find(""input[name=inscription-newsletter-email]"").val();"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Ligne 379 : " ")
Ligne 380 :
Ligne 381 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\newsletter-script.asp",6)
Ligne 382 : if Trim(""& Session("User-id")) = "" then
Ligne 383 :
Ligne 384 : #End ExternalSource
Ligne 385 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" //si pas connecté, ouvrir la connexion, precharger l'email sais"& _
Ligne 386 : "i"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" connecter("""", """", ""&auto_e="" + encodeURIComponent(email) + ""&"& _
Ligne 387 : "infoauth=newsq"");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 388 :
Ligne 389 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\newsletter-script.asp",9)
Ligne 390 : else
Ligne 391 :
Ligne 392 : #End ExternalSource
Ligne 393 : Me.WriteUTF8ResourceString(__w, 8210, 1164, false)
Ligne 394 :
Ligne 395 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\newsletter-script.asp",32)
Ligne 396 : end if
Ligne 397 :
Ligne 398 : #End ExternalSource
Ligne 399 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" });"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 400 :
Ligne 401 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\newsletter-script.asp",34)
Ligne 402 :
Ligne 403 : 'var navHeight = $('#menu_principal').offset().top;
Ligne 404 : 'FixMegaNavbar(navHeight);
Ligne 405 : '$(window).bind('scroll', function () { FixMegaNavbar(navHeight); });
Ligne 406 : '
Ligne 407 : 'function FixMegaNavbar(navHeight) {
Ligne 408 : ' if (!$('#menu_principal').hasClass('navbar-fixed-bottom')) {
Ligne 409 : ' if ($(window).scrollTop() > navHeight) {
Ligne 410 : ' $('#menu_principal').addClass('navbar-fixed-top');
Ligne 411 : ' $('body').css({ 'margin-top': ($('#menu_principal').height() +34) + 'px' });
Ligne 412 : ' }
Ligne 413 : ' else {
Ligne 414 : ' $('#menu_principal').removeClass('navbar-fixed-top');
Ligne 415 : ' $('body').css({ 'margin-top': '' });
Ligne 416 : ' }
Ligne 417 : ' }
Ligne 418 : '}
Ligne 419 :
Ligne 420 :
Ligne 421 : #End ExternalSource
Ligne 422 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" });"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</script>")
Ligne 423 : __w.Write("<!-- Poool -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Ligne 424 :
Ligne 425 : #ExternalSource("E:\InetPub\Global\Inc\paywallcontrol.inc",2)
Ligne 426 :
Ligne 427 : pooolEnabled = false
Ligne 428 : if not pooolEnabled then
Ligne 429 : ' ne pas initialiser poool
Ligne 430 : else
Ligne 431 : ' ne pas déclenche poool pour les applis sous iOS
Ligne 432 : if not (Session("is_app") = true and instr(ucase(Session("HTTP_X_APP_OS")), "IOS") > 0) then
Ligne 433 : if URLArticle = "" and idBlog = "" _
Ligne 434 : and InStr(request_uri, "/ecole-formation") = 0 and InStr(request_uri, "postercommentaire.asp") = 0 _
Ligne 435 : and InStr(request_uri, "/vente-fonds-commerce/") = 0 and InStr(request_uri, "/vente-fonds-de-commerce") = 0 and InStr(request_uri, "/salon-agenda") = 0 and InStr(request_uri, "page-par-page.asp") = 0 and InStr(request_uri, "lockforumpoool.asp") = 0 _
Ligne 436 : then
Ligne 437 :
Ligne 438 : #End ExternalSource
Ligne 439 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<script type=""text/javascript"" src=""/gjs/poool_init.js""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<scrip"& _
Ligne 440 : "t>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"$(function() {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"poool(""send"", ""page-view"", ""page"");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"});"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"</"& _
Ligne 441 : "script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 442 :
Ligne 443 : #ExternalSource("E:\InetPub\Global\Inc\paywallcontrol.inc",19)
Ligne 444 :
Ligne 445 : elseif InStr(request_uri, "/ecole-formation") = 0 _
Ligne 446 : and InStr(request_uri, "/vente-fonds-commerce/") = 0 and InStr(request_uri, "/vente-fonds-de-commerce") = 0 and InStr(request_uri, "/salon-agenda") = 0 _
Ligne 447 : then
Ligne 448 :
Ligne 449 : 'non protégé
Ligne 450 : if not Protege then
Ligne 451 : 'Abonné => Pas de poool
Ligne 452 : if instr(session("User-droits"),"J") > 0 or instr(session("User-droits"),"B") > 0 then
Ligne 453 : 'PAS DE DECLENCHEMENT POOOL
Ligne 454 : 'SOS Expert + connecté => Pas de poool
Ligne 455 : elseif InStr(URL, "/forum/") <> 0 then
Ligne 456 : 'PAS DE DECLENCHEMENT POOOL
Ligne 457 : else
Ligne 458 :
Ligne 459 :
Ligne 460 : #End ExternalSource
Ligne 461 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<script type=""text/javascript"" src=""/gjs/poool_init.js""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)& _
Ligne 462 : "<script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"$(function() {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"poool('send', 'page-view', 'free');"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)& _
Ligne 463 : ""&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"});"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"</script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 464 :
Ligne 465 : #ExternalSource("E:\InetPub\Global\Inc\paywallcontrol.inc",41)
Ligne 466 :
Ligne 467 : end if
Ligne 468 :
Ligne 469 : 'dans le cas d'un article, /wwwho/lhotellerie/logcontrol.inc a défini une var Protege à vrai ou faux
Ligne 470 : else
Ligne 471 :
Ligne 472 :
Ligne 473 : #End ExternalSource
Ligne 474 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<script type=""text/javascript"" src=""/gjs/poool_init.js""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<scr"& _
Ligne 475 : "ipt type=""text/javascript"" src=""/gjs/poool_access.js""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 476 :
Ligne 477 : #ExternalSource("E:\InetPub\Global\Inc\paywallcontrol.inc",50)
Ligne 478 : if (InStr(request_uri, "/journal/") <> 0 or InStr(request_uri, "/blogs-des-experts/") <> 0) _
Ligne 479 : and InStr(request_uri, "/ecole-formation") = 0 and InStr(request_uri, "postercommentaire.asp") = 0 _
Ligne 480 : and InStr(request_uri, "/vente-fonds-commerce/") = 0 and InStr(request_uri, "/vente-fonds-de-commerce") = 0 and InStr(request_uri, "/salon-agenda") = 0 and InStr(request_uri, "page-par-page.asp") = 0 and InStr(URL, "/forum/") = 0 and InStr(request_uri, "posterquestion.asp") = 0 and InStr(request_uri, "lockforumpoool.asp") = 0 _
Ligne 481 : then
Ligne 482 :
Ligne 483 :
Ligne 484 : #End ExternalSource
Ligne 485 : Me.WriteUTF8ResourceString(__w, 9374, 931, true)
Ligne 486 :
Ligne 487 : #ExternalSource("E:\InetPub\Global\Inc\paywallcontrol.inc",89)
Ligne 488 : if session("User-id") <> 0 then
Ligne 489 :
Ligne 490 : #End ExternalSource
Ligne 491 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"$(function() {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"poool('config', 'custom_segment'"& _
Ligne 492 : ", 'inscrits-article-sosexperts');"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"});"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"</script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 493 :
Ligne 494 : #ExternalSource("E:\InetPub\Global\Inc\paywallcontrol.inc",95)
Ligne 495 : end if
Ligne 496 : elseif InStr(request_uri, "postercommentaire.asp") <> 0 _
Ligne 497 : or InStr(request_uri, "posterquestion.asp") <> 0 or InStr(request_uri, "lockforumpoool.asp") <> 0 then
Ligne 498 :
Ligne 499 : #End ExternalSource
Ligne 500 : Me.WriteUTF8ResourceString(__w, 10305, 652, true)
Ligne 501 :
Ligne 502 : #ExternalSource("E:\InetPub\Global\Inc\paywallcontrol.inc",122)
Ligne 503 :
Ligne 504 : 'Consultation question SOS Experts
Ligne 505 : elseif InStr(URL, "/forum/") <> 0 _
Ligne 506 : and InStr(request_uri, "posterquestion.asp") = 0 and InStr(request_uri, "postercommentaire.asp") = 0 then
Ligne 507 :
Ligne 508 : #End ExternalSource
Ligne 509 : Me.WriteUTF8ResourceString(__w, 10957, 814, true)
Ligne 510 :
Ligne 511 : #ExternalSource("E:\InetPub\Global\Inc\paywallcontrol.inc",156)
Ligne 512 : end if
Ligne 513 :
Ligne 514 : #End ExternalSource
Ligne 515 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"$(function() {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"poool('send', 'page-view', 'premium'"& _
Ligne 516 : ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"});"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"</script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 517 :
Ligne 518 : #ExternalSource("E:\InetPub\Global\Inc\paywallcontrol.inc",163)
Ligne 519 :
Ligne 520 : end if
Ligne 521 : end if
Ligne 522 : end if
Ligne 523 : end if
Ligne 524 :
Ligne 525 :
Ligne 526 : #End ExternalSource
Ligne 527 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!-- End Poool -->")
Ligne 528 : Me.WriteUTF8ResourceString(__w, 11771, 507, true)
Ligne 529 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</head>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!-- Include pour les declarations-->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 530 :
Ligne 531 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",1)
Ligne 532 :
Ligne 533 : Dim UrlLHR as String, env_dev as Boolean
Ligne 534 : if Request.ServerVariables("SERVER_NAME") = "www.webdev.fr" then
Ligne 535 : UrlLHR = "https://www.webdev.fr"
Ligne 536 : env_dev = true
Ligne 537 : else
Ligne 538 : UrlLHR = "https://www.lhotellerie-restauration.fr/"
Ligne 539 : env_dev = true
Ligne 540 : end if
Ligne 541 :
Ligne 542 :
Ligne 543 : #End ExternalSource
Ligne 544 : Me.WriteUTF8ResourceString(__w, 12278, 3845, false)
Ligne 545 :
Ligne 546 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",62)
Ligne 547 : __w.Write(UrlLHR )
Ligne 548 :
Ligne 549 :
Ligne 550 : #End ExternalSource
Ligne 551 : Me.WriteUTF8ResourceString(__w, 16123, 406, false)
Ligne 552 :
Ligne 553 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",69)
Ligne 554 : __w.Write(UrlLHR )
Ligne 555 :
Ligne 556 :
Ligne 557 : #End ExternalSource
Ligne 558 : __w.Write("/journal-hebdo-chr""><i class=""iconlhr-journal"" style=""font-size: 35px;""></i>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)& _
Ligne 559 : ""&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<span>Le journal</span></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 560 :
Ligne 561 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",2)
Ligne 562 :
Ligne 563 : '***********************************************************************************
Ligne 564 : ' Menu bandeau rouge
Ligne 565 : '***********************************************************************************
Ligne 566 : langue ="FR"
Ligne 567 : 'Response.write VarMenuOngletCouleur
Ligne 568 : select case VarMenuOngletCouleur
Ligne 569 : case "OngletMenuAnnonces"
Ligne 570 :
Ligne 571 : if profil <> "" then
Ligne 572 : profil_PA="cand"
Ligne 573 : if profil_PA<> "" and urlConnection ="" then urlConnection = profil_PA & "|" & base & "|" & langue
Ligne 574 : end if
Ligne 575 : 'Response.write urlConnection
Ligne 576 : case "OngletMenuEmploi"
Ligne 577 : 'RacineDemandee = split(Request("SCRIPT_NAME"),"/")(ubound(split(Request("SCRIPT_NAME"),"/")))
Ligne 578 : RacineDemandee = mid(Request.ServerVariables("SCRIPT_NAME"),instrrev(Request.ServerVariables("SCRIPT_NAME"),"/")+1)
Ligne 579 : if instr(lcase(RacineDemandee), "consulteroffre.asp" ) > 0 then
Ligne 580 : profil_PA = "cand"
Ligne 581 : else
Ligne 582 : if lcase(split(RacineDemandee,"_")(0)) = "cand" or lcase(split(RacineDemandee,"_")(0)) ="recr" then profil_PA = lcase(split(RacineDemandee,"_")(0))
Ligne 583 : end if
Ligne 584 : if profil_PA = "" then
Ligne 585 : profil_PA=Request.querystring("profil")
Ligne 586 : end if
Ligne 587 :
Ligne 588 : if profil_PA = "" then profil_PA = profil
Ligne 589 : if base = "" then base =Request.querystring("base")
Ligne 590 : langue = "FR"
Ligne 591 : if profil_PA<> "" and urlConnection ="" then urlConnection = profil_PA & "|" & base & "|" & langue
Ligne 592 : case "OngletMenuVF"
Ligne 593 : profil_PA = "internaute_vf"
Ligne 594 : urlConnection = profil_PA
Ligne 595 : case "OngletMenuAnnonce"
Ligne 596 : case else
Ligne 597 : 'if Session("test") = "1" then
Ligne 598 : if Protege then
Ligne 599 : urlConnection = "abo"
Ligne 600 : if instr(lcase(Request.ServerVariables("script_name")) , "postercommentaire") then
Ligne 601 : urlConnection=urlConnection & "|" & "post_com"
Ligne 602 : end if
Ligne 603 :
Ligne 604 : if instr(lcase(Request.ServerVariables("script_name")) , "posterquestion") then
Ligne 605 : urlConnection=urlConnection & "|" & "post_ques"
Ligne 606 : end if
Ligne 607 : if instr(lcase(Request.ServerVariables("script_name")) , "submitquestionreponseforumblog") then
Ligne 608 : urlConnection=urlConnection & "|" & "post_ques_mess"
Ligne 609 : end if
Ligne 610 : end if
Ligne 611 : 'end if
Ligne 612 : end select
Ligne 613 : urlConnection = lcase(urlConnection)
Ligne 614 : urlConnectionGlobal = urlConnection
Ligne 615 :
Ligne 616 :
Ligne 617 : '***********************************************************************************
Ligne 618 : ' Fin menu bandeau rouge
Ligne 619 : '***********************************************************************************
Ligne 620 :
Ligne 621 :
Ligne 622 : if not aspx_true then
Ligne 623 : if protege then
Ligne 624 : Response.Write("<input type=""hidden"" value=""1"" name=""abo"" id=""abo""/>")
Ligne 625 : end if
Ligne 626 : end if
Ligne 627 :
Ligne 628 : '************************************************************************************************************************************
Ligne 629 : ' nouveau code
Ligne 630 : '************************************************************************************************************************************
Ligne 631 : on error resume next
Ligne 632 : if Request("lhrG") = "no" then
Ligne 633 :
Ligne 634 :
Ligne 635 : #End ExternalSource
Ligne 636 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<script language=""javascript"">setTimeout(""connecter('','','")
Ligne 637 :
Ligne 638 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",74)
Ligne 639 : __w.Write(urlConnectionGlobal)
Ligne 640 :
Ligne 641 :
Ligne 642 : #End ExternalSource
Ligne 643 : __w.Write("')"", 300);</script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 644 :
Ligne 645 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",75)
Ligne 646 : end if
Ligne 647 : if Session("User-id") & "" ="" and Request("autolaunch") = "1" then
Ligne 648 :
Ligne 649 : #End ExternalSource
Ligne 650 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" <script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" connecter('', '', '');"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" </script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Ligne 651 : " ")
Ligne 652 :
Ligne 653 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",80)
Ligne 654 : end if
Ligne 655 :
Ligne 656 : #End ExternalSource
Ligne 657 :
Ligne 658 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",81)
Ligne 659 : 'on error goto 0
Ligne 660 :
Ligne 661 : #End ExternalSource
Ligne 662 :
Ligne 663 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",82)
Ligne 664 : if not aspx_true then
Ligne 665 :
Ligne 666 : #End ExternalSource
Ligne 667 :
Ligne 668 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",83)
Ligne 669 : if (Session("user-id") & "" = "" and (session(PrefixSession & "id") ="" or session(PrefixSession & "id") ="0" )) then
Ligne 670 :
Ligne 671 : #End ExternalSource
Ligne 672 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""dropdown-compte"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 673 :
Ligne 674 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",85)
Ligne 675 : if Session("User-Compte-en-attente-val") = "1" then
Ligne 676 :
Ligne 677 : #End ExternalSource
Ligne 678 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <button class=""dropbtn compte-en-attente-validation"" oncli"& _
Ligne 679 : "ck=""connecter('','','")
Ligne 680 :
Ligne 681 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",86)
Ligne 682 : __w.Write(urlConnection)
Ligne 683 :
Ligne 684 :
Ligne 685 : #End ExternalSource
Ligne 686 : Me.WriteUTF8ResourceString(__w, 16529, 337, false)
Ligne 687 :
Ligne 688 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",90)
Ligne 689 : else
Ligne 690 :
Ligne 691 : #End ExternalSource
Ligne 692 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <button class=""dropbtn"" onclick=""connecter('','','")
Ligne 693 :
Ligne 694 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",91)
Ligne 695 : __w.Write(urlConnection)
Ligne 696 :
Ligne 697 :
Ligne 698 : #End ExternalSource
Ligne 699 : __w.Write("')"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <i class=""iconlhr-compte"" style=""font-size:35px;""><"& _
Ligne 700 : "/i><br/>Se connecter "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </button>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 701 :
Ligne 702 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",94)
Ligne 703 : end if
Ligne 704 :
Ligne 705 : #End ExternalSource
Ligne 706 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 707 :
Ligne 708 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",97)
Ligne 709 : else
Ligne 710 :
Ligne 711 : #End ExternalSource
Ligne 712 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""dropdown-compte"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <button type=""button"& _
Ligne 713 : """ class=""dropbtn"" onclick=""")
Ligne 714 :
Ligne 715 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",99)
Ligne 716 : if Session("User-id") = "" then
Ligne 717 :
Ligne 718 : #End ExternalSource
Ligne 719 :
Ligne 720 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",99)
Ligne 721 : if instr(urlConnection,"abo") > 0 then
Ligne 722 :
Ligne 723 : #End ExternalSource
Ligne 724 : __w.Write("javascript:fill_abonne();")
Ligne 725 :
Ligne 726 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",99)
Ligne 727 : else
Ligne 728 :
Ligne 729 : #End ExternalSource
Ligne 730 : __w.Write("javascript:connecter('','','")
Ligne 731 :
Ligne 732 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",99)
Ligne 733 : __w.Write(urlConnection)
Ligne 734 :
Ligne 735 :
Ligne 736 : #End ExternalSource
Ligne 737 : __w.Write("');")
Ligne 738 :
Ligne 739 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",99)
Ligne 740 : end if
Ligne 741 :
Ligne 742 : #End ExternalSource
Ligne 743 :
Ligne 744 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",99)
Ligne 745 : end if
Ligne 746 :
Ligne 747 : #End ExternalSource
Ligne 748 : __w.Write(""">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <i class=""iconlhr-compte"" style=""font-size:35px;""></i><br"& _
Ligne 749 : " />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 750 :
Ligne 751 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",101)
Ligne 752 : if Session("User-id") <> "" then
Ligne 753 :
Ligne 754 : #End ExternalSource
Ligne 755 :
Ligne 756 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",102)
Ligne 757 : if Session("CompteEcole") = True then
Ligne 758 :
Ligne 759 : #End ExternalSource
Ligne 760 :
Ligne 761 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",103)
Ligne 762 : __w.Write(Session("CompteEcole_Nom"))
Ligne 763 :
Ligne 764 :
Ligne 765 : #End ExternalSource
Ligne 766 : __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 767 :
Ligne 768 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",104)
Ligne 769 : else
Ligne 770 :
Ligne 771 : #End ExternalSource
Ligne 772 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <span id=""lhr-login-user-email"" title=""")
Ligne 773 :
Ligne 774 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",105)
Ligne 775 : __w.Write(Session("User-email"))
Ligne 776 :
Ligne 777 :
Ligne 778 : #End ExternalSource
Ligne 779 : __w.Write(""">")
Ligne 780 :
Ligne 781 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",105)
Ligne 782 : __w.Write(Session("User-email"))
Ligne 783 :
Ligne 784 :
Ligne 785 : #End ExternalSource
Ligne 786 : __w.Write("</span>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 787 :
Ligne 788 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",106)
Ligne 789 : end if
Ligne 790 :
Ligne 791 : #End ExternalSource
Ligne 792 :
Ligne 793 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",107)
Ligne 794 : else
Ligne 795 :
Ligne 796 : #End ExternalSource
Ligne 797 :
Ligne 798 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",108)
Ligne 799 : if session(PrefixSession & "id")="" or session(PrefixSession & "id")="0" then
Ligne 800 :
Ligne 801 : #End ExternalSource
Ligne 802 :
Ligne 803 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",109)
Ligne 804 : if langue="US" then
Ligne 805 :
Ligne 806 : #End ExternalSource
Ligne 807 : __w.Write("Log in")
Ligne 808 :
Ligne 809 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",109)
Ligne 810 : else
Ligne 811 :
Ligne 812 : #End ExternalSource
Ligne 813 : __w.Write("Se connecter")
Ligne 814 :
Ligne 815 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",109)
Ligne 816 : end if
Ligne 817 :
Ligne 818 : #End ExternalSource
Ligne 819 :
Ligne 820 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",110)
Ligne 821 : else
Ligne 822 :
Ligne 823 : #End ExternalSource
Ligne 824 :
Ligne 825 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",111)
Ligne 826 : __w.Write(left(Session(PrefixSession & "LoginEmploi"), 37))
Ligne 827 :
Ligne 828 :
Ligne 829 : #End ExternalSource
Ligne 830 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 831 :
Ligne 832 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",112)
Ligne 833 : if len(Session(PrefixSession & "LoginEmploi")) > 37 then
Ligne 834 :
Ligne 835 : #End ExternalSource
Ligne 836 :
Ligne 837 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",113)
Ligne 838 : __w.Write("...")
Ligne 839 :
Ligne 840 :
Ligne 841 : #End ExternalSource
Ligne 842 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 843 :
Ligne 844 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",114)
Ligne 845 : end if
Ligne 846 :
Ligne 847 : #End ExternalSource
Ligne 848 :
Ligne 849 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",115)
Ligne 850 : end if
Ligne 851 :
Ligne 852 : #End ExternalSource
Ligne 853 :
Ligne 854 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",116)
Ligne 855 : end if
Ligne 856 :
Ligne 857 : #End ExternalSource
Ligne 858 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </button>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 859 :
Ligne 860 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",118)
Ligne 861 : if Session("User-id") <> "" and Session("CompteEcole")=False then
Ligne 862 :
Ligne 863 : #End ExternalSource
Ligne 864 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""dropdown-content"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a hr"& _
Ligne 865 : "ef=""/mon-compte.asp"">Mon compte</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""/mon-compte/"& _
Ligne 866 : "mes-favoris"">Mes favoris</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 867 :
Ligne 868 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",122)
Ligne 869 : if Session("User-id") & "" <> "" and Session("User-noabonne")&"" = "" then
Ligne 870 :
Ligne 871 : #End ExternalSource
Ligne 872 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&" <a href='javascript:fill_abonne()'>Saisir mon numéro d'abonné"& _
Ligne 873 : "</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&" ")
Ligne 874 :
Ligne 875 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",124)
Ligne 876 : end if
Ligne 877 :
Ligne 878 : #End ExternalSource
Ligne 879 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""javascript: se_deconnecter();"">Déconnexion</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Ligne 880 : " </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 881 :
Ligne 882 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",127)
Ligne 883 : end if
Ligne 884 :
Ligne 885 : #End ExternalSource
Ligne 886 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 887 :
Ligne 888 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",129)
Ligne 889 : end if
Ligne 890 :
Ligne 891 : #End ExternalSource
Ligne 892 :
Ligne 893 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\se-connecter.asp",130)
Ligne 894 : end if
Ligne 895 :
Ligne 896 : #End ExternalSource
Ligne 897 : Me.WriteUTF8ResourceString(__w, 16866, 319, true)
Ligne 898 :
Ligne 899 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",84)
Ligne 900 : if VarMenuOngletCouleur = "OngletMenuEmploi" then
Ligne 901 :
Ligne 902 : #End ExternalSource
Ligne 903 : __w.Write("lhr-selected")
Ligne 904 :
Ligne 905 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",84)
Ligne 906 : end if
Ligne 907 :
Ligne 908 : #End ExternalSource
Ligne 909 : __w.Write(""">EMPLOI</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<li><a href=""")
Ligne 910 :
Ligne 911 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",85)
Ligne 912 : __w.Write(UrlLHR )
Ligne 913 :
Ligne 914 :
Ligne 915 : #End ExternalSource
Ligne 916 : __w.Write("/ecole-formation/ecole-hotelieres-et-formations-en-hotellerie-restauration.asp"" c"& _
Ligne 917 : "lass=""lhr-menu-ecoles")
Ligne 918 :
Ligne 919 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",85)
Ligne 920 : if VarMenuOngletCouleur = "OngletMenuFormationEcole" then
Ligne 921 :
Ligne 922 : #End ExternalSource
Ligne 923 : __w.Write(" lhr-selected")
Ligne 924 :
Ligne 925 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",85)
Ligne 926 : end if
Ligne 927 :
Ligne 928 : #End ExternalSource
Ligne 929 : __w.Write(""">FORMATION-ÉCOLES</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<li><a href=""")
Ligne 930 :
Ligne 931 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",86)
Ligne 932 : __w.Write(UrlLHR )
Ligne 933 :
Ligne 934 :
Ligne 935 : #End ExternalSource
Ligne 936 : __w.Write("/menu.htm"" class=""lhr-menu-actualites ")
Ligne 937 :
Ligne 938 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",86)
Ligne 939 : if VarMenuOngletCouleur = "" or VarMenuOngletCouleur= "OngletMenuJournal" then
Ligne 940 :
Ligne 941 : #End ExternalSource
Ligne 942 : __w.Write("lhr-selected")
Ligne 943 :
Ligne 944 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",86)
Ligne 945 : end if
Ligne 946 :
Ligne 947 : #End ExternalSource
Ligne 948 : __w.Write(""">ACTUALITÉS</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<li><a href=""")
Ligne 949 :
Ligne 950 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",87)
Ligne 951 : __w.Write(UrlLHR )
Ligne 952 :
Ligne 953 :
Ligne 954 : #End ExternalSource
Ligne 955 : __w.Write("/sos-experts"" class=""lhr-menu-blogs ")
Ligne 956 :
Ligne 957 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",87)
Ligne 958 : if VarMenuOngletCouleur = "OngletMenuBlogs" then
Ligne 959 :
Ligne 960 : #End ExternalSource
Ligne 961 : __w.Write("lhr-selected")
Ligne 962 :
Ligne 963 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",87)
Ligne 964 : end if
Ligne 965 :
Ligne 966 : #End ExternalSource
Ligne 967 : __w.Write(""">SOS EXPERTS</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<li><a href=""")
Ligne 968 :
Ligne 969 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",88)
Ligne 970 : __w.Write(UrlLHR )
Ligne 971 :
Ligne 972 :
Ligne 973 : #End ExternalSource
Ligne 974 : __w.Write("/vente-fonds-de-commerce.asp"" class=""lhr-menu-vf")
Ligne 975 :
Ligne 976 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",88)
Ligne 977 : if VarMenuOngletCouleur = "OngletMenuVF" then
Ligne 978 :
Ligne 979 : #End ExternalSource
Ligne 980 : __w.Write(" lhr-selected")
Ligne 981 :
Ligne 982 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",88)
Ligne 983 : end if
Ligne 984 :
Ligne 985 : #End ExternalSource
Ligne 986 : __w.Write(""">FONDS DE COMMERCE</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<li><a href=""")
Ligne 987 :
Ligne 988 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",89)
Ligne 989 : __w.Write(UrlLHR )
Ligne 990 :
Ligne 991 :
Ligne 992 : #End ExternalSource
Ligne 993 : __w.Write("/pa.asp"" class=""lhr-menu-annonces")
Ligne 994 :
Ligne 995 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",89)
Ligne 996 : if VarMenuOngletCouleur = "OngletMenuAnnonces" then
Ligne 997 :
Ligne 998 : #End ExternalSource
Ligne 999 : __w.Write(" lhr-selected")
Ligne 1000 :
Ligne 1001 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",89)
Ligne 1002 : end if
Ligne 1003 :
Ligne 1004 : #End ExternalSource
Ligne 1005 : __w.Write(""">ANNONCES</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<!--<li><a href=""")
Ligne 1006 :
Ligne 1007 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",90)
Ligne 1008 : __w.Write(UrlLHR )
Ligne 1009 :
Ligne 1010 :
Ligne 1011 : #End ExternalSource
Ligne 1012 : __w.Write("/boite-a-outils"" class=""lhr-menu-outils")
Ligne 1013 :
Ligne 1014 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",90)
Ligne 1015 : if VarMenuOngletCouleur = "OngletMenuBoiteOutils" then
Ligne 1016 :
Ligne 1017 : #End ExternalSource
Ligne 1018 : __w.Write(" lhr-selected")
Ligne 1019 :
Ligne 1020 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\aspx\menu-full.asp",90)
Ligne 1021 : end if
Ligne 1022 :
Ligne 1023 : #End ExternalSource
Ligne 1024 : __w.Write(""">BOITE À OUTILS</a></li>-->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"</ul>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"</nav>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</d"& _
Ligne 1025 : "iv>")
Ligne 1026 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<center><table height=""120"" cellpadding=""10""><tr><td>")
Ligne 1027 : Me.WriteUTF8ResourceString(__w, 17185, 368, true)
Ligne 1028 : Me.WriteUTF8ResourceString(__w, 17553, 349, true)
Ligne 1029 : Me.WriteUTF8ResourceString(__w, 17902, 753, true)
Ligne 1030 :
Ligne 1031 : #ExternalSource("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx",102)
Ligne 1032 : __w.Write( DifTypeCat.Replace("?'", "'"))
Ligne 1033 :
Ligne 1034 :
Ligne 1035 : #End ExternalSource
Ligne 1036 : Me.WriteUTF8ResourceString(__w, 18655, 657, true)
Ligne 1037 :
Ligne 1038 : #ExternalSource("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx",114)
Ligne 1039 : If tabListEvents <> "" Then
Ligne 1040 :
Ligne 1041 : #End ExternalSource
Ligne 1042 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table style=""width: 100%"" cellspacing=""0"" cell"& _
Ligne 1043 : "padding=""0"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr class=""tablien"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Ligne 1044 : " ")
Ligne 1045 :
Ligne 1046 : #ExternalSource("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx",117)
Ligne 1047 : __w.Write( PreviewsAgenda)
Ligne 1048 :
Ligne 1049 :
Ligne 1050 : #End ExternalSource
Ligne 1051 : Me.WriteUTF8ResourceString(__w, 19312, 1356, true)
Ligne 1052 :
Ligne 1053 : #ExternalSource("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx",138)
Ligne 1054 : __w.Write(DivtestViewOrHide )
Ligne 1055 :
Ligne 1056 :
Ligne 1057 : #End ExternalSource
Ligne 1058 : __w.Write(""" id=""totalAfficher"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <input type=""hidden"" val"& _
Ligne 1059 : "ue=""0"" id=""totalCacher"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <input type=""hidden"""& _
Ligne 1060 : " value=""")
Ligne 1061 :
Ligne 1062 : #ExternalSource("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx",140)
Ligne 1063 : __w.Write(DivtestViewOrHide )
Ligne 1064 :
Ligne 1065 :
Ligne 1066 : #End ExternalSource
Ligne 1067 : __w.Write(""" id=""totalDiv"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Ligne 1068 : " <div id=""ListEvents"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 1069 :
Ligne 1070 : #ExternalSource("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx",143)
Ligne 1071 : __w.Write(tabListEvents )
Ligne 1072 :
Ligne 1073 :
Ligne 1074 : #End ExternalSource
Ligne 1075 : Me.WriteUTF8ResourceString(__w, 20668, 257, true)
Ligne 1076 :
Ligne 1077 : #ExternalSource("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx",148)
Ligne 1078 : __w.Write( PreviewsAgenda)
Ligne 1079 :
Ligne 1080 :
Ligne 1081 : #End ExternalSource
Ligne 1082 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </ta"& _
Ligne 1083 : "ble>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 1084 :
Ligne 1085 : #ExternalSource("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx",151)
Ligne 1086 :
Ligne 1087 : Else
Ligne 1088 :
Ligne 1089 :
Ligne 1090 : #End ExternalSource
Ligne 1091 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table style=""width: 100%"" cellspacing=""0"" cell"& _
Ligne 1092 : "padding=""0"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Ligne 1093 : " ")
Ligne 1094 :
Ligne 1095 : #ExternalSource("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx",156)
Ligne 1096 : __w.Write( PreviewsAgenda)
Ligne 1097 :
Ligne 1098 :
Ligne 1099 : #End ExternalSource
Ligne 1100 : Me.WriteUTF8ResourceString(__w, 20925, 431, false)
Ligne 1101 :
Ligne 1102 : #ExternalSource("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx",165)
Ligne 1103 :
Ligne 1104 : End If
Ligne 1105 :
Ligne 1106 :
Ligne 1107 : #End ExternalSource
Ligne 1108 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)& _
Ligne 1109 : "</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"</div><!--fin colonne 1-->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 1110 : Me.WriteUTF8ResourceString(__w, 21356, 323, true)
Ligne 1111 :
Ligne 1112 : #ExternalSource("E:\InetPub\Global\Inc\HebdoEnCours.inc",1)
Ligne 1113 :
Ligne 1114 : If Now > Application("HebdoEnCours_EOL") Then
Ligne 1115 :
Ligne 1116 : Server.Execute("/global_inc/cache/cache_HebdoEnCours.asp")
Ligne 1117 :
Ligne 1118 : End If
Ligne 1119 :
Ligne 1120 : T_HebdoEnCours = Application("T_HebdoEnCours")
Ligne 1121 :
Ligne 1122 : COUV_HEBDO = T_HebdoEnCours(2)
Ligne 1123 : DATE_HEBDO = T_HebdoEnCours(0)
Ligne 1124 : PAGE_HEBDO = T_HebdoEnCours(3)
Ligne 1125 : PARUTION_HEBDO = T_HebdoEnCours(1)
Ligne 1126 :
Ligne 1127 :
Ligne 1128 :
Ligne 1129 : #End ExternalSource
Ligne 1130 :
Ligne 1131 : #ExternalSource("E:\InetPub\Global\Inc\MagEnCours.inc",1)
Ligne 1132 :
Ligne 1133 : If Now > Application("MagEnCours_EOL") Then
Ligne 1134 :
Ligne 1135 : Server.Execute("/global_inc/cache/cache_MagEnCours.asp")
Ligne 1136 :
Ligne 1137 : End If
Ligne 1138 :
Ligne 1139 : T_MagEnCours = Application("T_MagEnCours")
Ligne 1140 :
Ligne 1141 : COUV_MAG = T_MagEnCours(2)
Ligne 1142 : DATE_MAG = T_MagEnCours(0)
Ligne 1143 : PAGE_MAG = T_MagEnCours(3)
Ligne 1144 : PARUTION_MAG = T_MagEnCours(1)
Ligne 1145 :
Ligne 1146 :
Ligne 1147 :
Ligne 1148 : #End ExternalSource
Ligne 1149 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<div style=""width:152px; margin:0 0 15px 10px; border-top:#e3001a solid 4px;"& _
Ligne 1150 : " padding-top:10px;"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<a href=""")
Ligne 1151 :
Ligne 1152 : #ExternalSource("E:\InetPub\Ho\wwwho\bloc\col-right.inc",9)
Ligne 1153 : __w.Write(SOMMAIRE_HEBDO)
Ligne 1154 :
Ligne 1155 :
Ligne 1156 : #End ExternalSource
Ligne 1157 : __w.Write("""><img src=""")
Ligne 1158 :
Ligne 1159 : #ExternalSource("E:\InetPub\Ho\wwwho\bloc\col-right.inc",9)
Ligne 1160 : __w.Write(COUV_HEBDO)
Ligne 1161 :
Ligne 1162 :
Ligne 1163 : #End ExternalSource
Ligne 1164 : __w.Write(""" style=""border:#b2b2b2 solid 1px;"" width=""150"" border=""0"" alt=""Le journal L'Hôte"& _
Ligne 1165 : "llerie Restauration"" title=""Le journal L'Hôtellerie Restauration""/></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<br>"& _
Ligne 1166 : "<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<a href=""")
Ligne 1167 :
Ligne 1168 : #ExternalSource("E:\InetPub\Ho\wwwho\bloc\col-right.inc",11)
Ligne 1169 : __w.Write(SOMMAIRE_MAG)
Ligne 1170 :
Ligne 1171 :
Ligne 1172 : #End ExternalSource
Ligne 1173 : __w.Write("""><img src=""")
Ligne 1174 :
Ligne 1175 : #ExternalSource("E:\InetPub\Ho\wwwho\bloc\col-right.inc",11)
Ligne 1176 : __w.Write(COUV_MAG)
Ligne 1177 :
Ligne 1178 :
Ligne 1179 : #End ExternalSource
Ligne 1180 : Me.WriteUTF8ResourceString(__w, 21679, 832, false)
Ligne 1181 : Me.WriteUTF8ResourceString(__w, 22511, 393, true)
Ligne 1182 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<div style=""width:154px; margin:0 0 20px 8px;""><!--include virtual=""/Global_"& _
Ligne 1183 : "Inc/Pub_SkySkrapperSmart.inc""--></div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 1184 : Me.WriteUTF8ResourceString(__w, 22904, 363, false)
Ligne 1185 : Me.WriteUTF8ResourceString(__w, 23267, 330, false)
Ligne 1186 : Me.WriteUTF8ResourceString(__w, 23597, 621, true)
Ligne 1187 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"</div>")
Ligne 1188 : __w.Write("<!--colonne 3-->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<!--Fin colonne centrale -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 1189 : __w.Write("<footer>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Ligne 1190 :
Ligne 1191 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\compatible\footer-full-aspx.asp",2)
Ligne 1192 :
Ligne 1193 : Abonnement = true
Ligne 1194 : espaceSite = "actu"
Ligne 1195 : copyrightOnly = false
Ligne 1196 :
Ligne 1197 : 'section je m'abonne pour les non abonnés
Ligne 1198 : if Trim(""& Session("user-id")) = "" or Trim(""& Session("User-noabonne")) = "" then
Ligne 1199 :
Ligne 1200 : #End ExternalSource
Ligne 1201 : Me.WriteUTF8ResourceString(__w, 24218, 265, true)
Ligne 1202 :
Ligne 1203 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\compatible\footer-full-aspx.asp",14)
Ligne 1204 :
Ligne 1205 : end if
Ligne 1206 :
Ligne 1207 :
Ligne 1208 : #End ExternalSource
Ligne 1209 : Me.WriteUTF8ResourceString(__w, 24483, 294, false)
Ligne 1210 :
Ligne 1211 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\compatible\footer-full-aspx.asp",21)
Ligne 1212 :
Ligne 1213 : Dim xitiCatVisit
Ligne 1214 : Dim Page As String
Ligne 1215 :
Ligne 1216 :
Ligne 1217 :
Ligne 1218 : #End ExternalSource
Ligne 1219 : __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""lhr-footer-c lhr-gris""> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Ligne 1220 : " <div class=""lhr-1000 lhr-div-center ")
Ligne 1221 :
Ligne 1222 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",4)
Ligne 1223 : if not miniFooter then
Ligne 1224 :
Ligne 1225 : #End ExternalSource
Ligne 1226 : __w.Write("lhr-padding-bottom-1x")
Ligne 1227 :
Ligne 1228 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",4)
Ligne 1229 : end if
Ligne 1230 :
Ligne 1231 : #End ExternalSource
Ligne 1232 : Me.WriteUTF8ResourceString(__w, 24777, 376, true)
Ligne 1233 :
Ligne 1234 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",11)
Ligne 1235 : if logoAppli = "LHR EMPLOI" then
Ligne 1236 :
Ligne 1237 : #End ExternalSource
Ligne 1238 : Me.WriteUTF8ResourceString(__w, 25153, 723, true)
Ligne 1239 :
Ligne 1240 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",15)
Ligne 1241 : else
Ligne 1242 :
Ligne 1243 : #End ExternalSource
Ligne 1244 : Me.WriteUTF8ResourceString(__w, 25876, 728, true)
Ligne 1245 :
Ligne 1246 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",19)
Ligne 1247 : end if
Ligne 1248 :
Ligne 1249 : #End ExternalSource
Ligne 1250 : Me.WriteUTF8ResourceString(__w, 26604, 432, true)
Ligne 1251 :
Ligne 1252 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",27)
Ligne 1253 : if Titre="Offres d'emploi" or Page="pa.asp" or Page="menu.htm" then
Ligne 1254 :
Ligne 1255 : #End ExternalSource
Ligne 1256 : __w.Write("<span class=""lhr-circled-icon""><a href=""https://www.facebook.com/emploi.hotelleri"& _
Ligne 1257 : "e.restauration.lhr.emploi/"" target=""_blank""><i class=""fa fa-facebook""></i></a><d"& _
Ligne 1258 : "iv style=""font-size:small;color:white;"">Emploi</div></span>")
Ligne 1259 :
Ligne 1260 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",27)
Ligne 1261 : end if
Ligne 1262 :
Ligne 1263 : #End ExternalSource
Ligne 1264 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""lhr-circled-icon""><a href="& _
Ligne 1265 : "")
Ligne 1266 :
Ligne 1267 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",28)
Ligne 1268 : if lienFacebookChanger then
Ligne 1269 :
Ligne 1270 : #End ExternalSource
Ligne 1271 : __w.Write("""https://www.facebook.com/emploi.hotellerie.restauration.lhr.emploi/""")
Ligne 1272 :
Ligne 1273 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",28)
Ligne 1274 : else
Ligne 1275 :
Ligne 1276 : #End ExternalSource
Ligne 1277 : __w.Write("""https://www.facebook.com/LHotellerieRestauration/""")
Ligne 1278 :
Ligne 1279 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",28)
Ligne 1280 : end if
Ligne 1281 :
Ligne 1282 : #End ExternalSource
Ligne 1283 : Me.WriteUTF8ResourceString(__w, 27036, 1541, true)
Ligne 1284 :
Ligne 1285 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",39)
Ligne 1286 : if miniFooter then
Ligne 1287 :
Ligne 1288 : #End ExternalSource
Ligne 1289 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<div class=""col-xs-4"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<div class=""lhr-padding-top-2x"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)& _
Ligne 1290 : "<div class=""lhr-footer-d""> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<ul class=""lhr-liste"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 1291 :
Ligne 1292 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",44)
Ligne 1293 : if EmploiCommun then
Ligne 1294 :
Ligne 1295 : #End ExternalSource
Ligne 1296 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<li><a href=""/emploi/inscrirenewsletteremploi.asp?&ori=pro""><i class=""i"& _
Ligne 1297 : "conlhr-newsletter""></i> Inscription à la newsletter Emploi</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Ligne 1298 : ""&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 1299 :
Ligne 1300 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",46)
Ligne 1301 : else
Ligne 1302 :
Ligne 1303 : #End ExternalSource
Ligne 1304 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&" "&Global.Microsoft.VisualBasic.ChrW(9)&" <li><a href=""/l-information-professionnelle.htm""><i class=""iconlhr-n"& _
Ligne 1305 : "ewsletter""></i> NOUS CONTACTER</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&" ")
Ligne 1306 :
Ligne 1307 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",48)
Ligne 1308 : if Trim(""& Session("User-newsLetter-q")) <> "1" then
Ligne 1309 :
Ligne 1310 : #End ExternalSource
Ligne 1311 : __w.Write("<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&" <li><a href=""javascript:creationcomptNL()""><i class=""iconlhr-news"& _
Ligne 1312 : "letter""></i> Inscription à la newsletter quotidienne</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)& _
Ligne 1313 : ""&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&" ")
Ligne 1314 :
Ligne 1315 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",50)
Ligne 1316 : else
Ligne 1317 :
Ligne 1318 : #End ExternalSource
Ligne 1319 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&" ")
Ligne 1320 :
Ligne 1321 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",52)
Ligne 1322 : end if
Ligne 1323 :
Ligne 1324 : #End ExternalSource
Ligne 1325 :
Ligne 1326 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",53)
Ligne 1327 : end if
Ligne 1328 :
Ligne 1329 : #End ExternalSource
Ligne 1330 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"</ul>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 1331 :
Ligne 1332 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",58)
Ligne 1333 : else
Ligne 1334 :
Ligne 1335 : #End ExternalSource
Ligne 1336 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""col-xs-4"" >"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Ligne 1337 : " ")
Ligne 1338 :
Ligne 1339 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",60)
Ligne 1340 : if Trim(""& Session("User-newsLetter-q")) <> "1" then
Ligne 1341 :
Ligne 1342 : #End ExternalSource
Ligne 1343 : Me.WriteUTF8ResourceString(__w, 28577, 623, false)
Ligne 1344 :
Ligne 1345 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",66)
Ligne 1346 : __w.Write(Session("User-email") )
Ligne 1347 :
Ligne 1348 :
Ligne 1349 : #End ExternalSource
Ligne 1350 : Me.WriteUTF8ResourceString(__w, 29200, 347, true)
Ligne 1351 :
Ligne 1352 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",71)
Ligne 1353 : else
Ligne 1354 :
Ligne 1355 : #End ExternalSource
Ligne 1356 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 1357 :
Ligne 1358 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",73)
Ligne 1359 : end if
Ligne 1360 :
Ligne 1361 : #End ExternalSource
Ligne 1362 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Ligne 1363 :
Ligne 1364 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-2.asp",75)
Ligne 1365 : end if
Ligne 1366 :
Ligne 1367 : #End ExternalSource
Ligne 1368 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <"& _
Ligne 1369 : "/div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>")
Ligne 1370 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""lhr-footer-e lhr-gris-tres-fonce""> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Ligne 1371 : " <div class=""lhr-1000 lhr-div-center""> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 1372 :
Ligne 1373 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-4.asp",4)
Ligne 1374 : if VarMenuOngletCouleur = "OngletMenuEmploi" or VarMenuOngletCouleur = "OngletMenuVF" or VarMenuOngletCouleur = "OngletMenuAnnonces" then
Ligne 1375 :
Ligne 1376 : #End ExternalSource
Ligne 1377 : Me.WriteUTF8ResourceString(__w, 29547, 474, false)
Ligne 1378 :
Ligne 1379 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-4.asp",5)
Ligne 1380 : __w.Write(LinkifyEmail_new("pa@lhotellerie-restauration.fr"))
Ligne 1381 :
Ligne 1382 :
Ligne 1383 : #End ExternalSource
Ligne 1384 : __w.Write("</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 1385 :
Ligne 1386 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-4.asp",6)
Ligne 1387 : else
Ligne 1388 :
Ligne 1389 : #End ExternalSource
Ligne 1390 : Me.WriteUTF8ResourceString(__w, 30021, 478, false)
Ligne 1391 :
Ligne 1392 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-4.asp",7)
Ligne 1393 : __w.Write(LinkifyEmail_new("journal@lhotellerie-restauration.fr"))
Ligne 1394 :
Ligne 1395 :
Ligne 1396 : #End ExternalSource
Ligne 1397 : __w.Write("</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Ligne 1398 :
Ligne 1399 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\footer-4.asp",8)
Ligne 1400 : end if
Ligne 1401 :
Ligne 1402 : #End ExternalSource
Ligne 1403 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Ligne 1404 : __w.Write("<script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"Xiti_SendVisit(")
Ligne 1405 :
Ligne 1406 : #ExternalSource("E:\InetPub\Global\Inc\Xiti-Visit.inc",2)
Ligne 1407 : __w.Write(AreaIdXiti)
Ligne 1408 :
Ligne 1409 :
Ligne 1410 : #End ExternalSource
Ligne 1411 : __w.Write(", ")
Ligne 1412 :
Ligne 1413 : #ExternalSource("E:\InetPub\Global\Inc\Xiti-Visit.inc",2)
Ligne 1414 : __w.Write(Session("xiti-cat-visit"))
Ligne 1415 :
Ligne 1416 :
Ligne 1417 : #End ExternalSource
Ligne 1418 : __w.Write(");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Ligne 1419 :
Ligne 1420 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\compatible\footer-full-aspx.asp",32)
Ligne 1421 : if Session("User-id") & "" ="" and Request("autolaunch") = "1" then
Ligne 1422 :
Ligne 1423 : #End ExternalSource
Ligne 1424 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"$(function(){"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"connecter('', '', '');"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"})"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"</script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Ligne 1425 :
Ligne 1426 : #ExternalSource("E:\InetPub\Ho\wwwho\accueil\compatible\footer-full-aspx.asp",38)
Ligne 1427 : end if
Ligne 1428 :
Ligne 1429 : #End ExternalSource
Ligne 1430 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</footer>")
Ligne 1431 : __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Ligne 1432 :
Ligne 1433 : #ExternalSource("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx",179)
Ligne 1434 : GC.Collect()
Ligne 1435 :
Ligne 1436 : #End ExternalSource
Ligne 1437 : End Sub
Ligne 1438 :
Ligne 1439 :
Ligne 1440 : #ExternalSource("E:\InetPub\Ho\wwwho\salon-agenda\default.aspx.vb",912304)
Ligne 1441 : <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Ligne 1442 : Protected Overrides Sub FrameworkInitialize()
Ligne 1443 : MyBase.FrameworkInitialize
Ligne 1444 : Me.SetStringResourcePointer(Global.ASP.default_aspx.__stringResource, 0)
Ligne 1445 : Me.__BuildControlTree(Me)
Ligne 1446 : Me.AddWrappedFileDependencies(Global.ASP.default_aspx.__fileDependencies)
Ligne 1447 : Me.Request.ValidateInput
Ligne 1448 : End Sub
Ligne 1449 :
Ligne 1450 : #End ExternalSource
Ligne 1451 :
Ligne 1452 : <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Ligne 1453 : Public Overrides Function GetTypeHashCode() As Integer
Ligne 1454 : Return 1133604083
Ligne 1455 : End Function
Ligne 1456 :
Ligne 1457 : <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Ligne 1458 : Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Ligne 1459 : MyBase.ProcessRequest(context)
Ligne 1460 : End Sub
Ligne 1461 : End Class
Ligne 1462 : End Namespace
Ligne 1463 :
|