<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "697, 801, 802, 803, 804, 805" 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. '=============================================== '----------------------------------------------- 'MODIFY COUPONS 'Create or edit coupons '----------------------------------------------- %>

<% WriteString("PageTitle_Coupons") %> <% WriteString("FormLabel_CouponValue") %> % <% =strDefaultCurrencySymbol %> <% WriteString("FormLabel_StartDate") %> - - <% For numDayCount =1 to 31 %> ><% =numDayCount %> <% Next %> - - - <% For numMonthCount =1 to 12 %> ><%=Monthname(numMonthCount,2) %> <% Next %> - - - - <% For numYearCount = 0 to 20 thisyear = Year(Date()) + numYearCount %> ><% =thisyear %> <% Next %> <% WriteString("FormLabel_EndDate") %> - - <% For numDayCount =1 to 31 %> ><% =numDayCount %> <% Next %> - - - <% For numMonthCount =1 to 12 %> ><%=Monthname(numMonthCount,2) %> <% Next %> - - - - <% For numYearCount = 0 to 20 thisyear = Year(Date()) + numYearCount %> <% =thisyear %> <% Next %> <% WriteString("FormLabel_CouponQuantity") %> <% WriteString("FormLabel_Reusable") %> no yes ">

<% objDataConn.Close set objDataConn = nothing %>