<% id=request.querystring("id") theSQL="select news_id,title,subtitle,news.content,image.image," theSQL=theSQL&" author,image.description,category.category,subcategory.subcategory," theSQL=theSQL&" news.category,news.subcategory,news.post_date,news.keywords from [news] " theSQL=theSQL&" left join category on news.category=category.category_id" theSQL=theSQL&" left join subcategory on news.subcategory=subcategory.subcategory_id" theSQL=theSQL&" left join image on image.image_id=news.image_id" theSQL=theSQL&" where status=1 and news_id="&id coverRecs=getRecs(theSQL) if isempty(coverRecs) then response.write "Invalid article ID" response.end end if %> <%= ccSiteName %>- <%= coverRecs(1,0) %> news.css> <%= ccSiteName %> link="#003399" alink="#05378e" vlink="#05378e" topmargin=5 leftmargin=2 marginheight=0 marginwidth=0 >
<% call getArticle(id) %>
<% sub getArticle(v_id) if not isempty(coverRecs) then 'print ("
") for k=0 to ubound(coverRecs,2) articleName=coverRecs(1,k) articleSubName=coverRecs(2,k) articleContent=coverRecs(3,k) articleImage=coverRecs(4,k) articleAuthor=coverRecs(5,k) imageDesc=coverRecs(6,k) articleCat=coverRecs(7,k) articleSubCat=coverRecs(8,k) catID=coverRecs(9,k) subcatID=coverRecs(10,k) post_date=coverRecs(11,k) keywords=coverRecs(12,k) str=ccNavString str=str&""&articleCat&" > " str=str&""&articleSubcat&"" 'call drawBox(str,"","#FED100","ccCat") printR(str) printR("") printR(""&trim(articleName)&"") if not isnull(articleSubName) then printR(""&trim(articleSubName)&"") end if if not isnull(articleAuthor) then printR(""&trim(articleAuthor)&"") end if printR(""&getdate(post_date)&"
") if not isnull(keywords) then strRelated=getRelated(keywords,id) end if if isnull(articleImage) then if strRelated<>"" then print("
"&strRelated&"
") end if printR(""&articleContent&"") else call showCoverImage(articleImage,articleContent,imageDesc&"

"&strRelated,"body","") print("

") 'printR(strRelated) end if print("

") next end if end sub %>