帮朋友修改一个程序，遇到个问题，本人也是懂个皮毛，所以请大家帮我看看
我是想实现一个商城系统中，假如商品数量是0，就提示缺货，假如价格不确定或0的话就提示价格待定


代码如下：
sub ProListByFlag(flag,p_nums)
  if IsNumeric(flag)=false then
    check="false"
  end if
  if IsNumeric(p_nums)=false then
    check="false"
  end if
  if check<>"false" then
    response.write "<table border=1 width=100% cellspacing=0 cellpadding=2 style=border-collapse: collapse bordercolor=#E8E8E8><tr>"
    set rs=server.CreateObject("adodb.recordset")
    rs.open "select id,sid,p_name,p_cmoney,p_mmoney,small_pic from yqj_product where issale=1 and InStr(1,flag,"&flag&") order by addtime desc",conn,1,1
    if rs.eof then
      response.write "<tr><td colspan=3>暂时还没有任何相关信息</td></tr>"
    else
      rs.PageSize =20 '每页记录条数
      iCount=rs.RecordCount '记录总数
      iPageSize=rs.PageSize
      maxpage=rs.PageCount 
      page=request("page")  
      if Not IsNumeric(page) or page="" then
        page=1
      else
        page=cint(page)
      end if    
      if page<1 then
        page=1
      elseif  page>maxpage then
        page=maxpage
      end if   
      rs.AbsolutePage=Page
      if page=maxpage then
    x=iCount-(maxpage-1)*iPageSize
      else
    x=iPageSize
      end if
      i=1
      while not rs.eof and i<=rs.pagesize+1
      set id=rs("id")
      set sid=rs("sid")
      set p_name=rs("p_name")
      set p_cmoney=rs("p_cmoney")
      set p_mmoney=rs("p_mmoney")
      set small_pic=rs("small_pic")
      
      sql="select txt_small_class from small_class where id="&sid
      set rs1=conn.execute (sql)
      txt_small_class=rs1("txt_small_class")
      rs1.close
      set rs1=nothing
      
      response.write "<td width='33%'>"
      response.write "  <table border=0 width='100%' cellspacing= style='border-collapse: collapse'>"
      response.write "    <tr>"
      response.write "      <td rowspan=4 align=center><a href=ProDetail.asp?id="&id&"><img border=0 src=upimg/"&small_pic&" width=75 height=75></a></td>"
      response.write "      <td><a href=ProDetail.asp?id="&id&">"&txt_small_class&" "&p_name&"</a></td>"
      response.write "    </tr>"
      response.write "    <tr>"
      response.write "      <td><font color=#FF0000>会员价:"&formatnumber(p_mmoney,0)&"元</font></td>"
      response.write "    </tr>"
      response.write "    <tr>"
      response.write "      <td><a href=buy.asp?id="&id&"><img border=0 src=images/add.gif width=22 height=22 align=absmiddle>购物车</a></td>"
      response.write "    </tr>"
      response.write "  </table>"
      response.write "</td>"
      
  if (i mod p_nums)=0 then
    response.write "</tr>"
  end if
  rs.movenext
  i=i+1
  wend
      call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")
end if
rs.close
    set rs=nothing
    response.write "</table>"
  end if
end sub