<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rs_news
Dim rs_news_numRows
Set rs_news = Server.CreateObject("ADODB.Recordset")
rs_news.ActiveConnection = MM_wea_yh_STRING
rs_news.Source = "SELECT * FROM dbo.content_live ORDER BY media_date ASC"
'rs_news.Source = "SELECT cl.id, cl.title, cl.body_text, cl.date_added, cl., cl.media_image, cl.parent_id, cl.meta_title, cl.meta_description, cl.meta_keywords, cl.zorder FROM dbo.news_article_live cl left join menu_news_article mc on cl.idno = mc.news_article_idno WHERE mc.menu_idno = "&menu_idno&" "&media_sql&" ORDER BY cl.media_date"
'response.write(rs_news.source)
rs_news.CursorType = 3
rs_news.CursorLocation = 2
rs_news.LockType = 1
rs_news.Open()
rs_news_numRows = 0
if request("c") <> "" then
c = cint(trim(request("c")))
else
c = 0
end if
if not rs_news.eof then
news_article = rs_news.getrows()
'find out the number of record and the selected record
no_records = 0
news_article_i=0
for j = 0 to ubound(news_article,2)
no_records = no_records+1
if cint(news_article(0,j)) = c then
news_article_i=j
end if
next
is_news_article = true
else
is_news_article = false
end if
rs_news.Close()
Set rs_news = Nothing
'news_article End
%>
WEA Yorkshire and Humber - About us
