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