<% ' query = "SELECT tblarticles.id, tblauthor.firstname, fwname, tblauthor.lastname, email, tblarticles.id, headline1, summary, startdate FROM tblArticles inner join tblAuthor on tblarticles.authorid =tblAuthor.id WHERE (categoryid=73 or categoryid=74 or categoryid=75 or categoryid=76 or categoryid=77 or categoryid=78 or categoryid=79 or categoryid=1 or categoryid=1 ) and tblarticles.authorid = 1 and tblarticles.id="&request.querystring("id")&" ORDER BY startdate DESC" query = "SELECT categoryid, authorid, headline1, startdate, enddate, issue, quotation, archive, headline1, headline2, headline3, headline4, headline5, headline6, headline7, headline8, headline9, headline10, headline11, headline12, worddoc, weeklyplots, rates, audio, video, relatedlinktext1,relatedlinktext2,relatedlinktext3, relatedlink1, relatedlink2, relatedlink3, relatedarticle1, relatedarticle2, relatedarticle3, blurb1, blurb2, blurb3, blurb4, blurb5, blurb6, blurb7, blurb8, blurb9, blurb10, blurb11, blurb12, summary, weeklyplotsblurb, ratesblurb FROM tblArticles where id=" & request.querystring("id") & " and categoryid not in (8,54,55,56,57,58,59,60)" results.open query, Conn, adOpenstatic, adLockReadonly, adCmdtext totalRecords = results.recordCount %> <% if not(results.EOF) then results.moveFirst results.pageSize = numPerPage totalpages = results.pageCount results.AbsolutePage = page 'absoluteposition pointing at the current record nextRecoNum = results.Absoluteposition lastRecoOnPage = nextRecoNum + results.pageSize - 1 if totalRecords <> -1 and totalRecords < lastRecoOnPage then lastRecoOnPage= totalRecords end if %> <% end if %>

<% 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 %>

<%end if %> <%if results("relatedlink1")<>"" then %> Related Links:

• <% 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 %>

<% count = count + 1 results.movenext nextRecoNum = nextRecoNum + 1 loop %>