<%Option explicit%> <% '******************************************************* ' Version 6.50 Coupon Validation ' March 26, 2004 '******************************************************* dim sAction, Coupon ShopPageHeader if getconfig("xbreadcrumbs") = "Yes" then response.write "
" & getlang("langcommonhome") & " " &_ SubCatSeparator & "" & getlang("langCustAdmin01") & "" &_ SubCatSeparator & getlang("langcoupondiscount") & "
" end if response.write "

" & getlang("langcoupondiscount") & "

" 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 shopwriteerror sError Serror="" end if coupon=Getsess("Coupon") shopwriteheaderpic getlang("langCustCouponPrompt"),"images/icons/money.gif" Response.Write "
" Response.Write("
") Response.Write(TableDef) CreateCustRow getlang("LangCouponDiscount"),"Coupon",Coupon,"" Response.Write(tableDefEnd) addwebsessform Response.Write "
" Response.Write "
" & vbCrLf If Getconfig("xbuttoncontinue")="" then Response.Write("") else Response.Write("") end if Response.Write "
" Response.Write("") end sub Sub HandleAction dim rc coupon=request("coupon") if coupon="" then Serror= getlang("LangCouponMissing") exit sub end if LocateCoupon coupon, rc, serror if Serror="" then SetSess "coupon",coupon end if end sub Sub WriteInfoMessage Response.write largeinfofont & getlang("LangCouponAccepted") & largeinfoend & "
" end sub %>