<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/KIWI.asp" -->
<%
Dim RSstocks
Dim RSstocks_numRows
Dim DaysinStock
Dim myDate
myDate = dateadd("d", -1, date())
Set RSstocks = Server.CreateObject("ADODB.Recordset")
RSstocks.ActiveConnection = MM_KIWI_STRING
RSstocks.Source = "SELECT master_spec, ULOADC.Job_number, Sum( load_quantity)As Qty,Count( unit_load_number)As NoPallets, customer_name, stock_manuf_flag, due_date, sales_rep_code FROM kiwieur.ULOADC, kiwieur.JBSPEC WHERE ULOADC.Job_number = JBSPEC.Job_number AND stock_manuf_flag = 0 AND due_date < #" & myDate & "# GROUP BY master_spec, ULOADC.Job_number, stock_manuf_flag, customer_name, due_date, sales_rep_code ORDER BY sales_rep_code, customer_name, due_date"
RSstocks.CursorType = 0
RSstocks.CursorLocation = 2
RSstocks.LockType = 1
RSstocks.Open()
RSstocks_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
RSstocks_numRows = RSstocks_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="StockStyles.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="85%" height="52" border="0" align="center" cellpadding="1" cellspacing="1">
<tr bgcolor="#000099">
<td width="10%" height="26"> <div align="center"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">REPS
CODE </font></div></td>
<td width="10%">
<div align="center"><font color="#FFFFFF">CUSTOMER</font></div></td>
<td width="10%"> <div align="center"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">SPEC
No. </font></div></td>
<td width="10%"> <div align="center"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">MB
NUMBER </font></div></td>
<td width="10%"> <div align="center"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">QTY</font></div></td>
<td width="10%"> <div align="center"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">No.
PALLETS </font></div></td>
<td width="10%"> <div align="center"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">DUE
DATE </font></div></td>
<td width="10%"> <div align="center"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">DAYS
IN STOCK</font></div></td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT RSstocks.EOF))
%>
<%If (Repeat1__numRows Mod 2) Then%>
<tr bgcolor="#66CCFF">
<%Else%>
<tr bgcolor="#CCCCCC">
<%End If%>
<%
DaysinStock = Datediff("d", RSstocks.Fields.Item("due_date"), Date())
%>
<td width="166"><font size="2" face="Arial, Helvetica, sans-serif"><%=(RSstocks.Fields.Item("sales_rep_code").Value)%></font>
<td width="144"><%=(RSstocks.Fields.Item("customer_name").Value)%></td>
<td width="144" height="21"><div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><%=(RSstocks.Fields.Item("master_spec").Value)%></font></div></td>
<td width="139">
<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><%=(RSstocks.Fields.Item("Job_number").Value)%></font></div></td>
<td width="90">
<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><%=(RSstocks.Fields.Item("Qty").Value)%></font></div></td>
<td width="128">
<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><%=(RSstocks.Fields.Item("NoPallets").Value)%></font></div></td>
<td width="122">
<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><%=(RSstocks.Fields.Item("due_date").Value)%></font></div></td>
<td>
<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><%=DaysinStock%></font></div></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RSstocks.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
RSstocks.Close()
Set RSstocks = Nothing
%>
Regards
Paul