<% Dim orderno Dim encryptcustedp orderno = Request.QueryString("mod") encryptcustedp = Request.QueryString("eyp") '////////////////////////////////////////////////////////////////////////////////// if encryptcustedp<>"" and orderno<>"" then dim iPageNo Dim trans07_t dim pgno iPageNo=1 pgno=1 set trans07_t=server.CreateObject(webcom & "Trans0007") trans07_t.Company=MACS_COMPANY trans07_t.Division=MACS_DIVISION trans07_t.Host = HOST_NAME trans07_t.Port = WEBREQST trans07_t.OrderNo= orderno trans07_t.CustEdp= encryptcustedp trans07_t.PageNo= pgno if trim(trans07_t.GetValue("SuccessFlag",0)) <> "N" then '********************************************************* ' HEADER INFO '********************************************************* %> <% iPageNo=cint(Trim(trans07_t.GetValue("TotLevels",0))) '********************************************************* ' FOR EACH PAGE(LEVEL) GET SHIPTO AND ITEM INFO '********************************************************* dim im for im=1 to iPageNo writevalues cstr(im), orderno, encryptcustedp next End if 'if trim(trans07_t.GetValue("SuccessFlag",0)) <> "N" then '////////////////////////////////////////////////////////////////////////////////// %>

ORDER DETAIL

ORDER #: <%=Trim(trans07_t.GetValue("OrderNo",0))%>		DATE: <%=Trim(trans07_t.GetValue("OrdDate",0))%>
PAYMENT METHOD: <%=Trim(trans07_t.GetValue("PayMethod",0))%>

<% End if %>

<% sub writevalues(pgno, orderno, encryptcustedp ) Dim trans07 Dim jCount Dim ItemNo set trans07=server.CreateObject(webcom & "Trans0007") trans07.Company=MACS_COMPANY trans07.Division=MACS_DIVISION trans07.Host = HOST_NAME trans07.Port = WEBREQST trans07.OrderNo= orderno trans07.CustEdp= encryptcustedp trans07.PageNo= pgno if trim(trans07.GetValue("SuccessFlag",0)) <> "N" then %>

STATUS: <%=Trim(trans07.GetValue("Status",0))%>

SHIPPING METHOD: <%=Trim(trans07.GetValue("Shipmeth",0))%>

TRACKING #: <%=Trim(trans07.GetValue("TrackNo",0))%>

SHIPPING INFO: <%If Trim(trans07.GetValue("Addr1",0)) <> "" then Response.Write(Trim(trans07.GetValue("Addr1",0)) & "
")%> <%If Trim(trans07.GetValue("Addr2",0)) <> "" then Response.Write(Trim(trans07.GetValue("Addr2",0)) & "
")%> <%If Trim(trans07.GetValue("Addr3",0)) <> "" then Response.Write(Trim(trans07.GetValue("Addr3",0)) & "
")%> <%If Trim(trans07.GetValue("Addr4",0)) <> "" then Response.Write(Trim(trans07.GetValue("Addr4",0)) & "
")%> <%If Trim(trans07.GetValue("Addr5",0)) <> "" then Response.Write(Trim(trans07.GetValue("Addr5",0)) & "
")%> <%If Trim(trans07.GetValue("Addr6",0)) <> "" then Response.Write(Trim(trans07.GetValue("Addr6",0)) & "
")%> <%If Trim(trans07.GetValue("Addr7",0)) <> "" then Response.Write(Trim(trans07.GetValue("Addr7",0)) & "
")%>

<% '********************************************************* ' SHIPTO HEADER '********************************************************* 'Response.Write pgno & "~CurrentPage*|*" & Trim(trans07.GetValue("PageNo",0)) & gNextLine 'Response.Write pgno & "~SubTotal*|*" & replace(Trim(trans07.GetValue("OrdPrdDol",0)),",","") & gNextLine 'Response.Write pgno & "~ShipTotal*|*" & replace(Trim(trans07.GetValue("OrdPstDol",0)),",","") & gNextLine 'Response.Write pgno & "~TaxTotal*|*" & replace(Trim(trans07.GetValue("OrdTaxDol",0)),",","") & gNextLine 'Response.Write pgno & "~DiscountTotal*|*" & replace(Trim(trans07.GetValue("OrdDscDol",0)),",","") & gNextLine 'Response.Write pgno & "~OrderTotal*|*" & replace(Trim(trans07.GetValue("OrdGrandTotDol",0)),",","") & gNextLine 'Response.Write pgno & "~CreditTotal*|*" & replace(Trim(trans07.GetValue("OrdCreditDol",0)),",","") & gNextLine 'Response.Write pgno & "~TotalItemNum*|*" & Trim(trans07.GetValue("ItemNum",0)) & gNextLine 'Response.Write pgno & "~ShipStatus*|*" & Trim(trans07.GetValue("Status",0)) & gNextLine 'Response.Write pgno & "~Shipmethod*|*" & Trim(trans07.GetValue("Shipmeth",0)) & gNextLine 'Response.Write pgno & "~TrackType*|*" & Trim(trans07.GetValue("Type",0)) & gNextLine 'Response.Write pgno & "~TrackNo*|*" & Trim(trans07.GetValue("TrackNo",0)) & gNextLine '********************************************************* ' SHIPTO ITEMS '********************************************************* For jcount=1 to 250 ItemNo = trans07.GetValue("ItemNo",cint(jcount)) if ItemNo <> space(20) then if jcount > 1 then %> <% end if%> <% else exit for end if next %> <% end if set trans07 = nothing end sub %>

ITEM #	ITEM	QTY	TOTAL PRICE	STATUS


<%=Trim(trans07.GetValue("ItemNo",cint(jcount)))%>	<%=Trim(trans07.GetValue("ItemDesc",cint(jcount)))%>	<%=Trim(trans07.GetValue("ItemQty",cint(jcount)))%>	<%=replace(Trim(trans07.GetValue("ItemPrice",cint(jcount))),",","")%>	<%=Trim(trans07.GetValue("ItemStat",cint(jcount)))%>

			SubTotal	<%=replace(Trim(trans07.GetValue("OrdPrdDol",0)),",","")%>

			Shipping	<%=replace(Trim(trans07.GetValue("OrdPstDol",0)),",","")%>

			Tax	<%=replace(Trim(trans07.GetValue("OrdTaxDol",0)),",","")%>

			Discount	<%=replace(Trim(trans07.GetValue("OrdDscDol",0)),",","")%>

			Order Total	<%=replace(Trim(trans07.GetValue("OrdGrandTotDol",0)),",","")%>