<% 'Retrieve Last 3 orders, if any Dim fPastFewOrdersRS set fPastFewOrdersRS = fGetPastFewOrders (Session("CustomerID")) %> <% strPageTitle = Application("STORE_NAME") & " My Account Information" %> <% strPageKeywords = Application("STORE_NAME")%>
<% Dim strCustomerName, strDateLastLogon sRetrieveLoggedInCustomerDetails strCustomerName, strDateLastLogon %> <% if request("msg") <> "" then %> <% end if %> <% With fPastFewOrdersRS if .eof = false then %> <% End if End With Set fPastFewOrdersRS = Nothing %>
<% if Application("TABLE_BACKGROUND_ACCOUNT") <> "" then %> <% else %> <% end if %>
My Account Information" border="0" alt="My Account Information" title=" My Account Information ">

Welcome back <%= strCustomerName %> you last logged in on <%= strDateLastLogon %>
<%= request("msg") %>
Overview » 

">(show all orders)

Previous Orders...
<% while not .eof %> <% .movenext Wend %>

<%= fDisplayNiceDate(.fields("date_purchased").value) %>

#<%= .fields("pk").value %>

<%= .fields("delivery_name").value %>, <%= .fields("delivery_country").value %>

<%= .fields("orders_status").value %>

<%= .fields("currency_symbol").value %><%= .fields("order_total_currency").value %>

 ">View




MY ACCOUNT...

">View or change my account information.

">View or change entries in my address book.

">Change my account password.




MY ORDERS...

">View/Cancel the orders I have made.




MY EMAIL NOTIFICATIONS...
">Subscribe or unsubscribe from email alerts.