 |
 |
<%
'//////////////////////////////////////////////////////////////////////////////////
'//'Transac 5, Order List
'//////////////////////////////////////////////////////////////////////////////////
Dim encryptcustedp
Dim iUserID
iUserID = customer_info(2)
encryptcustedp = customer_info(3)
if encryptcustedp <> "" and encryptcustedp<>"00000000000000000" then
Dim trans05
Dim icount
Dim liLoop
Dim stmpOrderNo
icount = 0
liLoop=20
set trans05 = server.CreateObject(webcom & "Trans0005")
trans05.Company = MACS_COMPANY
trans05.Division = MACS_DIVISION
trans05.Host = HOST_NAME
trans05.Port = WEBREQST
trans05.CustEdp= encryptcustedp
trans05.CartID = iUserID
if Trim(trans05.GetValue("SuccessFlag",0)) = "N" then
else
For icount=1 to liLoop
stmpOrderNo = Trim(trans05.GetValue("OrderNo",icount))
if stmpOrderNo <> "" then
if icount = 1 then
'print the header info
%>
|
Click on an order number to see details about that order.
|
|
|
ORDER #
|
DATE
|
STATUS
|
|
|
|
|
|
<%
end if
%>
|
<%=stmpOrderNo%>
|
<%=Trim(trans05.GetValue("MailDate",icount))%>
|
<%=Trim(trans05.GetValue("OrderStatus",icount))%>
|
<%if icount=iLoop then%>
|
<%else%>
 |
<%end if%>
<%
end if
Next
end if
set trans05 = nothing
end if
'//////////////////////////////////////////////////////////////////////////////////
%>
|
|
