<%option explicit%> <% '************************************************************************** ' Version 5.0 Jan 14, 2004 Demo Version ' This routines does quite a lot ' sets up e-mail messages for merchant and customer ' Updates stock ' Adds points ' calculated affiliate commission ' updates gifts ' mails to suupliers ' updates project payments ' updates session variables to clear order details ' This is final file in order process ' calls shopthanksmerchant, shopmailformat and shopmail ' calls giftmailing, stock control. ' Mail affiliate '************************************************************************** Dim maillist(20) Dim Maillistcount Dim Textarray(500) Dim TextCount dim my_system dim my_from dim my_fromAddress dim my_subject dim my_to dim my_toAddress Dim attachmentarray(20),attachmentcount dim htmlformat Dim arrCart, scartItem dim mailtype dim body Dim merchant Dim customer dim ordernumber Dim myconn Dim attachmentfile Dim returnlocation Dim Merchantemailformat,customeremailformat ' used to add extra information to messages from shopthanksmerchnat dim merchantextraInfo, CustomerExtraInfo ' dim affiliateid ' Logic ordernumber=Getsess("oid") if ordernumber="" then Response.Redirect "shoperror.asp?msg=" & Server.URLEncode (getlang("langShopThanks03")) end if attachmentcount=0 Setsess "emailformat",getconfig("xemailformat") Merchantemailformat="" Customeremailformat="" Merchantextrainfo="" Customerextrainfo="" ' ShopPageHeader ' Normal shop header ' OpenOrderDB myconn ' Open database DisplayOrderNumber myconn ' Display the order number ShopCancelOrder ' cleanup ShopPageTrailer ShopCloseDatabase myconn ' Close the database ' '*****DisplayorderNumber Sub DisplayOrderNumber(conn) shopwriteheader getlang("langShopthanks01") ShopFormatOrder conn, ordernumber, "NoAdmin" returnlocation="shopend.asp" %>

<%=getlang("langShopThanks02")%>

<% end sub %>