<% do while not results.eof and nextRecoNum <= lastRecoOnPage set article1 = results("relatedarticle1") set article2 = results("relatedarticle2") set article3 = results("relatedarticle3") if article1 <> "" AND article1<>0 then query2 = "SELECT headline1 from tblArticles where id="& article1 set result1 = conn.execute(query2) end if if article2 <> "" AND article2<>0 then query3 = "SELECT headline1 from tblArticles where id="& article2 set result2 = conn.execute(query3) end if if article3 <> "" AND article3<>0 then query4 = "SELECT headline1 from tblArticles where id="& article3 set result3 = conn.execute(query4) end if %>
<%=TRIM(results("headline1")) %>
<%=FORMATDATETIME(results("startdate"),1) %>
<%=TRIM(results("blurb1")) %>
<%if article1<>"" and article1<>0 then %> Related Articles:
- <%=TRIM(result1("headline1")) %> <%if article2<>"" and article2<>0 then %>
- <%=TRIM(result2("headline1")) %> <%end if %> <%if article3<>"" and article3<>0 then %>
- <%=TRIM(result3("headline1")) %> <%end if %>
- <% if results("relatedlinktext1")<> "" then %> <% =results("relatedlinktext1") %> <% else %> <%=results("relatedlink1") %> <% end if %> <%if results("relatedlink2")<>"" then %>
- <% if results("relatedlinktext2")<> "" then %> <% =results("relatedlinktext2") %> <% else %> <%=results("relatedlink2") %> <% end if %> <%end if %> <%if results("relatedlink3")<>"" then %>
- <% if results("relatedlinktext3")<> "" then %> <% =results("relatedlinktext3") %> <% else %> <%=results("relatedlink3") %> <% end if %> <%end if %> <%end if %>