<% Sub ShopThanksMerchant (conn,OrderID) '**************************************************************** ' Merchant can add additional messages ' analyze fields in the order ' Inputs Orderid = number of the order ' Outputs ' Orderattachment - file to be attached (only works with ASPMAIL) '****************************************************************** 'dim osql, RSMerchant 'osql="select * from orders where orderid=" & OrderID 'set RSMerchant=conn.execute(osql) ' 'closerecordset RSMerchant end sub %>