Products

 

 

Hot News

 
 
<% Response.Buffer = True Dim ObjRst,ObjCon Set ObjRst=Server.CreateObject("ADODB.RecordSet") Set ObjCon=Server.CreateObject("ADODB.Connection") ObjCon.Open DataBase StrCate="2001" 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",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 %>

Contact us

 

 

Jobs | Web map | Contact us

Copyright?2009    Ca-long Engineering Machinery Co., Ltd.   All Rights Reserved.