<%Option Explicit%> <% PagePrep() %> <%=sTitle%>
<% 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 %>
<% Set objP = Server.CreateObject("LNPromoGenius.Promotions") NewGUID = objP.NewGUID Set objP = Nothing htmlTip=htmlTip & "" Response.Write htmlTip %> <% ' Get the promotion Dim HealthTipID, rsHealthTip Dim sTitle, sDetail, sHeaderImage Dim htmlTip, NewGuid, objP CONST HEALTH_TIP_DETAIL = 9 Function PagePrep () HealthTipID = Request.QueryString("id") If IsNumeric(HealthTipID) Then set rsHealthTip = mscs.execute ("select * from mpd..HealthTip where OID = " & HealthTipID) If Not rsHealthTip.eof Then sTitle = rsHealthTip("Headline") sDetail = rsHealthTip("Detail") sHeaderImage = rsHealthTip("DetailHeaderImage") End If rsHealthTip.Close set rsHealthTip = Nothing End If end Function function BuildMidCol () If ret_blnWideFormat Then Response.Write "
" Else Response.Write "
" End If If len(sHeaderImage) > 0 Then ' Force header image (it is part of the paid advertisement) ret_blnHeaderImage = True Call DisplaySpecificImage(sHeaderImage, "", "") End If %>
<%Response.Write sDetail%>
<% end function %>