<%      set rs= Server.CreateObject("adodb.recordset")

		sql=" select wlnames,wlpp,gysname,gysdh,wlgg,wldj,'' as qssl ,wlsl,tjts,cysl from wl where  company="&session("company")&" and sfcg=false 	  union   select wlnames,wlpp,gysname,gysdh,wlgg,wldj,qssl,'' as wlsl ,'' as tjts,'' as cysl  from qswl where company="&session("company")&" "

		

		

		rs.open sql,conn,1,1

		rs.pagesize=30%><table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#E3E3E3">

  <tr>

    <td width="12%" height="35" align="left">&nbsp;&nbsp;<span class="STYLE3">物料类别</span></td>

    <td width="8%" align="left">&nbsp;&nbsp;<span class="STYLE3">物料名称</span></td>

    <td width="15%" align="left">&nbsp;&nbsp;物料规格</td>

    <td width="9%" align="left">&nbsp;&nbsp;物料品牌</td>

    <td width="9%" align="left">&nbsp;&nbsp;缺少数量</td>

    <td width="7%" align="left">&nbsp;&nbsp;物料单价</td>

    <td width="9%" align="left">&nbsp;&nbsp;供应商</td>

    <td width="10%" align="left">&nbsp;&nbsp;<span class="STYLE3">供应商电话</span></td>

  </tr>

  <%if rs.eof or rs.bof then%>

  <tr>

    <td height="30" colspan="8" align="center" bgcolor="#FFFFFF">暂无数据</td>

  </tr>

  <% Else

	 Pagecount=rs.PageCount

     Page=int(Request.QueryString("page"))

	 if page <=0 then page=1

	 	if page="" then page=1

	 		if page>pagecount then 

				page=1

			end if

			rs.AbsolutePage=page 

%>

  <%cgjs=0

				for i= 0 to rs.pagesize

					if rs.eof then

						exit for

					end if%>

					<%

					

					if trim(bksl(rs("wlnames"),rs("wlgg"),rs("wlpp"),rs("gysname"),rs("tjts"),rs("cysl")))-trim(rs("wlsl"))>0 or  trim(rs("qssl"))<>"" then

					cgjs=cgjs+1

					%>

  <tr>

    <td height="30" align="left" bgcolor="#FFFFFF">&nbsp;&nbsp;<%=jswllb(jsbhlb(rs("wlnames"),rs("wlgg")))%><%=cgjs%></td>

    <td align="left" bgcolor="#FFFFFF">&nbsp;&nbsp;<%=rs("wlnames")%></td>

    <td align="left" bgcolor="#FFFFFF">&nbsp;&nbsp;<%=rs("wlgg")%></td>

    <td align="left" bgcolor="#FFFFFF">&nbsp;&nbsp;<%=rs("wlpp")%></td>

    <td align="left" bgcolor="#FFFFFF">&nbsp;&nbsp;<%if rs("qssl")<>"" then%><%=rs("qssl")%><%else%><%=trim(bksl(rs("wlnames"),rs("wlgg"),rs("wlpp"),rs("gysname"),rs("tjts"),rs("cysl")))%><%end if%></td>

    <td a