<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 10 id,bt,rq from np_news order by rq desc"
rs.open sql,mycon,1,1
if not rs.eof then
while not rs.eof
if len(rs("bt"))>29 then
bt=left(rs("bt"),28)&"..."
else
bt=rs("bt")
end if
%>
<%
rs.movenext
wend
end if
rs.close
set rs=nothing
%>
<%
set ers=server.CreateObject("adodb.recordset")
sql="select * from np_exhi where commend='Y' and begindate>=#"&date()&"# and cstatus='Y' order by id desc"
ers.open sql,mycon,1,1
if not ers.eof then
'if len(ers("title"))>13 then
' title=left(ers("title"),12)&"..."
'else
'title=ers("title")
'end if
%>
<%
set ers=server.CreateObject("adodb.recordset")
sql="select * from np_exhi where commend<>'Y' AND begindate>=#"&date()&"# and cstatus='Y' order by begindate"
ers.open sql,mycon,1,1
if not ers.eof then
%>
Sino Link Exhibition Corporation Ltd. is the holding company under China National Packaging Corporation and the exclusive representative of CNPC in exhibition business. Authorized by the Ministry of Foreign Trade and Economic Cooperation, our company specializes in undertaking and sponsoring large-scale international exhibition both at home and abroad.
So far, our company has successfully organized more than ten large-scare international exhibitions, such as: IPE CHINA, CHINA AEROSOL, PACK & PRINT CHINA, CHIAN PACK and CHINA LABEL. Some of the exhibitions have become well-known ones, which are held regularly.
Service Scope:
Planning and operating exhibitions and conferences;
Providing information service on exhibitions and conferences;
Inviting exhibitions and promoting campaign;
Construction and transportation services;
On-site organization for exhibitions and conferences;
Routine affairs arrangement for exhibitions and conferences.
<%
set ers=server.CreateObject("adodb.recordset")
sql="select top 8 id,logo,begindate,enddate from np_exhi where enddate>=#"&date()&"# order by id desc"
ers.open sql,mycon,1,1
if not ers.eof then
i=1
while not ers.eof
if i mod 2 = 1 then
response.Write("
")
end if
%>
<%
ers.movenext
if i mod 2 = 0 then
response.Write("
")
response.Write("
")
end if
i=i+1
wend
end if
ers.close
set ers=nothing
%>
<%
set lrs=server.CreateObject("adodb.recordset")
sql="select top 4 logo,title,ctype,url from np_link"
lrs.open sql,mycon,1,1
if not lrs.eof then
while not lrs.eof
%>
" name=aaaa width="100" height="50" title="<%=lrs("title")%>">