%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("") 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 & "