|
<%=FP_FieldVal(fp_rs,"ORDER#")%> |
<%=FP_FieldVal(fp_rs,"ORDERDATE")%> |
<%=FP_FieldVal(fp_rs,"QUAN")%> |
<%=FP_FieldVal(fp_rs,"QUAN_SHIPPED")%> |
<%=FP_FieldVal(fp_rs,"ITEM#")%> |
<%=FP_FieldVal(fp_rs,"DESCRIPTION")%> |
<%=FP_FieldVal(fp_rs,"Color")%> |
<%=FP_FieldVal(fp_rs,"SIZE")%> |
<%
dim vItemStatus
dim vShipDate
dim vDisplay
dim bNotShipped //-- boolean, has the item shipped (false) or not (true)
dim sBO //-- Backordered
dim sCC //-- canceled by customer
dim sCM //-- canceled by manufacturer
dim bBO //-- boolean flag, true if backordered
dim bCC //-- boolean flag, true if canceled by customer
dim bCM //-- boolean flag, true if canceled by manufacturer
dim iPos
sBO = "*This item is on order from the manufacturer and will be shipped as soon as possible, usually within 14 business days of the order date." & vbcrlf
sCM = "*This item is no longer available from the manufacutrer in the style, color or size you requested. Please contact us at 1-(800) 679-3600 for other options." & vbcrlf
vShipDate = FP_FieldVal(fp_rs,"ShipDate")
if len(vShipDate) = 6 or vShipDate = "12:00:00 AM" then
bNotShipped = "true"
else
bNotShipped = "false"
end if
vShipDate = trim(vShipDate)
vItemStatus = FP_FieldVal(fp_rs,"ITEMSTATUS")
Select case bNotShipped
case "true"
vItemStatus = ""
vItemStatus = FP_FieldVal(fp_rs,"ITEMSTATUS")
Select Case vItemStatus
Case 0
vDisplay = "Backordered*"
bBO = true
Case "2"
vDisplay = "Backordered*"
bBO = true
Case "3"
vDisplay = "Canceled by Customer Request"
Case "4"
vDisplay = "Item no Longer Available*"
bCM = true
Case "5"
vDisplay = "Item Returned"
Case "6"
vDisplay = "Credit"
End Select
case "false"
vDisplay = "Shipped on " & vShipDate
end select
%>
<% if vDisplay = "" then %> <%=FP_FieldVal(fp_rs,"ShipDate")%> <% Else %> <% = vDisplay %> <% End If%>
|
<% vCarrier = FP_FieldVal(fp_rs,"Carrier") %>
<% if vCarrier <> " " then %>
<%=FP_FieldVal(fp_rs,"Carrier")%>
<% else %>
<% vCarrier = vbnullstring %>
<% = vCarrier %>
<% end if %> |
<% sTrack = FP_FieldVal(fp_rs,"Tracking#")
sCarrier = left(sTrack, 2)
if sCarrier = "1Z" then
sURL = sUPSPre & sTrack & sUPSPost
elseif sCarrier = "04" then
sURL = sFedEx & sTrack
elseif sCarrier = "&n" or sCarrier = " " then
sUrl = "No Tracking Number available"
sTrack = "No Tracking Number available"
end if
%>
<% if sUrl = "" then %>
<%=FP_FieldVal(fp_rs,"Tracking#")%>
<% end if %> <% if sUrl = "No Tracking Number available" then %>
<% = sUrl %>
<% else %>
target=_blank > <% = sTrack %>
<% end if %>
|
Fax: (800) 814-4900