<%
Set Rs_Newss = Server.CreateObject("ADODB.Recordset")
Sql_Newss = "Select * from TableNews where News_Subject <>'' and News_group = 'Pro' order by News_ID Desc"
Rs_Newss.Open Sql_Newss,ConnNews,1,3
if not Rs_Newss.Eof then
Rs_Newss.movefirst
%>
<%
Set Rs_Newss = Server.CreateObject("ADODB.Recordset")
Sql_Newss = "Select * from TableNews where News_Subject <>'' and News_group = 'Act' order by News_ID Desc"
Rs_Newss.Open Sql_Newss,ConnNews,1,3
if not Rs_Newss.Eof then
Rs_Newss.movefirst
%>
<%
end if'if not Rs_News.Eof then
%>
<%
end if 'if not rs_Plant.eof <> "" then
end if'if not Rs_Article.eof then
%>
<%
end if'if not Rs_News.Eof then
%>
<%
Set Conn_Job = Server.CreateObject("ADODB.Connection")
StrConn_Job = "Provider=Microsoft.Jet.Oledb.4.0; Data source=" & Server.MapPath("Database/Jobsnews/newsbase.mdb")
Conn_Job.Open StrConn_Job
Set Rs_Jobs = Server.CreateObject("ADODB.Recordset")
Sql_Jobs = "Select * from TableNews where News_Subject <> '' order by News_ID Desc "
Rs_Jobs.Open Sql_Jobs,Conn_Job,1,3
if not Rs_Jobs.Eof then
Rs_Jobs.movefirst
%>
<%
end if'if not Rs_News.Eof then
%>
