<% Option Explicit Response.Buffer = True Dim ObjRst,OBjCn,StrSql,StrAction,i Set ObjCn = Server.CreateObject("ADODB.Connection") Set ObjRst = Server.CreateObject("ADODB.Recordset") ObjCn.open "wd102" %> 关于我们--<%=cr_corporation%>

home   search   sitemap

<%ObjRst.Open "select id from volvo_dealer_brand where class=4 and corpid="&cr_corpid,ObjCn If Not ObjRst.Eof Then %> 其它品牌     <%End If ObjRst.Close%> 联系我们     VOLVO经销商登录   

<%ObjRst.Open "select id from volvo_dealer_brand where class=4 and corpid="&cr_corpid,ObjCn If Not ObjRst.Eof Then %> <%End If ObjRst.Close%> <%If cr_SaleFlash<>"" Then %> <%End If%> <%If cr_CorpId=1020 Then %> <%End If%>
关于VOLVO
关于我们
其它代理品牌
销售网络
联系我们
在线垂询
公司文化
  组织架构
<%If len(Cr_detail_agent)<=2 Then Response.Write "  "&cr_corporation&"除了代理 VOLVO建筑设备以外,同时代理以下品牌产品:" Else Response.Write Replace(cr_detail_agent,vbcrlf,"
") End If %>
 
<%ObjRst.Open "select title,address,email,id from volvo_dealer_brand where class=4 and corpid="&cr_corpid,ObjCn If Not ObjRst.Eof Then i=0 %> <%Do While Not ObjRst.Eof If i Mod 2 = 0 Then Response.Write "" %> <% i=i+1 ObjRst.MoveNext Loop While i mod 2 <>0 Response.Write "" i=i+1 WEnd %>
<%If ObjRst.Fields("title")<>"" Then %>" target="_blank"><%End If%> " border="0"> <%If ObjRst.Fields("title")<>"" Then %><%End If%>
<%If ObjRst.Fields("title")<>"" Then %>" target="_blank"><%End If%> <%=ObjRst.Fields("address")%> <%If ObjRst.Fields("title")<>"" Then %><%End If%>
<%End If %>

  主页 >> 关于我们 >> 其它代理品牌

<%=cr_corporation%>  版权所有   
中国工程机械商贸网  制作维护   

<%IF ObjRst.STATE=1 THEN ObjRst.CLOSE ObjCn.CLOSE SET ObjRst=NOTHING SET ObjCn=NOTHING %> <%If cr_CorpId=1020 Then %><%End If%>