<%Option explicit%> <% '******************************************************* ' Version 4.00 Coupon Validation '******************************************************* dim sAction, Coupon ShopPageHeader Saction=Request("Action") if sAction="" then Saction=Request("Action.x") end if If saction="" then AddCouponForm else HandleAction If Serror="" then WriteInfoMessage else addCouponForm end if end if ShopPageTrailer ' Sub AddCouponForm if sError<> "" then response.write getconfig("xfont") & "" & SError & "

" Serror="" end if coupon=Getsess("Coupon") %>

<%=getconfig("xfont")%><%=LangCustCouponPrompt%>

<% Response.Write("
") Response.Write(TableDef) CreateCustRow LangCouponDiscount,"Coupon",Coupon,"" Response.Write(tableDefEnd) If Getconfig("xbuttoncontinue")="" then Response.Write("") else Response.Write("") end if Response.Write("
") end sub Sub HandleAction dim rc coupon=request("coupon") if coupon="" then Serror=LangCouponMissing exit sub end if LocateCoupon coupon, rc, serror if Serror="" then SetSess "coupon",coupon end if end sub Sub WriteInfoMessage Response.write getconfig("Xfont") & LangCouponAccepted & "
" end sub %>