<% Response.Buffer = True Dim ObjRst,ObjCon Set ObjRst=Server.CreateObject("ADODB.RecordSet") Set ObjCon=Server.CreateObject("ADODB.Connection") ObjCon.Open DataBase StrCate="1001" ObjRst.Open "Select title,img1,detail,id from customnews where dealerid="&CorpNo&" and ispublished=1 and category='"&StrCate&"' and img1>'' Order by pubdate desc,id desc fetch first 1 rows only",ObjCon If Not ObjRst.Eof Then %>
"> " width="140" height="117">

"><%=ObjRst("title")%>

"><%=maxstr(ObjRst("detail"),170)%>

  <%=Replace(ObjRst("detail"),vbcrlf,"
    ")%>

<%End If ObjRst.Close If ObjRst.State=1 Then ObjRst.Close If ObjCon.State=1 Then ObjCon.Close Set ObjRst=Nothing Set ObjCon=Nothing %>
 
 

中国区业务联系方式
电话:010-80514885 80515699
传真:010-80514889
邮箱:xiaoshou@ca-long.com

国际业务联系方式
电话:010-67532714
传真:010-67538782
邮箱:sales@ca-long.com

 

 

人才招聘 | 网站地图 | 联系我们

Copyright© 2009 加隆工程机械 All Rights Reserved.