<% pagetype="insights" %> <% ' response.write isnumeric(request.querystring("id")) if not isnumeric(request.querystring("id")) or request.querystring("id")="" then response.redirect "./" end if count = 0 numPerPage = 10 nextRecoNum = 1 if request.querystring("page") = "" then page = 1 session("passedValue")= request.QueryString else page = request.querystring("page") end if set conn = Server.CreateObject("ADODB.Connection") set results = server.createObject("ADODB.Recordset") results.CursorLocation = adUseClient %> <% %> Ozzie Jurock articles - real estate investing


<% ' 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: <%end if %> <%if results("relatedlink1")<>"" then %> Related Links: <% count = count + 1 results.movenext nextRecoNum = nextRecoNum + 1 loop %>

<% conn.close set conn=nothing %>