|
<% 'SKYSCRAPPER - TODAY IN UEPA (CONTENT) 'Get User ScreenSize if Session("Active")="true" then iWidth=cInt(session("width")) else on error resume next Set oHawk=server.CreateObject("cyScape.browserObj") oHawk.SetExtProperties "ScreenSize" oHawk.GetExtPropertiesEx iWidth=oHawk.Width set oHawk=nothing session("Active")="true" session("width")=iWidth end if 'Verify if User Screen Supports New Section if iWidth > 800 then 'Choose Content To Display if pageContent_LongBanner <> "" then 'DISPLAY HOY EN UEPA if Application("HoyEnUepa") = Date then Response.write Application("HoyEnUepaText") else TodayFile=replace(cStr(date),"/","") & ".asp" sPath="E:\WWW\UEPA.COM\HOME\WWW\CONTENT\SECTIONS\HOY EN UEPA\TEMPLATES\PREVIEW\" & TodayFile set fso=server.CreateObject("scripting.filesystemobject") if fso.fileexists(sPath) then set oFile=fso.opentextfile(sPath) Application("HoyEnUepaText")=oFile.readall Application("HoyEnUepa")=date oFile.close set oFile=nothing end if set fso=nothing Response.write Application("HoyEnUepaText") end if else 'DisplaySkyScrapper Set oBanner=server.CreateObject("uContent.Banner") Response.Write _ oBanner.getBanner(StrDbCon, _ SectionID, _ SkyScrapperBanner, _ bannerUrl, _ "") set oBanner=nothing end if end if %> | ||||||||||||||||||||||||||||||||||||||||||||||||||
