<% cid=re_qn("cid") if cid=0 then cid=2 classname=yl_name(cid) %> Medtech international website content
Sign up | Blog | Clients login
Search: 中文 English
<% myweek=array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday") today=now() response.write day(today)&" - "&month(today)&" - "&year(today)&" "&myweek(weekday(today)-1) %>
   Events & News
   Industry News
   Download
 
 
  <% sql="select news_id,title,news_time,news_img from yelang_news where news_min="&cid&" and news_ok=1 order by news_ord desc,news_id desc" set rs = Server.CreateObject("adodb.recordset") rs.open sql,conn,1,1,1 if not(rs.eof and rs.bof) then pgsize=10 if request.querystring("pgno")="" then pgno="1" else pgno=request.querystring("pgno") allcount=rs.recordcount rs.pagesize=pgsize rs.AbsolutePage=pgno pgcount=rs.pagecount ii=0 do while not rs.eof %> <% rs.movenext ii=ii+1 if ii>=pgsize then exit do loop end if rs.close set rs=nothing %>
<%if cid="4" then response.write "" else response.write "·"%><%=left(rs(1),100)&"..."%>
 
<% if pgcount<2 or pgno<2 then response.write "First Previous" else response.write "First" & " Previous" end if response.write " " if pgcount-pgno<1 then response.write "Next Last" else response.write "Next"& " Last" end if %>
 
  Address:Future Business Centre, Kings Hedges Road, Cambridge CB4 2HY
United Kingdom
Tel: +44 (0)1223 981 793
info@medtechinternational.com
  Home About Us Services Products Resources Clients Contact Us  
© 2011,MEDTECH INTERNATIONAL LTD