Orders

<% If Len(searchTerm) > 0 Then %>
Clear
<% End If %>
<% If orders.Count = 0 Then %> <% Else Dim orderKey, order, tokenStatus, continueUrl, mailtoBody, mailtoHref For Each orderKey In orders.Keys Set order = orders(orderKey) If Not IsNull(order("TokenUsedAt")) Then tokenStatus = "Used" ElseIf order("TokenExpiresAt") < Now() Then tokenStatus = "Expired" Else tokenStatus = "Active" End If continueUrl = "https://pe.kentcommunications.com/order/continue?token=" & MailtoEncode(order("Token")) mailtoBody = "Continue your order here: " & continueUrl mailtoHref = "mailto:" & order("Email") & _ "?subject=" & MailtoEncode("Continue your Purple Envelope order") & _ "&body=" & MailtoEncode(mailtoBody) %> <% Next End If %>
Order ID Email Jurisdiction # Created Token Status Resend Link
<% If Len(searchTerm) > 0 Then %>No orders match your search.<% Else %>No orders found.<% End If %>
<%= H(order("OrderID")) %> <%= H(order("Email")) %> <%= H(order("JurisdictionNumber")) %> <%= H(order("CreatedAt")) %> <%= H(tokenStatus) %> Email link
<% If pageCount > 1 Then Dim qsBase, pn qsBase = "?q=" & Server.URLEncode(searchTerm) & "&page=" %>

<%= recordCount %> order<% If recordCount <> 1 Then %>s<% End If %> found.

<% End If %>