<%@ Language=VBScript %> <% sMsg="" if Request.form("shipupdatego")<>"" then lssql = "Begin Update WP_WEBShip set ShippedDate = '" & Request.form("shipmonth") & "/" & Request.form("shipday") & "/" & Request.form("shipyear") & " 00:00:00'" lssql = lssql & ", TrackingNo = '" & replace(Request.form("trackingno"),"'","''") & "' where " lssql = lssql & " weborderid=" & Request.querystring("orderid") lssql = lssql & " Update WP_weborders set orderstatusflag=" & Request.Form("orderstatusflag") & " where weborderid=" & Request.querystring("orderid") lssql = lssql & " end " set rsupdate=OpenRecordset(con, lssql) sMsg="Update success." end if %> Orders
" method="post" target="_ordership">
<%=sMsg%>
Shipping Info:

Order #: <%=Request.querystring("orderid")%>

<% if Request.querystring("orderid")<>"" then lssql = " Select WEBORDERID, (select top 1 orderstatusflag from WP_weborders a where a.weborderid=b.weborderid) as OrderStatusFlag, BillEmail, BillName, ShiptoName, ShiptoAddress, ShiptoPhone, ShiptoMessage, convert(varchar(50),CreateDate,101) as CreateDate, ISNULL( convert(varchar(50), ShippedDate, 101),'') as ShippedDate, isnull(TrackingNo,'') TrackingNo from WP_WebShip b where weborderid= " & Request.querystring("orderid") set rssublist = OpenRecordset(con, lssql) if not rssublist.EOF then %> <% while not rssublist.EOF if lscolor="#e6e6fa" then lscolor="#fffafa" else lscolor="#e6e6fa" end if %> <%if rssublist.Fields("ShippedDate") <> "" then %> <%else%> <%end if%> <% rssublist.movenext wend %>
Order Status :
Date Ordered: <%=rssublist.Fields("CreateDate")%>
Bill Info:
<%=rssublist.Fields("BillName")%>
<%=rssublist.Fields("BillEmail")%>
Recipient Info:
<%=rssublist.Fields("ShiptoName")%>
<%=rssublist.Fields("ShiptoAddress")%>
<%=rssublist.Fields("ShiptoPhone")%>

Message:
<%=rssublist.Fields("ShiptoMessage")%>
Entered Shipped Date:
<%=rssublist.Fields("ShippedDate")%>
Select New Shipping Date:
Select Shipping Date:
Enter Tracking No.:
" maxlength=225 size=25>


"> Email Templates
<% rssublist.close end if set rssublist = nothing end if %>