%
dim show, qylb
dim sqllist, rslist, icolor
sqllist="select top 15 productshow.*,corporation.id as corid,corporation.flag as corflag,corporation.qymc,corporation.country,corporation.sf,corporation.city,corporation.web,corporation.url,corporation.trust_score from productshow,corporation where corporation.id=productshow.gsid and productshow.flag=1 order by productshow.id desc"
Set rslist= Server.CreateObject("ADODB.Recordset")
rslist.open sqllist,conn,1,1
%>
<% dim sql, rs,colcnt,rowcount, i,tempstr
sql="select top 9 id,cpmc,picture from productshow where zsbz='02' and flag=1 order by id desc"
set rs=conn.execute(sql)
if rs.eof then
response.write"暂无推荐产品信息"
else
%>
<%while rowcount < 3
i = 0
tempstr = tempstr & "
"
while not rs.eof and i <= 2
tempstr = tempstr & "