<%if trim(request("id"))="" then response.Redirect("index.asp") end if %> <% '保存用户留言 if request("msg")="add" then 'response.Redirect("http://cartg.cn/stopbbs.asp") if trim(request("name"))="" or trim(request("id"))="" or trim(request("title"))="" or trim(request("content"))="" then response.Write "" end if if trim(request("verifycode"))="" then response.Write "" response.end end if remote_ip=Request.ServerVariables("REMOTE_ADDR") set rs=server.createobject("adodb.recordset") sql="select * from 4s_qa" rs.open sql,conn,1,3 rs.addnew rs("4s_id")=trim(request("id")) rs("name")=trim(request("name")) rs("email")=trim(request("email")) rs("title")=replace(server.htmlencode(trim(request("title"))),chr(13),"
") rs("content")=replace(server.htmlencode(trim(request("content"))),chr(13),"
") rs("remote_ip")=remote_ip rs.update rs.close set rs=nothing response.Write "" end if %> <%sql="select * from 4sdian2 where autoid="&request("id") set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,3%> <%if rs.eof then response.Redirect("index.asp") end if %> <%if not rs.eof then %>[<%=rs("btype_name")%>]<%=rs("company")%><%end if%>-广州4S店优惠活动
<%sql="select * from 4sdian2 where autoid="&request("id") set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,3%> <%if rs.eof then response.Redirect("index.asp") end if %> <%if not rs.eof then %>
   4店经销商 广州4S店投诉
<%if rs("pic")<>"" then %> " alt="" width="240" height="140" class="table1" /> <%else%> 暂无图片 <%end if%>
<%bid=rs("chexingid")%> <%sql="select * from fen_count where sid="&request("id") set fen=server.CreateObject("adodb.recordset") fen.open sql,conn,1,3 %>
   [<%=rs("btype_name")%>] <%=rs("company")%>
销售电话:
 <%=rs("phone")%>
咨询热线:
 <%=rs("phone2")%>
传真:
 <%=rs("fax")%>
联系人:
 <%=rs("name")%>
网址:
 <%=rs("weburl")%>
Email:
 <%=rs("email")%>
地址:
 <%=rs("address")%>
邮政编码:
 <%=rs("postcode")%>
网友评分:
<%if not fen.eof then %><%for i=1 to cint(fen("hj"))%><%next%><%end if%>
我来评分: " />
 
    公司简介

<%=rs("memo1")%>
 
    本店动态

<%sql="select top 12 productid,bestproduct,productname,adddate from mall_product where btype_id=1 and stype_id=7 and [4sid]="&request("id")&" order by bestproduct desc, adddate desc" set rsobj=server.CreateObject("adodb.recordset") rsobj.open sql,conn,1,3 if not rsobj.eof then do while not rsobj.eof %> <%for j=1 to 2%> <%if not rsobj.eof then %> <% rsobj.movenext end if next %> <% loop end if rsobj.close set rsobj=nothing%>
 · " target="_blank"<%if rsobj("bestproduct")=1 then %>class="font14_01"<%else%>class="font14_11"<%end if%>><%=left(rsobj("productname"),23)%> <%=formatdatetime(rsobj("adddate"),2)%>
 
    最新报价

车型名称
最新报价
销售热线
<%sql="select * from 4s_dian_bj2 where autoid="&rs("autoid")&" order by id desc" set rs1=server.CreateObject("adodb.recordset") rs1.open sql,conn,1,3 do while not rs1.eof if not rs1.eof then %> <%rs1.movenext end if loop rs1.close set rs1=nothing %>
 [<%=rs1("btype_name")%>]"><%=rs1("chexing")%>
<%=rs1("zhidaojia")%>
<%=rs1("phone")%> 

<%end if %> <%rs.close set rs=nothing%>
  网友咨询
<% set rs=server.createobject("adodb.recordset") sql="select * from 4s_qa where [4s_id]="&request("id")&" order by id desc" rs.open sql,conn,1,3 rs.pagesize=10 pagecount = rs.recordcount\rs.pagesize if rs.recordcount mod rs.pagesize<>0 then pagecount=pagecount+1 end if page=clng(request("page")) if page="" then page=1 end if if page > rs.pagecount then page=rs.pagecount end if if page=0 then page=1 end if %>
<% if not rs.eof then i=0 rs.absolutepage =page do while not rs.eof %>
  主 题: <%=rs("title")%>
<%=rs("date")%> 
  <%=rs("name")%>: <%=rs("content")%>
<% if rs("rflag")=true then%> <% end if %>
    4S店回复:<%=rs("returntext")%>
<% i=i+1 if i>rs.pagesize then exit do rs.movenext loop else %>
暂无网友咨询!
<% end if %>
<% if not rs.recordcount=0 then %> 共<%=rs.recordcount%>篇 " class="font12_01">首页 " class="font12_01">上一页 " class="font12_01">下一页 " class="font12_01">尾页 页次:<%=page%>/<%=pagecount%>页 <%=rs.pagesize%>篇/页 <% end if rs.close set rs=nothing %>
  留言咨询:
姓    名:
  *  
电子邮箱:
标    题:
  * " />
详细内容:
  *
输入验证码: " maxlength="4" size="5" />
  
留言提示:有 * 选项为必填选项!
  最新车型
<%'-----------------------所有该品牌下的车型 sql="select * from che_type where btype_id="&bid&" order by stype_idorder" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,3 if not rs.eof then do while not rs.eof %>
<% txt=txt+" or productname like '%"&rs("stype_name")&"%'" %>
<%'-----------------------所有车型下的具体车 sql="select top 7 * from mall_che2 where btype_id="&bid&" and stype_id="&rs("stype_id")&" order by upfilepic,productid desc" set rs1=server.CreateObject("adodb.recordset") rs1.open sql,conn,1,3 if not rs1.eof then %> <%do while not rs1.eof%> <%if not rs1.eof then %> <%rs1.movenext%> <%end if %> <%loop%> <%rs1.close set rs1=nothing '-----------------------所有车型下的具体车 end if %>
 ·" target="_blank" class="font14_05"><%=rs1("productname")%>
<% '-----------------------所有改品牌下的车型 rs.movenext loop end if rs.close set rs=nothing %>