<% '调用专题新闻 Public Function ztzt(topnum,str) dim infors,ClassContent,infosql,Title,formPath,filename set infors = server.CreateObject ("adodb.recordset") infosql="SELECT top "&topnum&" * FROM NC_Article where ztslb="&str&" order by dateTime desc" infors.open infosql,conn,1,1 if infors.eof and infors.bof then ClassContent=ClassContent & "

还没有信息!

" else br=0 do while not infors.eof if Not Response.IsClientConnected then responseend if br=0 then bbrr="
" else bbrr="" end if if trim(infors("color"))<>"0" then stcolor=" style=""color:#"&trim(infors("color"))&";""" else stcolor="" end if ClassContent = ClassContent &bbrr&"·"&infors("title")&""& vbCrLf infors.movenext loop end if infors.close set infors=nothing 'response.write mid(ClassContent,4) ztzt= mid(ClassContent,5) end function Public Function ztzttt(topnum,str) dim infors,ClassContent,infosql,Title,formPath,filename set infors = server.CreateObject ("adodb.recordset") infosql="SELECT top "&topnum&" * FROM NC_Article where ztslb="&str&" order by dateTime desc" infors.open infosql,conn,1,1 if infors.eof and infors.bof then ClassContent=ClassContent & "

还没有信息!

" else br=0 do while not infors.eof if Not Response.IsClientConnected then responseend if br=0 then bbrr="
" else bbrr="" end if if trim(infors("color"))<>"0" then stcolor=" style=""color:#"&trim(infors("color"))&";""" else stcolor="" end if ClassContent=""&infors("title")&"" infors.movenext loop end if infors.close set infors=nothing 'response.write mid(ClassContent,4) ztzttt= ClassContent end function connstr2009="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../qcwdb.mdb") Set conn2009 = Server.CreateObject("ADODB.Connection") conn2009.Open connstr2009 Public Function pprm(blbid) set rss = server.CreateObject ("adodb.recordset") rmrssql="SELECT count(*) as rcnt FROM bm where x1='"&blbid&"' and lb='bbwcz5'" rss.open rmrssql,conn2009,1,1 if rss.eof and rss.bof then ClassContent=0 else ClassContent=rss("rcnt") end if pprm=ClassContent end function %> 2010年北部湾(南宁)第五届车展报道_千人购车团报名_广西汽车网
网站首页 | 汽车报价 | 二手汽车 | 汽车用品 | 汽车团购 | 广西驾校 | 汽车专题 
广西汽车网联合北部湾车展组委会,车展现场举办千人购车团活动。活动以“一抵最低”购车优惠券(车展优惠基础上再优惠,优惠券可以抵现金、礼包、保养等)形式现场免费分发给购车团友。同时车展现场购车后,广西汽车网还将举办“快乐回家”油卡抽奖活动!
   
城市 姓名 品牌 电话
姓名:     
购车品牌:
联系电话:
所在城市:
    观展时间:
备注:
 
 
<% rsnumsql="select top 100 * from [bm] where lb='bbwcz5' order by id desc" set rssmrs = server.CreateObject ("adodb.recordset") rssmrs.open rsnumsql,conn2009,1,1 do while not rssmrs.eof city=split(trim(rssmrs("bz")),"|") if rssmrs("xb")="男" then xbxb="先生" else xbxb="女士" end if %> <% rssmrs.movenext loop rssmrs.close set rssmrs=nothing %>
<%=city(0)%> <%=left(trim(rssmrs("xm")),1)%><%=xbxb%> <%=rssmrs("x2")%> <%=left(trim(rssmrs("tel")),7)%>****
    <% sql="select top 100 * from ktf_class where lb='一抵活动商家' and px<>0 order by px asc,id desc" set rs = server.CreateObject ("adodb.recordset") rs.open sql,conn,1,1 do while not rs.eof teldz=split(rs("url"),"|") %>
  • " WIDTH=75 HEIGHT=47><%=rs("title")%>
    电话:<%=teldz(0)%>
    <%=teldz(1)%>
  • <% rs.movenext loop rs.close set rs=nothing %>
<% sql="select top 5 * from sdq where lb='5届北部湾车展滚动' order by dtime desc" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 n=1 do while not rs.eof if n=1 then %> <% else %> <% end if n=n+1 rs.movenext loop rs.close set rs=nothing %>
    <% sql="select top 5 * from sdq where lb='5届北部湾车展滚动' order by dtime desc" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 n=0 do while not rs.eof %>
  • " target=_blank>" width="56" height="40" />
  • <% rs.movenext n=n+1 loop rs.close set rs=nothing %>
<%=ztzttt(1,125)%>
<%=ztzt(11,126)%>
   观展指南
观展日:2010年9月2日-4日
     3-4日夜场22:00
地 点:南宁国际会展中心
电 话:0771-5333438
主办单位:广西汽车经销商协会
媒体支持:广西汽车网
公交路线:城环1线、34、601路会展中心下;79、17、16、25、92、42、39路竹溪立交下。
 
展位示意图,点击放大
<%=ztzttt(1,128)%>
<%=ztzt(11,127)%>
   上届北部湾车展
关于我们 | 联系我们 | 加入收藏 | 网上投稿 | 网站地图 | 广告服务 | 经销商注册 | 留言反馈 | 友情链接
@2005-2009 Gxqcw Inc. All rights reserved. 广西汽车网 版权所有
E_Mail:Vip@gxqcw.com 电话:0771-2175812 传真:0771-2814262 QQ:568409080 地址:南宁市东葛路18-1号