<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "388, 389, 390, 391, 392, 393, 394, 395, 396, 397, 398, 399, 400, 525, 966, 1030, 1047" strThisBackPage = "orders" %> <% '=============================================== ' CactuShop ASP Shopping Cart ' ©1999-2004 Cactusoft Ltd. www.cactusoft.com '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. Cactusoft's copyright notices must ' remain in the ASP sections of the code. '=============================================== '----------------------------------------------- 'ADD/VIEW/MODIFY CUSTOMER STATUS 'Setup a customer with an account, give them a 'discount or modify their details. '----------------------------------------------- '----------------------------------------------- 'FIND WHICH AFFILIATE WAS CLICKED ON '----------------------------------------------- AF_ID = request.querystring("AF_ID") If AF_ID = "" then AF_ID = 0 strQuery = "SELECT * FROM tblCactuShopAffiliates WHERE AF_ID=" & AF_ID Call ExecuteSQL(strQuery, numCursorType, objRecordSet) numRecordCount = objRecordSet.recordcount If numRecordCount>0 then AF_ID = objRecordSet("AF_ID") AF_Name = SafeHTMLEncode(objRecordSet("AF_Name")) AF_Address = SafeHTMLEncode(objRecordSet("AF_Address")) AF_TownCity = SafeHTMLEncode(objRecordSet("AF_TownCity")) AF_County = SafeHTMLEncode(objRecordSet("AF_County")) AF_PostCode = SafeHTMLEncode(objRecordSet("AF_PostCode")) AF_Country = objRecordSet("AF_Country") AF_Telephone = SafeHTMLEncode(objRecordSet("AF_Telephone")) AF_EmailAddress = SafeHTMLEncode(objRecordSet("AF_EmailAddress")) AF_Password = SafeHTMLEncode(objRecordSet("AF_Password")) AF_Percentage = SafeHTMLEncode(objRecordSet("AF_Percentage")) End if objRecordSet.close %>

<% IF AF_ID <> 0 then %> <% end if %> <% If AF_ID <> 0 then %> <% end if %> <% WriteString("PageTitle_AffiliateDetails") %> <% WriteString("ContentText_ListPayments") %> <% WriteString("FormLabel_AffiliateName") %>* <% WriteString("FormLabel_AffiliateID") %> <% If AF_ID=0 then response.write("new") else response.write(AF_ID) %> <% WriteString("FormLabel_Commission") %> <% WriteString("FormLabel_StreetAddress") %>* <% WriteString("FormLabel_TownCity") %>* <% WriteString("FormLabel_County") %> <% WriteString("FormLabel_Postcode") %>* <% WriteString("FormLabel_Country") %>* <% '----------------------------------------------- 'PRODUCE THE DESTINATIONS DROPDOWN 'This runs a query to find all the destinations, 'orders them alphabetically and then calls a 'function we have written to produce a dropdown 'box from the recordset. '----------------------------------------------- strQuery = "SELECT * FROM tblCactuShopDestination WHERE D_Live='y' ORDER BY D_Destination" & CStr(numLanguageID) Call ExecuteSQL(strQuery, numCursorType, objRecordSet) Call SingleDropDown("AF_Country","","SELECT:",objRecordSet,"D_ID","D_Destination" & CStr(numLanguageID),AF_Country) objRecordSet.Close %> <% WriteString("FormLabel_Email") %>* <% WriteString("FormLabel_Password") %>* <% WriteString("FormLabel_Telephone") %>* <% WriteString("ContentText_SendEmailToAffiliate") %> "> <% If AF_ID <> 0 then %> <% end if %> <% If AF_ID <> 0 then %> "> <% WriteString("ContentText_DeleteThisAffiliate") %> <% End If %>

<% objDataConn.Close set objDataConn = nothing %>