两个循环显示 'loop' 语句缺少 'do' ??
说78行缺少loop 但是我的两个do 循环都有loop啊
Function HOPE_Price(typeid,num,leftstr,isnew,brnum,timed)
strs=""
If brnum<=0 Then
brnum=1
End If
If typeid<=0 Then
typestr=""
Else
typestr=" and SortID="&typeid
End If
Set rsh=Server.CreateObject("ADODB.Recordset")
hsql="select top "&num&" * from yixiang_productshow where id<>0 and flag=1 "&kindstr&typestr
if isnew=3 then '加入产品报价
hsql=hsql&" and iscpbj=1 "
end if
hsql=hsql&" order by idate desc"
rsh.open hsql,conn,1,1
If Not rsh.Eof Then
' strs="暂无报价信息"
' Else
cpSortID=rsh("SortID")
cpTypeID=rsh("TypeID")
cptypeid_2=rsh("typeid_2")
cpID=rsh("ID")
cpCpmc=rsh("Cpmc")
cpproprice=rsh("proprice")
cppricedw=rsh("pricedw")
Do While Not rsh.Eof
set rshv=Server.CreateObject("ADODB.Recordset")
hvsql="select * from yixiang_corporation where flag=1 and ID="&rsh("GsID")&""
rshv.open hvsql,conn,1,1
If Not rshv.Eof Then
If rshv("flag")=1 Then
strs="<div>"
strs=strs&"·<a href="&HOPE_InstallDir&"productshow/offerdetail/"&cpSortID&"-"&cpTypeID&"-"&cptypeid_2&"-"&cpID&".html class='lineh' target='_blank'>"&left(cpCpmc,leftstr)&"</a> "&cpproprice&""&cppricedw&" "&left(rshv("Qymc"),15)&""
strs=strs&"</div>"
End If
rsh.Movenext
78行 Loop
rsh.Close
Set rsh=Nothing
End If
Set rsh2=Server.CreateObject("ADODB.Recordset")
h2sql="select top "&num&" * from yixiang_info where info_id<>0 and flag=1 "&kindstr&typestr
if isnew=3 then
h2sql=h2sql&" and isgybj=1 "
end if
h2sql=h2sql&" order by dateandtime desc"
rsh2.open h2sql,conn,1,1
If Not rsh2.Eof Then
' strs="暂无信息"
' Else
gySortID=rsh2("SortID")
gyTypeID=rsh2("TypeID")
gytypeid_2=rsh2("typeid_2")
gyID=rsh2("Info_ID")
gyShowName=rsh2("ShowName")
gyPriceTerms=rsh2("PriceTerms")
gyPriceDw=rsh2("PriceDw")
Do While Not rsh2.Eof
set rshv2=Server.CreateObject("ADODB.Recordset")
hv2sql="select * from yixiang_corporation where flag=1 and ID="&rsh2("GsID")&""
rshv2.open hv2sql,conn,1,1
If Not rshv2.Eof Then
If rshv2("flag")=1 Then
strs=strs&"<div>"
strs=strs&"·<a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&gySortID&"-"&gyTypeID&"-"&gytypeid_2&"-"&gyInfo_ID&".html' target='_blank' class='lineh'>"&left(gyShowName,leftstr)&"</a> "&PriceTerms&""&gyPriceDw&" "&left(rshv2("Qymc"),15)&""
strs=strs&"</div>"
End If
rsh2.Movenext
Loop
rsh2.Close
Set rsh2=Nothing
End If
HOPE_Price=strs
End Function