<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "68, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 108, 781, 782, 783" %> <% Call ReadFromTemplate(templatelocation,aryPageTemplate,strBasketHTML,strCategoryListHTML) response.write(aryPageTemplate(0)) theQuery = "SELECT ON_ID, ON_Date, ON_LastModified, ON_TotalPrice FROM tbl_OrderNumbers WHERE ON_CardholderID = " & DB_CD_ID & " AND ON_Sent = 'y' ORDER BY ON_Date DESC" ExecuteSQL theQuery, cursortype, rs_main %>

<% WriteString("PageTitle_MyAccount") %>

Log out

<% If rs_main.RecordCount = 0 Then %> <% Else %> <% End If %>

<% WriteString("ContentText_OrderNotFound") %>

<% WriteString("SubHeading_OrderHistory") %>

<% WriteString("ContentText_OrdersBelow") %>

<% BG = 0 Do Until rs_main.EOF BG = BG + 1 If BG / 2 = Int(BG / 2) Then BGClass = "mainpagetableline" Else BGClass = "mainpagetableline2" End If ON_ID = rs_main("ON_ID") ON_Date = rs_main("ON_Date") ON_LastModified = rs_main("ON_LastModified") ON_TotalPrice = rs_main("ON_TotalPrice") %> <% rs_main.MoveNext Loop %> <% WriteString("ContentText_SmallNumber") %> <% WriteString("ContentText_OrderDate") %> <% WriteString("ContentText_LastUpdate") %> <% WriteString("ContentText_Amount") %>   <% Response.Write(ON_ID) %> <% Response.Write(FriendlyDate(ON_Date, "t")) %> <% Response.Write(FriendlyDate(ON_LastModified, "t")) %> <% Response.Write(Application(HASHKEYNUMBERXYZ & "currencyunit") & " " & Pounds(ON_TotalPrice)) %> <% WriteString("ContentText_View") %>

<% rs_main.Close Response.Write(aryPageTemplate(1)) DataConn.Close Set DataConn = Nothing %>