<%Option Explicit%> <% Response.Expires = -5 Response.ExpiresAbsolute=DateAdd("yyyy", -10, Date) Response.addHeader "pragma","no-cache" Response.addHeader "cache-control","private" Response.CacheControl = "no-cache" Response.CacheControl = "private" %> <% Call PagePrep() %> <%=sPageTitle%>
<% If IsSmartPhone() Then BuildSmartPhoneHeader(sSmartPhoneHeaderText) Call BuildMidCol() ElseIf ret_blnContentGenius Then Call BuildMidCol() Else Call BuildHeaderDiv() Response.Write "
" Response.Write "
" Call BuildMidCol() If ret_blnWideFormat Then Call BuildLeftColDivOverride("leftColWideFmt") Else Call BuildLeftColDiv() Call BuildRightColDiv() End If Call BuildFourthColDiv() Response.Write "
" Call BuildFooterDiv() Response.Write "
" & vbCrLf End If %>
<%Call trackHtmlAsset()%> <% Dim sSmartPhoneHeaderText, sPageTitle Dim newsHTML, rsNewsArticle, strSQLArticle Dim NewsID, sNewsBody Dim sHeaderImageName CONST FEATURED_ARTICLE = 11 Const ICB_EVENT_FEATURED_ARTICLE = 5 Function PagePrep() sPageTitle = ret_store_name & " News" sSmartPhoneHeaderText= "Featured Article" ret_blnHeaderImage = True ' we always want to display header on this page NewsID = Request.QueryString("id") If Not IsNumeric(NewsID) Then GoHome() End If If IsNumeric(NewsID) Then set rsNewsArticle = server.CreateObject("ADODB.Recordset") strSQLArticle = "Exec spPGGetFeaturedArticle " & NewsID rsNewsArticle.Open strSQLArticle, MSCS ' using MSCS database connection ' Title and Header Image ? If Not rsNewsArticle.EOF Then If isNull(rsNewsArticle("Title"))= False Or rsNewsArticle("Title")<>"" Then sPageTitle = rsNewsArticle("Title") End If If isNull(rsNewsArticle("BodyHeaderImage"))= False Or rsNewsArticle("BodyHeaderImage")<>"" Then sHeaderImageName = rsNewsArticle("BodyHeaderImage") End If If isNull(rsNewsArticle("Thumbnail"))= False Or rsNewsArticle("Thumbnail")<>"" Then newsHTML=newsHTML & "" & vbCrLf newsHTML=newsHTML & "" & vbCrLf newsHTML=newsHTML & " " & vbCrLf newsHTML=newsHTML & "" & vbCrLf newsHTML=newsHTML & "
" & vbCrLf newsHTML=newsHTML & " " & rsNewsArticle("Title") &"" newsHTML=newsHTML & "

" newsHTML=newsHTML & "
" & vbCrLf End If newsHTML=newsHTML & "" & rsNewsArticle("Title") &"

" & vbCrLf newsHTML=newsHTML & rsNewsArticle("body") End If rsNewsArticle.close set rsNewsArticle = nothing End If End Function Function BuildMidCol() If ret_blnWideFormat Then Response.Write "
" Else Response.Write "
" End If response.write "" If len(sHeaderImageName) > 0 Then Call DisplaySpecificImage(sHeaderImageName, "", "") Else Call DisplayHeaderImage() End If %>
<%=newsHTML%>
<% If ret_store_id="024FE76575404665B7C808AE3CE76A1A" or ret_store_id="F1EC85FA519C48E4BEBF1A1A71DCD438" Then %> <% Else %> <%End If %>
 
Printable Version         Printable Version     E-mail a Friend
 
Back Back
<% If IsNumeric(NewsID) Then response.write ("") End If Response.Write "
" End Function Function trackHtmlAsset() Dim htmlAsset, NewGuid, objP Set objP = Server.CreateObject("LNPromoGenius.Promotions") NewGUID = objP.NewGUID Set objP = Nothing htmlAsset=htmlAsset & "" Response.Write htmlAsset End Function %>