有一个如下过程：

sub ArticleContent(intTitleLen)
dim i,strTemp
i=0
do while not rsArticle.eof
strTemp=""
'strTemp = strTemp & ""
strTemp= strTemp & "<table width=100% border=0 cellspacing=3 cellpadding=0>"
strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td width=30% rowspan=5>"
strTemp= strTemp & "<div align=center><a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">"
strTemp= strTemp & "<img border=0 src=" & rsArticle("DefaultPicUrl") & " width=150 height=120>"
strTemp= strTemp & "</a></div></td>"
strTemp= strTemp & "<td width=13% height=18>"
strTemp= strTemp & "产品名称：</td>"
strTemp= strTemp & "<td>"
strTemp= strTemp & "<a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">" & rsArticle("Title") & ""
strTemp= strTemp & "</a></td>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td height=18>"
strTemp= strTemp & "产品类别：</td>"
strTemp= strTemp & "<td><a href=Product.asp?BigClassName=" & rsArticle("BigClassName") & ">" & rsArticle("BigClassName") & "</a> → "
strTemp= strTemp & "<a href=Product.asp?BigClassName=" & rsArticle("BigClassName") & "&SmallClassName=" & rsArticle("SmallClassName") & ">" & rsArticle("SmallClassName") & ""
strTemp= strTemp & "</a></td>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td height=18>"
strTemp= strTemp & "产品编号：</td>"
strTemp= strTemp & "<td>" & rsArticle("Product_Id") & "</td>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td height=18>"
strTemp= strTemp & "所属公司：</td>"
strTemp= strTemp & "<td>"
strTemp= strTemp & "" & rsArticle("SpecialName") & ""
strTemp= strTemp & "</a></td>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td height=18>产品信息：</td>"
strTemp= strTemp & "<td>"
strTemp= strTemp & "<a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & "><img src=Img/arrow_7.gif border=0></a></td>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td height=18>"
strTemp= strTemp & "市场价格：￥<strike>" & rsArticle("OldPrice") & "元</strike></td>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td height=18>"
strTemp= strTemp & "会员价格：<font color='#FF0000'>￥"& rsArticle("NewPrice") & "元</font></td>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td height=18>"
strTemp= strTemp & "立即节省：<font color='#FF0000'>￥"& rsArticle("OldPrice") - rsArticle("NewPrice") &"元</font></td>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td height=18>"
strTemp= strTemp & "<div align='center'><a href='javascript:eshop(" & rsArticle("Product_Id") & ")'><img border=0 src=img/addtocart.gif></a></div>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td height=1 colspan=3 bgcolor=#CCCCCC></td>"
strTemp= strTemp & "</tr>"
strTemp= strTemp & "</table>"
response.write strTemp
rsArticle.movenext
i=i+1
if i>=MaxPerPage then exit do
loop
end sub

其中的 strTemp= strTemp & "<div align='center'><a href='javascript:eshop(" & rsArticle("Product_Id") & ")'><img border=0 src=img/addtocart.gif></a></div>"是产品相应的在线定购图形按纽，点击后即可进入购物页面。

我知道在需要的页面可以利用语句<% call ShowArticle(32) %>来调用。现在我有个问题就是，有些产品暂时没有标有价格（包括会员价或市场价），所以想用“询价”按纽来代替“在线定购”按纽（如果产品有价格则还是显示在线购物按纽），当我尝试在语句在使用<% if..then..else %>没成功。

哪位高手知道如何修改，在下不胜感激！！

既然没有抱假说明值为空，依据这个判断应该可以啊

同意楼上，细心得检查下！

但是&lt;% if..then..else %&gt;不能用在strTemp= strTemp &amp;里面呀。

不能写在那，可以分开写啊，

if ........ then
strTemp= strTemp & "............"
else
strTemp= strTemp & "............"
end if

根据你的想法，我将代码改写为以下格式：

if "& rsArticle("NewPrice") & "<>"" and "& rsArticle("OldPrice") & "<>"" then
strTemp= strTemp & "<td height=18>"
strTemp= strTemp & "<div align='center'><a href='javascript:eshop(" & rsArticle("Product_Id") & ")'><img border=0 src=img/addtocart.gif></a></div>"
strTemp= strTemp & "</tr><tr>"
else
strTemp= strTemp & "<td height=18>"
strTemp= strTemp & "<div align='center'><a href='xunjia.asp'><img border=0 src=img/xunjia.gif></a></div>"
strTemp= strTemp & "</tr><tr>"
end if

但运行时提示“缺少 'Then' ”。
你看以上代码错在哪？

[此贴子已经被作者于2005-12-30 15:57:20编辑过]

if rsArticle("NewPrice") <>"" and rsArticle("OldPrice") <>"" then

非常感谢您，阳光白雪！

本人还有另外一个问题，望你能帮助一下。

以下这段代码可以以列表方式显示所有产品：
'=================================================
'过程名：ShowAllClass
'作 用：显示所有栏目（栏目导航）
'参 数：无
'=================================================
sub ShowAllClass()
if rsBigClass.bof and rsBigClass.eof then
response.Write "&nbsp;没有任何栏目"
else
dim sqlClass,rsClass,strClassName
rsBigClass.movefirst
do while not rsBigClass.eof
strClassName= "【<a href='Product.asp?BigClassName=" & rsBigClass("BigClassName") & "'><b>" & rsBigClass("BigClassName") & "</b></a>】<br><br>"
sqlClass="select * from SmallClass where BigClassName='" & rsBigClass("BigClassName") & "' Order by SmallClassID"
Set rsClass= Server.CreateObject("ADODB.Recordset")
rsClass.open sqlClass,conn,1,1
do while not rsClass.eof
strClassName=strClassName & "&nbsp;<a href='Product.asp?BigClassName=" & rsClass("BigClassName") & "&SmallClassName=" & rsClass("SmallClassName") & "'>" & rsClass("SmallClassName") & "</a>&nbsp;"
rsClass.movenext
loop
response.write strClassName & "<br><br>"
rsBigClass.movenext
loop
rsClass.close
set rsClass=nothing
end if
end sub

这样我可以在其它页面用<% call ShowAllClass() %>来调用。
现在我只想显示BigClassName为加工类分类（包括加工类所有子分类SmallClassName）的产品分类（还是以列表方式显示），如何改写？